[ Lazarus ] Błąd kompilatora ??

[webmaj...@poczta.onet.pl]

mam taki kod dla delphi ( komponent NewAC 2.6 ) -- ale kompiluje go w
Lazarusie ( FPC 2.5.1 ).

i kompilacja zatrzymuje się na

const
JumpFarId = $E9;
JumpPtrId = $25FF;

{......}

PByte(@{^}System.Move)^ := JumpFarId; <<<<<<<<<<<<<<<<< Lina 1000
PInteger(Integer(@System.Move)+1)^ :=
Integer(SrcProc) - Integer(@System.Move)-5; {Change Destination}

FastMove.pas(1000,16) Error: Variable identifier expected
{^} -- miejsce wskazyywane przzz kompilator

jednak jak zmienie linie 1000 na

PByte(@System.Move+(1-1))^ := JumpFarId;

kompilacja przechodzi dalej . Jak myślicie to błąd kompilatora że w orginale
nie przepuszcza ??

--
Wysłano z serwisu OnetNiusy: http://niusy.onet.pl