/programs/develop/fp/rtl/system.pp |
---|
136,6 → 136,7 |
end; |
{$i kos_stdio.inc} |
{-$i kos_term.inc} |
procedure SysInitStdIO; |
begin |
186,12 → 187,13 |
SysResetFPU; |
StackLength := CheckInitialStkLen(InitialStkLen); |
StackBottom := Pointer(StackTop - StackLength); |
kos_initheap(); |
InitHeap; |
kos_initheap(); |
SysInitExceptions; |
FPC_CpuCodeInit(); |
InOutRes := 0; |
InitSystemThreads; |
if IsConsole then |
Konsole.Init(); |
SysInitStdIO; |
SetupCmdLine; |