* naieve implementation of TMREWS

git-svn-id: trunk@1030 -

fcl/inc/syncob.inc

@@ -30,3 +30,35 @@ procedure TCriticalSection.Leave;
 begin
   Release;
 end;
+
+constructor TMultiReadExclusiveWriteSynchronizer.Create;
+
+begin
+  Crit:=tcriticalsection.create;
+end;
+
+destructor TMultiReadExclusiveWriteSynchronizer.Destroy;
+begin
+  Crit.free;
+end;
+
+procedure  TMultiReadExclusiveWriteSynchronizer.Beginwrite;
+begin
+  Crit.acquire;
+end;
+
+procedure  TMultiReadExclusiveWriteSynchronizer.Endwrite;
+begin
+  Crit.release;
+end;
+
+procedure  TMultiReadExclusiveWriteSynchronizer.Beginread;
+begin
+  Crit.acquire;
+end;
+
+procedure  TMultiReadExclusiveWriteSynchronizer.Endread;
+begin
+  Crit.acquire;
+end;
+

fcl/inc/syncobh.inc

@@ -62,3 +62,15 @@ type
    TSimpleEvent = class(TEventObject)
       constructor Create;
    end;
+
+   TMultiReadExclusiveWriteSynchronizer = class
+   private
+      crit:TCriticalsection;
+   public
+      constructor Create; virtual;
+      destructor  Destroy; override;
+      procedure Beginwrite;
+      procedure Endwrite;
+      procedure Beginread;
+      procedure Endread;
+   end;