From b9de36065009f648a3559be47a81d3fcb3a218ee Mon Sep 17 00:00:00 2001
From: olle <olle>
Date: Thu, 28 Apr 2005 18:21:04 +0000
Subject: [PATCH]   * Set errno to zero after close

---
 rtl/macos/sysfile.inc | 14 ++++++++------
 1 file changed, 8 insertions(+), 6 deletions(-)

diff --git a/rtl/macos/sysfile.inc b/rtl/macos/sysfile.inc
index 978577e0a8..1d665c292d 100644
--- a/rtl/macos/sysfile.inc
+++ b/rtl/macos/sysfile.inc
@@ -1,9 +1,9 @@
 {
     $Id$
     This file is part of the Free Pascal run time library.
-    Copyright (c) 2001 by Free Pascal development team
+    Copyright (c) 2001-2005 by Free Pascal development team
 
-    Low leve file functions
+    Low level file functions
 
     See the file COPYING.FPC, included in this distribution,
     for details about the copyright.
@@ -27,12 +27,12 @@ end;
 procedure do_close(h : longint);
 var
   err: OSErr;
-{No error handling, according to the other targets, which seems reasonable,
+{Ignore error handling, according to the other targets, which seems reasonable,
 because close might be used to clean up after an error.}
 begin
   {$ifdef MACOS_USE_STDCLIB}
   c_close(h);
-  // Errno2InOutRes;
+  errno:= 0;
   {$else}
   err:= FSClose(h);
   // OSErr2InOutRes(err);
@@ -287,7 +287,6 @@ begin
           err:= FSpGetFullPath(spec, fullPath, false);
           InOutRes:= MacOSErr2RTEerr(err);
         end;
-
       if InOutRes <> 0 then
         exit;
 
@@ -352,7 +351,10 @@ end;
 
 {
    $Log$
-   Revision 1.3  2005-03-20 19:37:31  olle
+   Revision 1.4  2005-04-28 18:21:04  olle
+     * Set errno to zero after close
+
+   Revision 1.3  2005/03/20 19:37:31  olle
      + Added optional path translation mechanism
 
    Revision 1.2  2005/02/14 17:13:30  peter