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

---
 rtl/os2/sysos2.pas | 19 ++++++++++++++++---
 1 file changed, 16 insertions(+), 3 deletions(-)

diff --git a/rtl/os2/sysos2.pas b/rtl/os2/sysos2.pas
index 24aba34d53..b8c0ae339d 100644
--- a/rtl/os2/sysos2.pas
+++ b/rtl/os2/sysos2.pas
@@ -264,6 +264,16 @@ begin
         if p[i]='/' then p[i]:='\';
 end;
 
+function do_isdevice(handle:longint):boolean;
+begin
+  if (handle=stdoutputhandle) or (handle=stdinputhandle) or
+  (handle=stderrorhandle) then
+    do_isdevice:=FALSE;
+  else
+    do_isdevice:=TRUE;
+end;
+
+
 procedure do_close(h:longint);
 
 begin
@@ -565,22 +575,25 @@ 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;