Bladeren bron

* preparation for 64-bit amiga support (:-))

git-svn-id: trunk@36643 -
marco 8 jaren geleden
bovenliggende
commit
0eaa8c2a57
1 gewijzigde bestanden met toevoegingen van 1 en 1 verwijderingen
  1. 1 1
      packages/fv/src/amismsg.inc

+ 1 - 1
packages/fv/src/amismsg.inc

@@ -65,7 +65,7 @@ begin
     exit;
     exit;
   SystemEvent:=PendingSystemHead^;
   SystemEvent:=PendingSystemHead^;
   inc(PendingSystemHead);
   inc(PendingSystemHead);
-  if longint(PendingSystemHead)=longint(@PendingSystemEvent)+sizeof(PendingSystemEvent) then
+  if ptrint(PendingSystemHead)=ptrint(@PendingSystemEvent)+sizeof(PendingSystemEvent) then
    PendingSystemHead:=@PendingSystemEvent;
    PendingSystemHead:=@PendingSystemEvent;
   dec(PendingSystemEvents);
   dec(PendingSystemEvents);
   LastSystemEvent:=SystemEvent;
   LastSystemEvent:=SystemEvent;