Kaynağa Gözat

* change longint cast of pointer to ptrint #32096

git-svn-id: trunk@36642 -
marco 8 yıl önce
ebeveyn
işleme
cb0f89c4a8
1 değiştirilmiş dosya ile 1 ekleme ve 1 silme
  1. 1 1
      packages/fv/src/w32smsg.inc

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

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