paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-15 14:19:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

- removed unimplemented/unsupported rtleventsync (mantis #23332)

Browse Source 
git-svn-id: trunk@23012 -
This commit is contained in:
Jonas Maebe 2012-11-18 10:23:48 +00:00
parent d3d0df6e4d
commit dfe59e6838
2 changed files with 0 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
rtl/inc/thread.inc
View File

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

3
rtl/inc/threadh.inc
View File

@ -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);