paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 09:09:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

Avoid wrap on 32-bit system for StackTop calculation

Browse Source 
git-svn-id: trunk@39735 -
This commit is contained in:
pierre 2018-09-11 13:10:59 +00:00
parent 70fae803ce
commit 16e2bdad5a
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/inc/system.inc
View File

@ -717,7 +717,11 @@ End;
{$ifndef FPC_SYSTEM_HAS_STACKTOP} {$ifndef FPC_SYSTEM_HAS_STACKTOP}
function StackTop: pointer; function StackTop: pointer;
begin begin
result:=StackBottom+StackLength; { Avoid wrap to zero on 32-bit }
if ptruint(StackBottom)+ StackLength > high(ptruint) then
result:=pointer(ptruint(high(ptruint)))
else
result:=StackBottom + StackLength;
end; end;
{$endif FPC_SYSTEM_HAS_STACKTOP} {$endif FPC_SYSTEM_HAS_STACKTOP}