* PS1: call InitHeap to finish the Pascal part of the heap initialization

rtl/ps1/system.pp

@@ -116,7 +116,10 @@ end;
 begin
   StackLength:=CheckInitialStkLen(stklen);
   StackBottom:=Pointer(PtrUInt($80200000)-PtrUInt(StackLength));
+
+  { Setup heap }
   _InitHeap(pdword(@bss_end),PtrUInt(StackBottom)-PtrUInt(@bss_end));
+  InitHeap;
 
   InOutRes:= 0;
 end.