mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-10-19 23:31:34 +02:00
114 lines
2.3 KiB
ObjectPascal
114 lines
2.3 KiB
ObjectPascal
{
|
|
$Id$
|
|
This file is part of the Free Component Library (FCL)
|
|
Copyright (c) 1998 by Florian Klaempfl
|
|
member of the Free Pascal development team
|
|
|
|
See the file COPYING.FPC, included in this distribution,
|
|
for details about the copyright.
|
|
|
|
This program is distributed in the hope that it will be useful,
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
|
|
|
|
**********************************************************************}
|
|
unit syncobjs;
|
|
|
|
interface
|
|
|
|
uses
|
|
windows,sysutils;
|
|
|
|
type
|
|
PSecurityAttributes = Windows.PSecurityAttributes;
|
|
TSecurityAttributes = Windows.TSecurityAttributes;
|
|
TEventHandle = THandle;
|
|
|
|
{$I syncobh.inc}
|
|
|
|
implementation
|
|
|
|
{$I syncob.inc}
|
|
|
|
procedure TCriticalSection.Acquire;
|
|
|
|
begin
|
|
EnterCriticalSection(CriticalSection);
|
|
end;
|
|
|
|
procedure TCriticalSection.Release;
|
|
|
|
begin
|
|
LeaveCriticalSection(CriticalSection);
|
|
end;
|
|
|
|
constructor TCriticalSection.Create;
|
|
|
|
begin
|
|
inherited Create;
|
|
InitializeCriticalSection(CriticalSection);
|
|
end;
|
|
|
|
destructor TCriticalSection.Destroy;
|
|
|
|
begin
|
|
DeleteCriticalSection(CriticalSection);
|
|
inherited Destroy;
|
|
end;
|
|
|
|
destructor THandleObject.destroy;
|
|
|
|
begin
|
|
CloseHandle(FHandle);
|
|
inherited Destroy;
|
|
end;
|
|
|
|
constructor TEvent.Create(EventAttributes : PSecurityAttributes;
|
|
ManualReset,InitialState : Boolean;const Name : string);
|
|
|
|
begin
|
|
end;
|
|
|
|
procedure TEvent.ResetEvent;
|
|
|
|
begin
|
|
end;
|
|
|
|
procedure TEvent.SetEvent;
|
|
|
|
begin
|
|
end;
|
|
|
|
function TEvent.WaitFor(Timeout : Cardinal) : TWaitResult;
|
|
|
|
begin
|
|
end;
|
|
|
|
constructor TSimpleEvent.Create;
|
|
|
|
begin
|
|
end;
|
|
|
|
end.
|
|
|
|
{
|
|
$Log$
|
|
Revision 1.6 2000-01-06 01:20:36 peter
|
|
* moved out of packages/ back to topdir
|
|
|
|
Revision 1.1 2000/01/03 19:33:11 peter
|
|
* moved to packages dir
|
|
|
|
Revision 1.4 1999/06/07 15:55:32 michael
|
|
+ Renamed include files to fit 8.3
|
|
|
|
Revision 1.3 1998/10/01 21:56:37 florian
|
|
+ THandleObject completed
|
|
|
|
Revision 1.2 1998/09/30 13:41:06 florian
|
|
* fixes to make it compilable
|
|
|
|
Revision 1.1 1998/09/29 11:15:24 florian
|
|
+ initial revision
|
|
}
|