- removed unimplemented/unsupported rtleventsync (mantis #23332)

git-svn-id: trunk@23012 -

rtl/inc/thread.inc

@@ -314,13 +314,6 @@ begin
   currenttm.rtleventWaitForTimeout(state,timeout);
 end;
 
-procedure RTLeventsync(m:trtlmethod;p:tprocedure);
-
-begin
-  currenttm.rtleventsync(m,p);
-end;
-
-
 { ---------------------------------------------------------------------
     ThreadManager which gives run-time error. Use if no thread support.
   ---------------------------------------------------------------------}
@@ -484,14 +477,6 @@ begin
 end;
 
 
-procedure NoRTLEventSync(m:trtlmethod;p:tprocedure);
-begin
-  if IsMultiThread then
-    NoThreadError
-  else
-    ThreadingAlreadyUsed:=true;
-end;
-
 function NoSemaphoreInit: Pointer;
 begin
   if IsMultiThread then
@@ -551,7 +536,6 @@ const
          rtleventSetEvent       : TRTLEventHandler(@NoThreadError);
          rtleventResetEvent     : TRTLEventHandler(@NoThreadError);
          rtleventWaitFor        : TRTLEventHandler(@NoThreadError);
-         rtleventsync           : TRTLEventSyncHandler(@NoThreadError);
          rtleventwaitfortimeout : TRTLEventHandlerTimeout(@NoThreadError);
          SemaphoreInit          : TSempahoreInitHandler(@NoThreadError);
          SemaphoreDestroy       : TSemaphoreDestroyHandler(@NoThreadError);
@@ -588,7 +572,6 @@ const
          rtleventSetEvent       : @NoRTLevent;
          rtleventResetEvent     : @NoRTLEvent;
          rtleventWaitFor        : @NoRTLEvent;
-         rtleventsync           : @NoRTLEventSync;
          rtleventwaitfortimeout : @NoRTLEventWaitForTimeout;
          SemaphoreInit          : @NoSemaphoreInit;
          SemaphoreDestroy       : @NoSemaphore;

rtl/inc/threadh.inc

@@ -46,7 +46,6 @@ type
   TRTLEventHandler          = procedure(AEvent:PRTLEvent);
   TRTLEventHandlerTimeout   = procedure(AEvent:PRTLEvent;timeout : longint);
   TRTLCreateEventHandler    = function:PRTLEvent;
-  TRTLEventSyncHandler      = procedure (m:trtlmethod;p:tprocedure);
   // semaphores stuff
   TSempahoreInitHandler     = function: Pointer;
   TSemaphoreDestroyHandler  = procedure (const sem: Pointer);
@@ -87,7 +86,6 @@ type
     RTLEventSetEvent       : TRTLEventHandler;
     RTLEventResetEvent     : TRTLEventHandler;
     RTLEventWaitFor        : TRTLEventHandler;
-    RTLEventSync           : TRTLEventSyncHandler;
     RTLEventWaitForTimeout : TRTLEventHandlerTimeout;
     // semaphores stuff
     SemaphoreInit          : TSempahoreInitHandler;
@@ -163,5 +161,4 @@ procedure RTLeventSetEvent(state:pRTLEvent);
 procedure RTLeventResetEvent(state:pRTLEvent);
 procedure RTLeventWaitFor(state:pRTLEvent);
 procedure RTLeventWaitFor(state:pRTLEvent;timeout : longint);
-procedure RTLeventsync(m:trtlmethod;p:tprocedure);