paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-03 15:29:26 +01:00
Code Issues Packages Projects Releases Wiki Activity

set stack top to 801FFFF0 as in system.cnf

Browse Source
This commit is contained in:
Kirill Kranz 2024-11-09 02:43:20 +01:00 committed by FPK
parent f6726b6a87
commit c3ad885277
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/ps1/system.pp
View File

@ -114,7 +114,7 @@ const
var
MaxStack: SizeInt;
begin
MaxStack:=SizeInt(PtrUInt($80200000)-PtrUInt(@bss_end))-MinHeap;
MaxStack:=SizeInt(PtrUInt($801FFFF0)-PtrUInt(@bss_end))-MinHeap;
if stklen<MaxStack then
result:= stklen
else
@ -139,7 +139,7 @@ end;
begin
StackLength:=CheckInitialStkLen(stklen);
StackBottom:=Pointer(PtrUInt($80200000)-PtrUInt(StackLength));
StackBottom:=Pointer(PtrUInt($801FFFF0)-PtrUInt(StackLength));
{ Debug printing via writeln (visible in emulator logs) is possible, so
pretend to be a console application. }