|
@@ -27,7 +27,7 @@ interface
|
|
|
{$ifndef NO_EXCEPTIONS_IN_SYSTEM}
|
|
{$ifndef NO_EXCEPTIONS_IN_SYSTEM}
|
|
|
{$define EXCEPTIONS_IN_SYSTEM}
|
|
{$define EXCEPTIONS_IN_SYSTEM}
|
|
|
{$endif NO_EXCEPTIONS_IN_SYSTEM}
|
|
{$endif NO_EXCEPTIONS_IN_SYSTEM}
|
|
|
-
|
|
|
|
|
|
|
+{$define USE_NOTHREADMANAGER}
|
|
|
|
|
|
|
|
{ include system-independent routine headers }
|
|
{ include system-independent routine headers }
|
|
|
|
|
|
|
@@ -648,11 +648,12 @@ Begin
|
|
|
FileNameCaseSensitive:=true;
|
|
FileNameCaseSensitive:=true;
|
|
|
{ Reset IO Error }
|
|
{ Reset IO Error }
|
|
|
InOutRes:=0;
|
|
InOutRes:=0;
|
|
|
|
|
+{$ifdef FPC_HAS_FEATURE_THREADING}
|
|
|
InitSystemThreads;
|
|
InitSystemThreads;
|
|
|
|
|
+{$endif}
|
|
|
{$ifdef EXCEPTIONS_IN_SYSTEM}
|
|
{$ifdef EXCEPTIONS_IN_SYSTEM}
|
|
|
InitDPMIExcp;
|
|
InitDPMIExcp;
|
|
|
InstallDefaultHandlers;
|
|
InstallDefaultHandlers;
|
|
|
{$endif EXCEPTIONS_IN_SYSTEM}
|
|
{$endif EXCEPTIONS_IN_SYSTEM}
|
|
|
initvariantmanager;
|
|
initvariantmanager;
|
|
|
- initwidestringmanager;
|
|
|
|
|
End.
|
|
End.
|
daniel