* fixed compilation errors in r3017

git-svn-id: trunk@3018 -

fcl/darwin/syncobjs.pp

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

fcl/freebsd/syncobjs.pp

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

fcl/linux/syncobjs.pp

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

fcl/netwlibc/syncobjs.pp

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

fcl/solaris/syncobjs.pp

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