paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-05 09:47:25 +01:00
Code Issues Packages Projects Releases Wiki Activity

* patch by Joe care to make fv more 64 Bit save, resolves #37772

Browse Source 
git-svn-id: trunk@46893 -
(cherry picked from commit b596b71130)
This commit is contained in:
florian 2020-09-18 19:28:53 +00:00 committed by marcoonthegit
parent 3f8bf07d54
commit 7d3534de20
3 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/fv/src/sysmsg.pas
View File

@ -104,7 +104,7 @@ begin
begin
PendingSystemTail^:=SystemEvent;
inc(PendingSystemTail);
if longint(PendingSystemTail)=longint(@PendingSystemEvent)+sizeof(PendingSystemEvent) then
if PtrUInt(PendingSystemTail)=PtrUInt(@PendingSystemEvent)+sizeof(PendingSystemEvent) then
PendingSystemTail:=@PendingSystemEvent;
inc(PendingSystemEvents);
end;

2
packages/fv/src/views.pas
View File

@ -2112,7 +2112,7 @@ BEGIN
Tp := Last; { Set temporary ptr }
Repeat
Tp := Tp^.Next; { Get next view }
IF Byte(Longint(CallPointerMethodLocal(P,
IF Byte(PtrUInt(CallPointerMethodLocal(P,
{ On most systems, locals are accessed relative to base pointer,
but for MIPS cpu, they are accessed relative to stack pointer.
This needs adaptation for so low level routines,

2
packages/fv/src/w32smsg.inc
View File

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