浏览代码

atari: added the initialization of threading subsystem to system init

git-svn-id: trunk@34697 -
Károly Balogh 9 年之前
父节点
当前提交
42760951f9
共有 1 个文件被更改,包括 3 次插入3 次删除
  1. 3 3
      rtl/atari/system.pp

+ 3 - 3
rtl/atari/system.pp

@@ -267,9 +267,9 @@ begin
   SysInitStdIO;
 { Reset IO Error }
   InOutRes:=0;
-(* This should be changed to a real value during *)
-(* thread driver initialization if appropriate.  *)
-  ThreadID := 1;
 { Setup command line arguments }
 //  argc:=GetParamCount(args);
+{$ifdef FPC_HAS_FEATURE_THREADING}
+  InitSystemThreads;
+{$endif}
 end.