diff options
| author | marco <marco@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2017-09-01 11:42:04 +0000 |
|---|---|---|
| committer | marco <marco@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2017-09-01 11:42:04 +0000 |
| commit | 554056538a3b3ff3b4f2ee912bb7c562d1ae7143 (patch) | |
| tree | d20173690cdd04ae0f0ced78c9a142a0184cbcbe | |
| parent | 7b65ef7206fc88e0b3adaf5f0bb64c72ff89c8da (diff) | |
| download | fpc-554056538a3b3ff3b4f2ee912bb7c562d1ae7143.tar.gz | |
--- 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
| -rw-r--r-- | packages/fv/src/w32smsg.inc | 2 |
1 files changed, 1 insertions, 1 deletions
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; |