Browse Source

+ call InitSystemThreads in the msdos system unit startup, to initialize the
thread manager object, so that rtl calls to InitCriticalSection don't crash

git-svn-id: trunk@34681 -

nickysn 8 years ago
parent
commit
e0267e3088
1 changed files with 3 additions and 0 deletions
  1. 3 0
      rtl/msdos/system.pp

+ 3 - 0
rtl/msdos/system.pp

@@ -569,4 +569,7 @@ begin
    AllFilesMask := '*.*';
 { Reset IO Error }
   InOutRes:=0;
+{$ifdef FPC_HAS_FEATURE_THREADING}
+  InitSystemThreads;
+{$endif}
 end.