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

* fixed compilation errors in r3017

Browse Source 
git-svn-id: trunk@3018 -
This commit is contained in:
Jonas Maebe 2006-03-23 10:57:28 +00:00
parent 1c9377470a
commit 422b29759b
5 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
fcl/darwin/syncobjs.pp
View File

@ -120,7 +120,7 @@ destructor TEventObject.destroy;
begin
sem_destroy(psem_t(FSem));
dispose(FSem);
dispose(PSemaphore(FSem));
FEventSection.Free;
end;

2
fcl/freebsd/syncobjs.pp
View File

@ -120,7 +120,7 @@ destructor TEventObject.destroy;
begin
sem_destroy(psem_t(FSem));
dispose(FSem);
dispose(PSemaphore(FSem));
FEventSection.Free;
end;

2
fcl/linux/syncobjs.pp
View File

@ -120,7 +120,7 @@ destructor TEventObject.destroy;
begin
sem_destroy(FSem);
dispose(FSem);
dispose(PSemaphore(FSem));
FEventSection.Free;
end;

2
fcl/netwlibc/syncobjs.pp
View File

@ -119,7 +119,7 @@ destructor TEventObject.destroy;
begin
sem_destroy(FSem);
dispose(FSem);
dispose(PSemaphore(FSem));
FEventSection.Free;
end;

2
fcl/solaris/syncobjs.pp
View File

@ -120,7 +120,7 @@ destructor TEventObject.destroy;
begin
sem_destroy(psem_t(FSem));
dispose(FSem);
dispose(PSemaphore(FSem));
FEventSection.Free;
end;