paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-30 12:20:19 +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); currenttm.rtleventWaitForTimeout(state,timeout);
end; end;
procedure RTLeventsync(m:trtlmethod;p:tprocedure);
begin
currenttm.rtleventsync(m,p);
end;
{ --------------------------------------------------------------------- { ---------------------------------------------------------------------
ThreadManager which gives run-time error. Use if no thread support. ThreadManager which gives run-time error. Use if no thread support.
---------------------------------------------------------------------} ---------------------------------------------------------------------}
@ -484,14 +477,6 @@ begin
end; end;
procedure NoRTLEventSync(m:trtlmethod;p:tprocedure);
begin
if IsMultiThread then
NoThreadError
else
ThreadingAlreadyUsed:=true;
end;
function NoSemaphoreInit: Pointer; function NoSemaphoreInit: Pointer;
begin begin
if IsMultiThread then if IsMultiThread then
@ -551,7 +536,6 @@ const
rtleventSetEvent : TRTLEventHandler(@NoThreadError); rtleventSetEvent : TRTLEventHandler(@NoThreadError);
rtleventResetEvent : TRTLEventHandler(@NoThreadError); rtleventResetEvent : TRTLEventHandler(@NoThreadError);
rtleventWaitFor : TRTLEventHandler(@NoThreadError); rtleventWaitFor : TRTLEventHandler(@NoThreadError);
rtleventsync : TRTLEventSyncHandler(@NoThreadError);
rtleventwaitfortimeout : TRTLEventHandlerTimeout(@NoThreadError); rtleventwaitfortimeout : TRTLEventHandlerTimeout(@NoThreadError);
SemaphoreInit : TSempahoreInitHandler(@NoThreadError); SemaphoreInit : TSempahoreInitHandler(@NoThreadError);
SemaphoreDestroy : TSemaphoreDestroyHandler(@NoThreadError); SemaphoreDestroy : TSemaphoreDestroyHandler(@NoThreadError);
@ -588,7 +572,6 @@ const
rtleventSetEvent : @NoRTLevent; rtleventSetEvent : @NoRTLevent;
rtleventResetEvent : @NoRTLEvent; rtleventResetEvent : @NoRTLEvent;
rtleventWaitFor : @NoRTLEvent; rtleventWaitFor : @NoRTLEvent;
rtleventsync : @NoRTLEventSync;
rtleventwaitfortimeout : @NoRTLEventWaitForTimeout; rtleventwaitfortimeout : @NoRTLEventWaitForTimeout;
SemaphoreInit : @NoSemaphoreInit; SemaphoreInit : @NoSemaphoreInit;
SemaphoreDestroy : @NoSemaphore; SemaphoreDestroy : @NoSemaphore;

3
rtl/inc/threadh.inc
View File

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