fpc/rtl/ps1/system.pp

unit system;
interface

{$DEFINE FPCRTL_FILESYSTEM_SINGLE_BYTE_API}

{$I systemh.inc}

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
    maxExitCode = 255;
    AllowDirectorySeparators : set of AnsiChar = ['\','/'];
    DirectorySeparator = '/';
  { Default filehandles }
    UnusedHandle    = $ffff;{ instead of -1, as it is a word value}
    StdInputHandle  = 0;
    StdOutputHandle = 1;
    StdErrorHandle  = 2;
    CtrlZMarksEOF: boolean = true; (* #26 is considered as end of file *)
    DefaultTextLineBreakStyle : TTextLineBreakStyle = tlbsCR;
    LineEnding = #10;
    PathSeparator = '/';
    MaxPathLen = 255;
    LFNSupport = true;
    FileNameCaseSensitive = true;
    sLineBreak = #13;

{I ../mips/setjump.inc}
{$I system.inc}


procedure Randomize;
begin
  randseed:= 1234;
end;

function GetProcessID: LongWord;
begin
  result:= 0;
end;

function ParamCount: LongInt;
begin
  ParamCount:= 0;
end;

function ParamStr(l: LongInt): ShortString;
begin
  result:='';
end;

procedure SysInitStdIO;
begin
end;

function CheckInitialStkLen(stklen : SizeUInt) : SizeUInt;
begin
  result:= stklen;
end;

procedure system_exit;
begin
  repeat
  until false;
end;


begin
  InOutRes:= 0;
  _InitHeap(pdword($800F8000), $00100000);
end.