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

* Darwin/BSD: fixed StackBottom calculation

Browse Source 
git-svn-id: trunk@49139 -
This commit is contained in:
Jonas Maebe 2021-04-08 19:50:30 +00:00
parent ca399f3c71
commit 4166e8c464
1 changed files with 17 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
rtl/bsd/system.pp
View File

@ -350,13 +350,27 @@ begin
GetProcessID := SizeUInt (fpGetPID);
end;
function InternalPageSize: SizeUInt; inline;
begin
{$ifndef darwin}
InternalPageSize := 4096;
{$else not darwin}
InternalPageSize := darwin_page_size;
{$endif not darwin}
end;
function AlignedStackTop: Pointer;
begin
AlignedStackTop:=Pointer((ptruint(sptr) + InternalPageSize - 1) and not(InternalPageSize - 1));
end;
function CheckInitialStkLen(stklen : SizeUInt) : SizeUInt;
var
stackpointer: ptruint;
begin
stackpointer := (ptruint(sptr) + 4095) and not(4095);
stackpointer := ptruint(AlignedStackTop);
if stklen > stackpointer then
stklen := stackpointer-4096;
stklen := stackpointer - InternalPageSize;
result := stklen;
end;
@ -366,7 +380,7 @@ Begin
{$endif darwin}
IsConsole := TRUE;
StackLength := CheckInitialStkLen(InitialStkLen);
StackBottom := Sptr - StackLength;
StackBottom := AlignedStackTop - StackLength;
{$ifdef FPC_HAS_SETSYSNR_INC}
{ This procedure is needed for openbsd system which re-uses
the same syscall numbers depending on OS version }