From c95cf176f4aed023a324f81c6538d1f5c5f3b944 Mon Sep 17 00:00:00 2001
From: daniel <daniel@freepascal.org>
Date: Sat, 17 Feb 2007 09:25:58 +0000
Subject: [PATCH]   + Add {$ifdef FPC_HAS_FEATURE_THREADING}

git-svn-id: trunk@6523 -
---
 rtl/go32v2/system.pp | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/rtl/go32v2/system.pp b/rtl/go32v2/system.pp
index 79aa990c17..8991035271 100644
--- a/rtl/go32v2/system.pp
+++ b/rtl/go32v2/system.pp
@@ -27,7 +27,7 @@ interface
 {$ifndef NO_EXCEPTIONS_IN_SYSTEM}
 {$define EXCEPTIONS_IN_SYSTEM}
 {$endif NO_EXCEPTIONS_IN_SYSTEM}
-
+{$define USE_NOTHREADMANAGER}
 
 { include system-independent routine headers }
 
@@ -648,11 +648,12 @@ Begin
    FileNameCaseSensitive:=true;
 { Reset IO Error }
   InOutRes:=0;
+{$ifdef FPC_HAS_FEATURE_THREADING}
   InitSystemThreads;
+{$endif}
 {$ifdef  EXCEPTIONS_IN_SYSTEM}
   InitDPMIExcp;
   InstallDefaultHandlers;
 {$endif  EXCEPTIONS_IN_SYSTEM}
   initvariantmanager;
-  initwidestringmanager;
 End.