paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-13 12:39:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

* wrappers and nothread prototypes for the basic* functions

Browse Source
This commit is contained in:
marco 2004-05-23 20:26:20 +00:00
parent 5e2a95d4fe
commit 6ae2f1b4dd
2 changed files with 81 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

72
rtl/inc/thread.inc
View File

@ -199,6 +199,37 @@ begin
end; end;
end; end;
function BasicEventCreate(EventAttributes : Pointer; AManualReset,InitialState : Boolean;const Name : ansistring):pEventState;
begin
result:=currenttm.BasicEventCreate(EventAttributes,AManualReset,InitialState, Name);
end;
procedure basiceventdestroy(state:peventstate);
begin
currenttm.basiceventdestroy(state);
end;
procedure basiceventResetEvent(state:peventstate);
begin
currenttm.basiceventResetEvent(state);
end;
procedure basiceventSetEvent(state:peventstate);
begin
currenttm.basiceventSetEvent(state);
end;
function basiceventWaitFor(Timeout : Cardinal;state:peventstate) : longint;
begin
result:=currenttm.basiceventWaitFor(Timeout,state);
end;
{ --------------------------------------------------------------------- { ---------------------------------------------------------------------
ThreadManager which gives run-time error. Use if no thread support. ThreadManager which gives run-time error. Use if no thread support.
---------------------------------------------------------------------} ---------------------------------------------------------------------}
@ -292,6 +323,36 @@ begin
NoThreadError; NoThreadError;
end; end;
function noBasicEventCreate(EventAttributes : Pointer; AManualReset,InitialState : Boolean;const Name : ansistring):pEventState;
begin
NoThreadError;
end;
procedure nobasiceventdestroy(state:peventstate);
begin
NoThreadError;
end;
procedure nobasiceventResetEvent(state:peventstate);
begin
NoThreadError;
end;
procedure nobasiceventSetEvent(state:peventstate);
begin
NoThreadError;
end;
function nobasiceventWaitFor(Timeout : Cardinal;state:peventstate) : longint;
begin
NoThreadError;
end;
Var Var
NoThreadManager : TThreadManager; NoThreadManager : TThreadManager;
@ -320,6 +381,12 @@ begin
RelocateThreadVar :=@NoRelocateThreadVar; RelocateThreadVar :=@NoRelocateThreadVar;
AllocateThreadVars :=@NoAllocateThreadVars; AllocateThreadVars :=@NoAllocateThreadVars;
ReleaseThreadVars :=@NoReleaseThreadVars; ReleaseThreadVars :=@NoReleaseThreadVars;
BasicEventCreate :=@NoBasicEventCreate;
basiceventdestroy :=@Nobasiceventdestroy;
basiceventResetEvent :=@NobasiceventResetEvent;
basiceventSetEvent :=@NobasiceventSetEvent;
basiceventWaitFor :=@NobasiceventWaitFor;
end; end;
SetThreadManager(NoThreadManager); SetThreadManager(NoThreadManager);
end; end;
@ -327,7 +394,10 @@ end;
{ {
$Log$ $Log$
Revision 1.10 2004-02-22 23:22:49 florian 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
* fixed BeginThread on unix * fixed BeginThread on unix
Revision 1.9 2004/02/22 16:48:39 florian Revision 1.9 2004/02/22 16:48:39 florian

12
rtl/inc/threadh.inc
View File

@ -135,9 +135,18 @@ procedure DoneCriticalsection(var cs : TRTLCriticalSection);
procedure EnterCriticalsection(var cs : TRTLCriticalSection); procedure EnterCriticalsection(var cs : TRTLCriticalSection);
procedure LeaveCriticalsection(var cs : TRTLCriticalSection); procedure LeaveCriticalsection(var cs : TRTLCriticalSection);
function BasicEventCreate(EventAttributes : Pointer; AManualReset,InitialState : Boolean;const Name : ansistring):pEventState;
procedure basiceventdestroy(state:peventstate);
procedure basiceventResetEvent(state:peventstate);
procedure basiceventSetEvent(state:peventstate);
function basiceventWaitFor(Timeout : Cardinal;state:peventstate) : longint;
{ {
$Log$ $Log$
Revision 1.17 2004-05-23 15:30:29 marco 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
* first try basicevent * first try basicevent
Revision 1.16 2004/02/22 23:22:49 florian Revision 1.16 2004/02/22 23:22:49 florian
@ -173,5 +182,4 @@ procedure LeaveCriticalsection(var cs : TRTLCriticalSection);
Revision 1.6 2002/07/28 20:43:48 florian Revision 1.6 2002/07/28 20:43:48 florian
* several fixes for linux/powerpc * several fixes for linux/powerpc
* several fixes to MT * several fixes to MT
} }