Subversion Repositories Kolibri OS

Rev

Rev 616 | Rev 790 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 616 Rev 666
Line 134... Line 134...
134 
  {TODO}
 134 
  {TODO}
135 
  Result := stklen;
 135 
  Result := stklen;
136 
end;
 136 
end;
Line 137... Line 137...
137 
 
 137 
 
- 
 
 138 
{$i kos_stdio.inc}
Line 138... Line 139...
138 
{$i kos_stdio.inc}
 139 
{-$i kos_term.inc}
139 
 
 140 
 
140 
procedure SysInitStdIO;
 141 
procedure SysInitStdIO;
141 
begin
 142 
begin
Line 184... Line 185...
184 
 
 185 
 
185 
begin
 186 
begin
186 
  SysResetFPU;
 187 
  SysResetFPU;
187 
  StackLength := CheckInitialStkLen(InitialStkLen);
 188 
  StackLength := CheckInitialStkLen(InitialStkLen);
188 
  StackBottom := Pointer(StackTop - StackLength);
 - 
 
189 
  InitHeap;
 189 
  StackBottom := Pointer(StackTop - StackLength);
- 
 
 190 
  kos_initheap();
190 
  kos_initheap();
 191 
  InitHeap;
191 
  SysInitExceptions;
 192 
  SysInitExceptions;
192 
  FPC_CpuCodeInit();
 193 
  FPC_CpuCodeInit();
193 
  InOutRes := 0;
 194 
  InOutRes := 0;
- 
 
 195 
  InitSystemThreads;
194 
  InitSystemThreads;
 196 
  if IsConsole then
195 
  Konsole.Init();
 197 
    Konsole.Init();
196 
  SysInitStdIO;
 198 
  SysInitStdIO;
197 
  SetupCmdLine;
 199 
  SetupCmdLine;
198 
  InitVariantManager;
 200 
  InitVariantManager;