[ Lazarus ] Błąd kompilatora ??

Article View: pl.comp.lang.pascal

Article #93193

Back to pl.comp.lang.pascal Previous Next

#93193

From: webmajsterek
Date: Thu, 01 Sep 2011 15:32

28 lines
1736 bytes

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

Technical Details

Message-ID: <5a65.00000437.4e5fa598@newsgate.onet.pl>

Path:

mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!agh.edu.pl!news.agh.edu.pl!news.onet.pl!newsgate.m10r2.onet.pl!niusy.onet.pl

Show Full Headers

Complete Article Headers

Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!agh.edu.pl!news.agh.edu.pl!news.onet.pl!newsgate.m10r2.onet.pl!niusy.onet.pl
From: webmajsterek@poczta.onet.pl
Newsgroups: pl.comp.lang.pascal
Subject: [ Lazarus ] Błąd kompilatora ??
Date: Thu, 01 Sep 2011 17:32:40 +0200
Organization: Onet.pl
Lines: 28
Sender: news@newsgate.onet.pl
Message-ID: <5a65.00000437.4e5fa598@newsgate.onet.pl>
NNTP-Posting-Host: newsgate.m10r2.onet.pl
Mime-Version: 1.0
X-Trace: newsgate.onet.pl 1314891161 10019 213.180.150.14 (1 Sep 2011 15:32:41 GMT)
X-Complaints-To: niusy@onet.pl
NNTP-Posting-Date: Thu, 1 Sep 2011 15:32:41 +0000 (UTC)
X-Mailer: http://niusy.onet.pl
X-Forwarded-For: 83.25.175.45, 10.174.28.60
X-User-Agent: Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 5.1; Trident/4.0; chromeframe/13.0.782.218; Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 5.1; Trident/4.0; FDM); FDM)
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit