From 0b4c548a1da4963b9749bdcff64c8d7811d6b29e Mon Sep 17 00:00:00 2001
From: carl <carl@freepascal.org>
Date: Thu, 2 Jul 1998 12:29:20 +0000
Subject: [PATCH]   * IOCheck for rmdir,chdir and mkdir as in TP   NOTE: I'm
 pretty SURE this will not compile and link correctly with FPC 0.99.5

---
 rtl/dos/go32v2/system.pp | 16 ++++++++++++----
 1 file changed, 12 insertions(+), 4 deletions(-)

diff --git a/rtl/dos/go32v2/system.pp b/rtl/dos/go32v2/system.pp
index b18c9e5fa0..a9821c03a0 100644
--- a/rtl/dos/go32v2/system.pp
+++ b/rtl/dos/go32v2/system.pp
@@ -947,20 +947,23 @@ begin
 end;
 
 
-procedure mkdir(const s : string);
+procedure mkdir(const s : string);[IOCheck];
 begin
+  If InOutRes <> 0 then exit;
   DosDir($39,s);
 end;
 
 
-procedure rmdir(const s : string);
+procedure rmdir(const s : string);[IOCheck];
 begin
+  If InOutRes <> 0 then exit;
   DosDir($3a,s);
 end;
 
 
-procedure chdir(const s : string);
+procedure chdir(const s : string);[IOCheck];
 begin
+  If InOutRes <> 0 then exit;
   DosDir($3b,s);
 end;
 
@@ -1051,7 +1054,12 @@ Begin
 End.
 {
   $Log$
-  Revision 1.9  1998-07-01 15:29:57  peter
+  Revision 1.10  1998-07-02 12:29:20  carl
+    * IOCheck for rmdir,chdir and mkdir as in TP
+    NOTE: I'm pretty SURE this will not compile and link correctly with FPC
+  0.99.5
+
+  Revision 1.9  1998/07/01 15:29:57  peter
     * better readln/writeln
 
   Revision 1.8  1998/06/26 08:19:10  pierre