From b8f38be9936aec6ceac164691c66af9db2dd347b Mon Sep 17 00:00:00 2001
From: carl <carl@freepascal.org>
Date: Thu, 2 Jul 1998 12:33:18 +0000
Subject: [PATCH]   * IOCheck/InOutRes check for mkdir,rmdir and chdir like in
 TP

---
 rtl/win32/syswin32.pp | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/rtl/win32/syswin32.pp b/rtl/win32/syswin32.pp
index 21f3baee0a..b88f85e6c9 100644
--- a/rtl/win32/syswin32.pp
+++ b/rtl/win32/syswin32.pp
@@ -491,16 +491,19 @@ function CreateDirectoryTrunc(name:pointer):word;
 
 procedure mkdir(const s:string);[IOCHECK];
  begin
+  If InOutRes <> 0 then exit;
   dirfn(TDirFnType(@CreateDirectoryTrunc),s);
  end;
 
 procedure rmdir(const s:string);[IOCHECK];
  begin
+  If InOutRes <> 0 then exit;
   dirfn(TDirFnType(@RemoveDirectory),s);
  end;
 
 procedure chdir(const s:string);[IOCHECK];
  begin
+  If InOutRes <> 0 then exit;
   dirfn(TDirFnType(@SetCurrentDirectory),s);
  end;
 
@@ -648,7 +651,10 @@ end.
 
 {
   $Log$
-  Revision 1.10  1998-07-01 15:30:02  peter
+  Revision 1.11  1998-07-02 12:33:18  carl
+    * IOCheck/InOutRes check for mkdir,rmdir and chdir like in TP
+
+  Revision 1.10  1998/07/01 15:30:02  peter
     * better readln/writeln
 
   Revision 1.9  1998/06/10 10:39:17  peter