paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-05 16:07:28 +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 begin
PendingSystemTail^:=SystemEvent; PendingSystemTail^:=SystemEvent;
inc(PendingSystemTail); inc(PendingSystemTail);
if longint(PendingSystemTail)=longint(@PendingSystemEvent)+sizeof(PendingSystemEvent) then if PtrUInt(PendingSystemTail)=PtrUInt(@PendingSystemEvent)+sizeof(PendingSystemEvent) then
PendingSystemTail:=@PendingSystemEvent; PendingSystemTail:=@PendingSystemEvent;
inc(PendingSystemEvents); inc(PendingSystemEvents);
end; end;

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

@ -2112,7 +2112,7 @@ BEGIN
Tp := Last; { Set temporary ptr } Tp := Last; { Set temporary ptr }
Repeat Repeat
Tp := Tp^.Next; { Get next view } 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, { On most systems, locals are accessed relative to base pointer,
but for MIPS cpu, they are accessed relative to stack pointer. but for MIPS cpu, they are accessed relative to stack pointer.
This needs adaptation for so low level routines, This needs adaptation for so low level routines,

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

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