+ implemented empty Aquire/Release for SynchroObject, fixes bug #3821

git-svn-id: trunk@102 -

.gitattributes

@@ -6098,6 +6098,7 @@ tests/webtbs/tw3796.pp svneol=native#text/plain
 tests/webtbs/tw3805.pp svneol=native#text/plain
 tests/webtbs/tw3812.pp svneol=native#text/plain
 tests/webtbs/tw3814.pp svneol=native#text/plain
+tests/webtbs/tw3821.pp svneol=native#text/plain
 tests/webtbs/tw3827.pp svneol=native#text/plain
 tests/webtbs/tw3833.pp svneol=native#text/plain
 tests/webtbs/tw3840.pp svneol=native#text/plain

fcl/inc/syncob.inc

@@ -12,21 +12,23 @@
 
  **********************************************************************}
 
+procedure TSyncroObject.Acquire;
+  begin
+  end;
+  
+  
+procedure TSyncroObject.Release;
+  begin
+  end;
+  
+  
 procedure TCriticalSection.Enter;
-
   begin
      Acquire;
   end;
 
-procedure TCriticalSection.Leave;
 
+procedure TCriticalSection.Leave;
   begin
      Release;
   end;
-
-{
-  $Log: syncob.inc,v $
-  Revision 1.4  2005/02/14 17:13:15  peter
-    * truncate log
-
-}

fcl/inc/syncobh.inc

@@ -16,8 +16,8 @@ type
    TWaitResult = (wrSignaled, wrTimeout, wrAbandoned, wrError);
 
    TSyncroObject = class(TObject)
-      procedure Acquire;virtual;abstract;
-      procedure Release;virtual;abstract;
+      procedure Acquire;virtual;
+      procedure Release;virtual;
    end;
 
    TCriticalSection = class(TSyncroObject)
@@ -62,10 +62,3 @@ type
    TSimpleEvent = class(TEventObject)
       constructor Create;
    end;
-
-{
-  $Log: syncobh.inc,v $
-  Revision 1.7  2005/02/14 17:13:15  peter
-    * truncate log
-
-}

tests/webtbs/tw3821.pp

@@ -0,0 +1,18 @@
+{ %OPT=-Sew }
+
+{ Source provided for Free Pascal Bug Report 3821 }
+{ Submitted by "Matthias Hryniszak" on  2005-03-24 }
+{ e-mail: [email protected] }
+program Test;
+
+uses
+  SyncObjs;
+
+var
+  Event: TSimpleEvent;
+
+begin
+  // The following line produces a compile-time
+  // warning
+  Event := TSimpleEvent.Create;
+end.