* another "transfer to linux"-commit

rtl/inc/thread.inc

@@ -256,12 +256,6 @@ begin
   currenttm.rtleventsync(m,p);
 end;
 
-procedure RTLchecksynchronize;
-
-begin
- currenttm.rtlchksyncunix;
-end;
-
 
 { ---------------------------------------------------------------------
     ThreadManager which gives run-time error. Use if no thread support.
@@ -427,15 +421,6 @@ begin
 end;
 
 
-procedure NORTLChkSyncUnix;
-
-begin
-  NoThreadError;
-end;
-
-
-
-
 Var
   NoThreadManager : TThreadManager;
 
@@ -475,7 +460,6 @@ begin
     rtleventStartWait      :=@NortleventStartWait;
     rtleventWaitFor        :=@NortleventWaitFor;
     rtleventsync           :=@Nortleventsync;
-    rtlchksyncunix         :=@nortlchksyncunix;
     end;
   SetThreadManager(NoThreadManager);
 end;
@@ -483,7 +467,10 @@ end;
 
 {
   $Log$
-  Revision 1.22  2005-02-14 17:13:29  peter
+  Revision 1.23  2005-02-25 22:02:46  florian
+    * another "transfer to linux"-commit
+
+  Revision 1.22  2005/02/14 17:13:29  peter
     * truncate log
 
   Revision 1.21  2005/02/07 17:36:54  peter

rtl/inc/threadh.inc

@@ -46,7 +46,6 @@ type
   TRTLEventHandler          = procedure(AEvent:PRTLEvent);
   TRTLCreateEventHandler    = function:PRTLEvent;
   TRTLEventSyncHandler      = procedure (m:trtlmethod;p:tprocedure);
-  TRTLCheckSyncUnixHandler  = procedure;
 
   // TThreadManager interface.
   TThreadManager = Record
@@ -81,7 +80,6 @@ type
     RTLEventStartWait      : TRTLEventHandler;
     RTLEventWaitFor        : TRTLEventHandler;
     RTLEventSync           : TRTLEventSyncHandler;
-    RTLChkSyncUnix         : TRTLCheckSyncUnixHandler;
   end;
 
 {*****************************************************************************
@@ -149,11 +147,13 @@ procedure RTLeventSetEvent(state:pRTLEvent);
 procedure RTLeventStartWait(state:pRTLEvent);
 procedure RTLeventWaitFor(state:pRTLEvent);
 procedure RTLeventsync(m:trtlmethod;p:tprocedure);
-procedure RTLchecksynchronize;
 
 {
   $Log$
-  Revision 1.27  2005-02-14 17:13:29  peter
+  Revision 1.28  2005-02-25 22:02:48  florian
+    * another "transfer to linux"-commit
+
+  Revision 1.27  2005/02/14 17:13:29  peter
     * truncate log
 
   Revision 1.26  2005/02/06 11:20:52  peter

rtl/unix/cthreads.pp

@@ -563,20 +563,11 @@ begin
 {$ifdef DEBUG_MT}
   Writeln('InitThreads : ',Result);
 {$endif DEBUG_MT}
- {$ifndef ver1_0}
-    InitCriticalSection(SynchronizeCritSect);
-    ExecuteEvent := RtlEventCreate;
-    SynchronizeMethod := nil;
-  {$endif}
 end;
 
 Function CDoneThreads : Boolean;
 
 begin
-  {$ifndef ver1_0}
-    DoneCriticalSection(SynchronizeCritSect);
-    RtlEventDestroy(ExecuteEvent);
-  {$endif}
 {$ifndef dynpthreads}
   Result:=True;
 {$else}
@@ -626,7 +617,6 @@ begin
     rtlEventStartWait      :=@intrtlEventStartWait;
     rtleventWaitFor        :=@intrtleventWaitFor;
     rtleventsync           :=trtleventsynchandler(@intrtleventsync);
-    rtlchksyncunix         :=@checksynchronize;
     end;
   SetThreadManager(CThreadManager);
   InitHeapMutexes;
@@ -639,7 +629,10 @@ finalization
 end.
 {
   $Log$
-  Revision 1.22  2005-02-25 21:52:07  florian
+  Revision 1.23  2005-02-25 22:02:48  florian
+    * another "transfer to linux"-commit
+
+  Revision 1.22  2005/02/25 21:52:07  florian
     * "transfer to linux"-commit
 
   Revision 1.21  2005/02/14 17:13:31  peter