paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-28 16:21:34 +01:00
Code Issues Packages Projects Releases Wiki Activity

+ Add {$ifdef FPC_HAS_FEATURE_THREADING}

Browse Source 
git-svn-id: trunk@6523 -
This commit is contained in:
daniel 2007-02-17 09:25:58 +00:00
parent 5e13ba03e6
commit c95cf176f4
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
rtl/go32v2/system.pp
View File

@ -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.