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

pulseevent -> setevent

Browse Source
This commit is contained in:
peter 2005-02-08 16:28:27 +00:00
parent 357b6ee52b
commit 0d43ed87f0
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/win32/systhrd.inc
View File

@ -53,7 +53,6 @@ function WinGetCurrentThreadId : dword; stdcall;external 'kernel32' name 'GetCu
function CreateEvent(lpEventAttributes:pointer;bManualReset:longbool;bInitialState:longbool;lpName:pchar):CARDINAL; stdcall; external 'kernel32' name 'CreateEventA';
function ResetEvent(hEvent:CARDINAL):LONGBOOL; stdcall; external 'kernel32' name 'ResetEvent';
function SetEvent(hEvent:CARDINAL):LONGBOOL; stdcall; external 'kernel32' name 'SetEvent';
function PulseEvent(hEvent:THANDLE):CARDINAL {WINBOOL}; stdcall; external 'kernel32' name 'PulseEvent';
CONST
WAIT_OBJECT_0 = 0;
@ -394,7 +393,7 @@ end;
procedure intRTLEventSetEvent(AEvent: PRTLEvent);
begin
PulseEvent(THANDLE(AEvent));
SetEvent(THANDLE(AEvent));
end;
procedure intRTLEventStartWait(AEvent: PRTLEvent);
@ -459,7 +458,10 @@ end;
{
$Log$
Revision 1.1 2005-02-06 13:06:20 peter
Revision 1.2 2005-02-08 16:28:27 peter
pulseevent -> setevent
Revision 1.1 2005/02/06 13:06:20 peter
* moved file and dir functions to sysfile/sysdir
* win32 thread in systemunit