瀏覽代碼

pulseevent -> setevent

peter 20 年之前
父節點
當前提交
0d43ed87f0
共有 1 個文件被更改,包括 5 次插入3 次删除
  1. 5 3
      rtl/win32/systhrd.inc

+ 5 - 3
rtl/win32/systhrd.inc

@@ -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  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  ResetEvent(hEvent:CARDINAL):LONGBOOL; stdcall; external 'kernel32' name 'ResetEvent';
 function  SetEvent(hEvent:CARDINAL):LONGBOOL; stdcall; external 'kernel32' name 'SetEvent';
 function  SetEvent(hEvent:CARDINAL):LONGBOOL; stdcall; external 'kernel32' name 'SetEvent';
-function PulseEvent(hEvent:THANDLE):CARDINAL {WINBOOL}; stdcall; external 'kernel32' name 'PulseEvent';
 
 
 CONST
 CONST
    WAIT_OBJECT_0 = 0;
    WAIT_OBJECT_0 = 0;
@@ -394,7 +393,7 @@ end;
 
 
 procedure intRTLEventSetEvent(AEvent: PRTLEvent);
 procedure intRTLEventSetEvent(AEvent: PRTLEvent);
 begin
 begin
-  PulseEvent(THANDLE(AEvent));
+  SetEvent(THANDLE(AEvent));
 end;
 end;
 
 
 procedure intRTLEventStartWait(AEvent: PRTLEvent);
 procedure intRTLEventStartWait(AEvent: PRTLEvent);
@@ -459,7 +458,10 @@ end;
 
 
 {
 {
   $Log$
   $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
     * moved file and dir functions to sysfile/sysdir
     * win32 thread in systemunit
     * win32 thread in systemunit