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

+ PS1: set the IsConsole and IsLibrary in the system unit startup

Browse Source
This commit is contained in:
Nikolay Nikolov 2024-10-05 00:11:13 +03:00
parent 9662462d10
commit f3ffadb217
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/ps1/system.pp
View File

@ -123,6 +123,12 @@ begin
StackLength:=CheckInitialStkLen(stklen); StackLength:=CheckInitialStkLen(stklen);
StackBottom:=Pointer(PtrUInt($80200000)-PtrUInt(StackLength)); StackBottom:=Pointer(PtrUInt($80200000)-PtrUInt(StackLength));
{ Debug printing via writeln (visible in emulator logs) is possible, so
pretend to be a console application. }
IsConsole := TRUE;
{ To be set if this is a library and not a program }
IsLibrary := FALSE;
{ Setup heap } { Setup heap }
_InitHeap(pdword(@bss_end),PtrUInt(StackBottom)-PtrUInt(@bss_end)); _InitHeap(pdword(@bss_end),PtrUInt(StackBottom)-PtrUInt(@bss_end));
InitHeap; InitHeap;