From 25ba6fe2ea3b40b517d6516964c74be09681c802 Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Wed, 7 Nov 2001 13:05:16 +0000
Subject: [PATCH] + Fixed Append() bug. Appending non-existing file now gives
 an error

---
 rtl/win32/system.pp | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/rtl/win32/system.pp b/rtl/win32/system.pp
index 9902375583..736c189a30 100644
--- a/rtl/win32/system.pp
+++ b/rtl/win32/system.pp
@@ -536,15 +536,12 @@ begin
          oflags:=GENERIC_WRITE or GENERIC_READ;
        end;
   end;
-{ standard is opening and existing file }
-  cd:=OPEN_EXISTING;
 { create it ? }
   if (flags and $1000)<>0 then
    cd:=CREATE_ALWAYS
-{ or append ? }
+{ or Append/Open ? }
   else
-   if (flags and $100)<>0 then
-    cd:=OPEN_ALWAYS;
+    cd:=OPEN_EXISTING;
 { empty name is special }
   if p[0]=#0 then
    begin
@@ -1567,7 +1564,10 @@ end.
 
 {
   $Log$
-  Revision 1.19  2001-10-23 21:51:03  peter
+  Revision 1.20  2001-11-07 13:05:16  michael
+  + Fixed Append() bug. Appending non-existing file now gives an error
+
+  Revision 1.19  2001/10/23 21:51:03  peter
     * criticalsection renamed to rtlcriticalsection for kylix compatibility
 
   Revision 1.18  2001/10/09 02:37:29  carl
@@ -1643,4 +1643,4 @@ end.
   Revision 1.2  2000/07/13 11:33:58  michael
   + removed logs
 
-}
+}
\ No newline at end of file