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

+ THandleObject completed

Browse Source
This commit is contained in:
florian 1998-10-01 21:56:37 +00:00
parent 0a9a114b75
commit 716cbb642f
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
fcl/win32/syncobjs.pp
View File

@ -59,6 +59,8 @@ unit syncobjs;
destructor THandleObject.destroy;
begin
CloseHandle(FHandle);
inherited Destroy;
end;
constructor TEvent.Create(EventAttributes : PSecurityAttributes;
@ -91,10 +93,12 @@ end.
{
$Log$
Revision 1.2 1998-09-30 13:41:06 florian
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
}