From 554056538a3b3ff3b4f2ee912bb7c562d1ae7143 Mon Sep 17 00:00:00 2001
From: marco <marco@3ad0048d-3df7-0310-abae-a5850022a9f2>
Date: Fri, 1 Sep 2017 11:42:04 +0000
Subject: --- Merging r36642 into '.': U    packages/fv/src/w32smsg.inc ---
 Recording mergeinfo for merge of r36642 into '.':  U   .

# revisions: 36642


git-svn-id: https://svn.freepascal.org/svn/fpc/branches/fixes_3_0@37100 3ad0048d-3df7-0310-abae-a5850022a9f2
---
 packages/fv/src/w32smsg.inc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/packages/fv/src/w32smsg.inc b/packages/fv/src/w32smsg.inc
index 8c2fbd1894..877b83f77b 100644
--- a/packages/fv/src/w32smsg.inc
+++ b/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;
-- 
cgit v1.2.1