fpc/rtl/ps1/system.pp

unit system;
interface

{$define FPC_IS_SYSTEM}
{$DEFINE FPCRTL_FILESYSTEM_SINGLE_BYTE_API}
{$define FPC_HAS_FEATURE_DYNLIBS}
{$define FPC_HAS_FEATURE_INITFINAL}
{$define FPC_HAS_FEATURE_ANSISTRINGS}
{define USE_NOTHREADMANAGER}
{$define FPC_HAS_FEATURE_THREADING}

{$I systemh.inc}

var
  argc:longint=0;
  argv:PPAnsiChar;
  envp:PPAnsiChar;

implementation

procedure _InitHeap(p: pdword; l: dword); external name 'InitHeap';
procedure _free(p: pointer); external name 'free';
function _malloc(l: dword): pointer; external name 'malloc';


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);
  InitSystemThreads;
end.