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

+ Some improvements for the Linux version

Browse Source
This commit is contained in:
michael 2003-06-14 19:14:58 +00:00
parent 70f3a0c08e
commit 4e7f8ce823
2 changed files with 21 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
fcl/inc/syncobh.inc
View File

@ -22,10 +22,8 @@ type
end;
TCriticalSection = class(TSyncroObject)
{$ifdef win32}
private
CriticalSection : TRTLCriticalSection;
{$endif win32}
public
procedure Acquire;override;
procedure Release;override;
@ -46,12 +44,18 @@ type
end;
TEventObject = class(THandleObject)
private
FSem: Pointer;
FManualReset: Boolean;
FEventSection: TCriticalSection;
public
constructor Create(EventAttributes : PSecurityAttributes;
ManualReset,InitialState : Boolean;const Name : string);
AManualReset,InitialState : Boolean;const Name : string);
destructor destroy; override;
procedure ResetEvent;
procedure SetEvent;
function WaitFor(Timeout : Cardinal) : TWaitResult;
Property ManualReset : Boolean read FManualReset;
end;
TEvent = TEventObject;
@ -62,7 +66,10 @@ type
{
$Log$
Revision 1.5 2003-06-11 12:00:09 michael
Revision 1.6 2003-06-14 19:14:58 michael
+ Some improvements for the Linux version
Revision 1.5 2003/06/11 12:00:09 michael
+ Implemented Win32 of syncobjs
Revision 1.4 2002/09/07 15:15:26 peter

11
fcl/win32/syncobjs.pp
View File

@ -72,6 +72,12 @@ begin
FHandle := CreateEvent(EventAttributes, ManualReset, InitialState, PChar(Name));
end;
destructor TEventObject.destroy;
begin
inherited;
end;
procedure TEventObject.ResetEvent;
begin
@ -111,7 +117,10 @@ end.
{
$Log$
Revision 1.4 2003-06-11 11:59:52 michael
Revision 1.5 2003-06-14 19:16:50 michael
+ Some improvements for the Linux version
Revision 1.4 2003/06/11 11:59:52 michael
+ Implemented Win32 of syncobjs
Revision 1.3 2002/09/07 15:15:29 peter