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

* PS1 system unit: moved constants that should be public to the interface part

Browse Source
This commit is contained in:
Nikolay Nikolov 2024-09-29 21:11:39 +03:00
parent b8154e3877
commit 23a66d21bd
1 changed files with 11 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
rtl/ps1/system.pp
View File

@ -16,18 +16,6 @@ interface
{$endif FPUNONE} {$endif FPUNONE}
var
argc:longint=0;
argv:PPAnsiChar;
envp:PPAnsiChar;
implementation
procedure _InitHeap(p: pdword; l: dword); external name 'InitHeap2';
procedure _free(p: pointer); external name 'free2';
function _malloc(l: dword): pointer; external name 'malloc2';
const const
maxExitCode = 255; maxExitCode = 255;
AllowDirectorySeparators : set of AnsiChar = ['\','/']; AllowDirectorySeparators : set of AnsiChar = ['\','/'];
@ -46,6 +34,17 @@ const
FileNameCaseSensitive = true; FileNameCaseSensitive = true;
sLineBreak = #13; sLineBreak = #13;
var
argc:longint=0;
argv:PPAnsiChar;
envp:PPAnsiChar;
implementation
procedure _InitHeap(p: pdword; l: dword); external name 'InitHeap2';
procedure _free(p: pointer); external name 'free2';
function _malloc(l: dword): pointer; external name 'malloc2';
{I ../mips/setjump.inc} {I ../mips/setjump.inc}
{$I system.inc} {$I system.inc}