Hallo,
das Programm lässt sich nicht kompilieren. Mit RxBuffer ohne 1 geht es.
Robert
Nachtrag:
Wenn SerPort1 importiert wird, lässt sich WaitPipe(RxBuffer) zwar kompilieren, es kommt jedoch offensichtlich nie was an. Wird SerPort importiert, dann geht es.
das Programm lässt sich nicht kompilieren. Mit RxBuffer ohne 1 geht es.
Robert
Code
program bla;
Device = mega128, VCC=5;
Import
SysTick,
SerPort;
From System import
Pipes,
Processes,
longword;
from SysTick import
SystemTime32;
Define
ProcClock = 16000000; {Hertz}
SysTick = 10; {msec}
StackSize = 250, iData;
FrameSize = 300, iData;
Scheduler = 128, 128, iData;
{----------------------------------------------------------------------------}
SerPort = 57600, Stop2; {Baud, StopBits|Parity}
RxBuffer = 8, iData;
TxBuffer = 8, iData;
uses ;
Implementation
{$IDATA}
const
type
var
begin
ENABLEINTS;
WriteLn(SerOut, 'Los');
PipeFlush(RxBuffer); //OK
PipeFlush(RxBuffer1); //OK
WaitPipe(RxBuffer); //OK
WaitPipe(RxBuffer1); //Error: var expected
loop
endloop;
end bla.
Device = mega128, VCC=5;
Import
SysTick,
SerPort;
From System import
Pipes,
Processes,
longword;
from SysTick import
SystemTime32;
Define
ProcClock = 16000000; {Hertz}
SysTick = 10; {msec}
StackSize = 250, iData;
FrameSize = 300, iData;
Scheduler = 128, 128, iData;
{----------------------------------------------------------------------------}
SerPort = 57600, Stop2; {Baud, StopBits|Parity}
RxBuffer = 8, iData;
TxBuffer = 8, iData;
uses ;
Implementation
{$IDATA}
const
type
var
begin
ENABLEINTS;
WriteLn(SerOut, 'Los');
PipeFlush(RxBuffer); //OK
PipeFlush(RxBuffer1); //OK
WaitPipe(RxBuffer); //OK
WaitPipe(RxBuffer1); //Error: var expected
loop
endloop;
end bla.
Nachtrag:
Wenn SerPort1 importiert wird, lässt sich WaitPipe(RxBuffer) zwar kompilieren, es kommt jedoch offensichtlich nie was an. Wird SerPort importiert, dann geht es.