From c8d20e65c4318e5f45233f4aa9ac48fe53dc5362 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Sun, 6 Feb 2005 20:31:35 +0000
Subject: [PATCH]   + GlobalNameSpace

---
 rtl/objpas/sysutils/systhrdh.inc | 14 +++++++++-----
 1 file changed, 9 insertions(+), 5 deletions(-)

diff --git a/rtl/objpas/sysutils/systhrdh.inc b/rtl/objpas/sysutils/systhrdh.inc
index fa36156690..52b23ac382 100644
--- a/rtl/objpas/sysutils/systhrdh.inc
+++ b/rtl/objpas/sysutils/systhrdh.inc
@@ -16,10 +16,11 @@
 
 type
    IReadWriteSync = interface
-      procedure BeginRead;
-      procedure EndRead;
-      procedure BeginWrite;
-      procedure EndWrite;
+     ['{7B108C52-1D8F-4CDB-9CDF-57E071193D3F}']
+     procedure BeginRead;
+     procedure EndRead;
+     function BeginWrite : boolean;
+     procedure EndWrite;
    end;
 
 {$endif HASINTF}
@@ -31,7 +32,10 @@ function InterLockedExchangeAdd (var Target: longint;Source : longint) : longint
 
 {
   $Log$
-  Revision 1.2  2004-03-05 12:17:50  marco
+  Revision 1.3  2005-02-06 20:31:35  florian
+    + GlobalNameSpace
+
+  Revision 1.2  2004/03/05 12:17:50  marco
    * interlocked* changed to longints, including winapi. (which was a bug)
 
   Revision 1.1  2003/10/06 21:01:06  peter