* IOCheck/InOutRes check for mkdir, chdir and rmdir as in TP

rtl/linux/syslinux.pp

@@ -512,10 +512,11 @@ end;
                            Directory Handling
 *****************************************************************************}
 
-Procedure MkDir(Const s: String);
+Procedure MkDir(Const s: String);[IOCheck];
 Var
   Buffer: Array[0..255] of Char;
 Begin
+  If InOutRes <> 0 then exit;
   Move(s[1], Buffer, Length(s));
   Buffer[Length(s)] := #0;
 {$ifdef crtlib}
@@ -527,10 +528,11 @@ Begin
 End;
 
 
-Procedure RmDir(Const s: String);
+Procedure RmDir(Const s: String);[IOCheck];
 Var
   Buffer: Array[0..255] of Char;
 Begin
+  If InOutRes <> 0 then exit;
   Move(s[1], Buffer, Length(s));
   Buffer[Length(s)] := #0;
 {$ifdef crtlib}
@@ -542,10 +544,11 @@ Begin
 End;
 
 
-Procedure ChDir(Const s: String);
+Procedure ChDir(Const s: String);[IOCheck];
 Var
   Buffer: Array[0..255] of Char;
 Begin
+  If InOutRes <> 0 then exit;
   Move(s[1], Buffer, Length(s));
   Buffer[Length(s)] := #0;
 {$ifdef crtlib}
@@ -675,7 +678,10 @@ End.
 
 {
   $Log$
-  Revision 1.6  1998-07-01 15:30:01  peter
+  Revision 1.7  1998-07-02 12:36:21  carl
+    * IOCheck/InOutRes check for mkdir, chdir and rmdir as in TP
+
+  Revision 1.6  1998/07/01 15:30:01  peter
     * better readln/writeln
 
   Revision 1.4  1998/05/30 14:18:43  peter