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