+ Merged revisions 102,116 to fix bug #3821

git-svn-id: branches/fixes_2_0@117 -

fcl/inc/syncob.inc

@@ -12,23 +12,21 @@
 
  **********************************************************************}
 
-procedure TSyncroObject.Acquire;
-  begin
-  end;
-  
-  
-procedure TSyncroObject.Release;
-  begin
-  end;
-  
-  
+procedure TSynchroObject.Acquire;
+begin
+end;
+
+procedure TSynchroObject.Release;
+begin
+end;
+
 procedure TCriticalSection.Enter;
-  begin
-     Acquire;
-  end;
+begin
+  Acquire;
+end;
 
 
 procedure TCriticalSection.Leave;
-  begin
-     Release;
-  end;
+begin
+  Release;
+end;

fcl/inc/syncobh.inc

@@ -15,12 +15,12 @@
 type
    TWaitResult = (wrSignaled, wrTimeout, wrAbandoned, wrError);
 
-   TSyncroObject = class(TObject)
+   TSynchroObject = class(TObject)
       procedure Acquire;virtual;
       procedure Release;virtual;
    end;
 
-   TCriticalSection = class(TSyncroObject)
+   TCriticalSection = class(TSynchroObject)
    private
       CriticalSection : TRTLCriticalSection;
    public
@@ -32,7 +32,7 @@ type
       destructor Destroy;override;
    end;
 
-   THandleObject = class(TSyncroObject)
+   THandleObject = class(TSynchroObject)
    protected
       FHandle : TEventHandle;
       FLastError : Integer;