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

* when the stack size is overestimated so much that it's larger than the

Browse Source 
stack pointer (can happen for externally started threads), truncate it
    to a legal value (should stop crashes when enabling stack checking on
    iOS 6)

git-svn-id: trunk@23320 -
This commit is contained in:
Jonas Maebe 2013-01-06 15:05:16 +00:00
parent 51cce629e9
commit 5f3d762788
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
rtl/bsd/system.pp
View File

@ -314,7 +314,12 @@ begin
end; end;
function CheckInitialStkLen(stklen : SizeUInt) : SizeUInt; function CheckInitialStkLen(stklen : SizeUInt) : SizeUInt;
var
stackpointer: ptruint;
begin begin
stackpointer := (ptruint(sptr) + 4095) and not(4095);
if stklen > stackpointer then
stklen := stackpointer-4096;
result := stklen; result := stklen;
end; end;