Explorar o código

+ 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 %!s(int64=9) %!d(string=hai) anos
pai
achega
e0267e3088
Modificáronse 1 ficheiros con 3 adicións e 0 borrados
  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.