paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-06 07:47:59 +02:00
Code Issues Packages Projects Releases Wiki Activity

* stack checking checks also proper alignment

Browse Source 
git-svn-id: trunk@43011 -
This commit is contained in:
florian 2019-09-15 17:17:30 +00:00
parent bd35c02257
commit 1872bee116
1 changed files with 15 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
rtl/inc/system.inc
View File

@ -951,15 +951,25 @@ begin
{ Avoid recursive calls when called from the exit routines }
if StackError then
exit;
{ don't use sack_size, since the stack pointer has already been
{ check stack alignment }
{$ifdef CPUI386}
{$ifdef FPC_STACKALIGNMENT=16}
if ((PtrUInt(Sptr)+4) mod 16)<>0 then
begin
StackError:=true;
HandleError(202);
end;
{$endif FPC_STACKALIGNMENT=16}
{$endif CPUI386}
{ don't use stack_size, since the stack pointer has already been
decreased when this routine is called
}
c := Sptr - STACK_MARGIN;
if (c <= StackBottom) then
begin
StackError:=true;
HandleError(202);
end;
begin
StackError:=true;
HandleError(202);
end;
end;
{$POP}