Parameter Usart bei SetSerEnable (xmega)

program test;

{ $W+}

Device = xmega128A1U, VCC = 3.3;

Define_Fuses
    Override_Fuses;
    NoteBook   = A;
    COMport    = USB;
    FuseBits5  = [BODLEVEL1, BODLEVEL2, BODACT0]; // BOD=2.8V if USB variant
    ProgFuses = true;
    ProgEEprom = true;


Import Systick, SerPortC0, SerPortC1;

Define
    OSCtype = extXTAL=8000000, PLLmul=4, prescA=1, prescB=1, prescC=1, faildet;

    SysTick        = 10;
    StackSize      = 256, iData;
    FrameSize      = 256, iData;

    SerPortC0      = 19200;
    RxBufferC0     = 32, iData;
    TxBufferC0     = 32, iData;
    SerCtrlC0      = onSerTxComplete_C0;

    SerPortC1      = 19200;
    RxBufferC1     = 32, iData;
    TxBufferC1     = 32, iData;
    SerCtrlC1      = onSerTxComplete_C1;
    
implementation
{$IDATA}
{-------------------------------------------------------------------------------
Main Program
-------------------------------------------------------------------------------}
var usart : tUSARTenum;
begin
    usart := USARTC0;
    SetSerEnable(USARTC0,true);
    SetSerEnable(usart,true);
end test.

program test;

{ $W+}

Device = xmega128A1U, VCC = 3.3;

Define_Fuses
    Override_Fuses;
    NoteBook   = A;
    COMport    = USB;
    FuseBits5  = [BODLEVEL1, BODLEVEL2, BODACT0]; // BOD=2.8V if USB variant
    ProgFuses = true;
    ProgEEprom = true;


Import Systick, SerPortC0, SerPortC1;

Define
    OSCtype = extXTAL=8000000, PLLmul=4, prescA=1, prescB=1, prescC=1, faildet;

    SysTick        = 10;
    StackSize      = 256, iData;
    FrameSize      = 256, iData;

    SerPortC0      = 19200;
    RxBufferC0     = 32, iData;
    TxBufferC0     = 32, iData;
    SerCtrlC0      = onSerTxComplete_C0;

    SerPortC1      = 19200;
    RxBufferC1     = 32, iData;
    TxBufferC1     = 32, iData;
    SerCtrlC1      = onSerTxComplete_C1;

implementation
{$IDATA}
{-------------------------------------------------------------------------------
Main Program
-------------------------------------------------------------------------------}
const 
  myUsart : tUSARTenum = USARTC0;  // jetzt als Konstante

begin
    SetSerEnable(USARTC0,true);
    SetSerEnable(myUsart,true);  // geht nicht, Compilerfehler
end test.

// example for Wrapper function
procedure UartEnableRxWrapper(serport : byte; enable : boolean);
begin
  case serport of
    UsartC0 : UartEnableRxC0(enable);
    |
    UsartC1 : UartEnableRxC1(enable);
    |
    UsartD0 : UartEnableRxD0(enable);
    |
    UsartD1 : UartEnableRxD1(enable);
    |
    UsartE0 : UartEnableRxE0(enable);
    |
    UsartE1 : UartEnableRxE1(enable);
    |
    UsartF0 : UartEnableRxF0(enable);
    |
    UsartF1 : UartEnableRxF1(enable);
    |
  endcase;
end;