Browse Source

* added define DISABLE_NO_THREAD_MANAGER to avoid warnings if thread manager is always present

armin 21 years ago
parent
commit
a23c3f4dd9
2 changed files with 15 additions and 6 deletions
  1. 6 2
      rtl/inc/thread.inc
  2. 9 4
      rtl/inc/threadh.inc

+ 6 - 2
rtl/inc/thread.inc

@@ -234,6 +234,7 @@ end;
     ThreadManager which gives run-time error. Use if no thread support.
   ---------------------------------------------------------------------}
 
+{$ifndef DISABLE_NO_THREAD_MANAGER}
 
 Resourcestring
   SNoThreads = 'This binary has no thread support compiled in.';
@@ -390,11 +391,14 @@ begin
     end;
   SetThreadManager(NoThreadManager);
 end;
-
+{$endif DISABLE_NO_THREAD_MANAGER}
 
 {
   $Log$
-  Revision 1.11  2004-05-23 20:26:20  marco
+  Revision 1.12  2004-09-19 18:55:30  armin
+  * added define DISABLE_NO_THREAD_MANAGER to avoid warnings if thread manager is always present
+
+  Revision 1.11  2004/05/23 20:26:20  marco
    * wrappers and nothread prototypes for the basic* functions
 
   Revision 1.10  2004/02/22 23:22:49  florian

+ 9 - 4
rtl/inc/threadh.inc

@@ -65,9 +65,9 @@ type
     AllocateThreadVars     : TAllocateThreadVarsHandler;
     ReleaseThreadVars      : TReleaseThreadVarsHandler;
     BasicEventCreate	   : TBasicEventCreateHandler;
-    BasicEventDestroy	   : TBasicEventHandler; 
-    BasicEventResetEvent   : TBasicEventHandler; 
-    BasicEventSetEvent     : TBasicEventHandler; 
+    BasicEventDestroy	   : TBasicEventHandler;
+    BasicEventResetEvent   : TBasicEventHandler;
+    BasicEventSetEvent     : TBasicEventHandler;
     BasiceventWaitFOr	   : TBasicEventWaitForHandler;
   end;
 
@@ -79,7 +79,9 @@ type
 Function GetThreadManager(Var TM : TThreadManager) : Boolean;
 Function SetThreadManager(Const NewTM : TThreadManager; Var OldTM : TThreadManager) : Boolean;
 Function SetThreadManager(Const NewTM : TThreadManager) : Boolean;
+{$ifndef DISABLE_NO_THREAD_MANAGER}
 Procedure SetNoThreadManager;
+{$endif DISABLE_NO_THREAD_MANAGER}
 // Needs to be exported, so the manager can call it.
 {$ifdef HASTHREADVAR}
 procedure InitThreadVars(RelocProc : Pointer);
@@ -143,7 +145,10 @@ function  basiceventWaitFor(Timeout : Cardinal;state:peventstate) : longint;
 
 {
   $Log$
-  Revision 1.18  2004-05-23 20:26:20  marco
+  Revision 1.19  2004-09-19 18:55:30  armin
+  * added define DISABLE_NO_THREAD_MANAGER to avoid warnings if thread manager is always present
+
+  Revision 1.18  2004/05/23 20:26:20  marco
    * wrappers and nothread prototypes for the basic* functions
 
   Revision 1.17  2004/05/23 15:30:29  marco