* append fix applied to Amiga, Atari, EMX, GO32v2, OS/2 and Watcom

rtl/amiga/system.pas

@@ -1443,7 +1443,8 @@ begin
        Error2InOut;
 
     filerec(f).handle:=i;
-    if (flags and $100)<>0 then
+    if ((Flags and $100) <> 0) and
+       (FileRec (F).Handle <> UnusedHandle) then
        do_seekend(filerec(f).handle);
 
 end;
@@ -1826,7 +1827,10 @@ end.
 
 {
   $Log$
-  Revision 1.7  2003-09-27 11:52:35  peter
+  Revision 1.8  2003-09-29 18:52:36  hajny
+    * append fix applied to Amiga, Atari, EMX, GO32v2, OS/2 and Watcom
+
+  Revision 1.7  2003/09/27 11:52:35  peter
     * sbrk returns pointer
 
   Revision 1.6  2002/10/20 12:00:52  carl

rtl/atari/system.pas

@@ -579,7 +579,8 @@ begin
   if errno <> 0 then
      Error2InOut;
   filerec(f).handle:=i;
-  if (flags and $100)<>0 then
+  if ((flags and $100) <> 0) and
+       (FileRec (F).Handle <> UnusedHandle) then
    do_seekend(filerec(f).handle);
 end;
 
@@ -758,7 +759,10 @@ end.
 
 {
   $Log$
-  Revision 1.7  2003-09-27 11:52:35  peter
+  Revision 1.8  2003-09-29 18:52:36  hajny
+    * append fix applied to Amiga, Atari, EMX, GO32v2, OS/2 and Watcom
+
+  Revision 1.7  2003/09/27 11:52:35  peter
     * sbrk returns pointer
 
   Revision 1.6  2002/10/20 12:00:52  carl

rtl/watcom/system.pp

@@ -858,7 +858,8 @@ begin
 {$endif SYSTEMDEBUG}
     end;
 { append mode }
-  if (flags and $100)<>0 then
+  if ((flags and $100) <> 0) and
+   (FileRec (F).Handle <> UnusedHandle) then
    begin
      do_seekend(filerec(f).handle);
      filerec(f).mode:=fmoutput; {fool fmappend}
@@ -1120,7 +1121,10 @@ END.
 
 {
   $Log$
-  Revision 1.3  2003-09-27 11:52:36  peter
+  Revision 1.4  2003-09-29 18:52:36  hajny
+    * append fix applied to Amiga, Atari, EMX, GO32v2, OS/2 and Watcom
+
+  Revision 1.3  2003/09/27 11:52:36  peter
     * sbrk returns pointer
 
   Revision 1.2  2003/09/07 22:29:26  hajny