Browse Source

* avoid a problem with ChDir('c:') on pure DOS

pierre 26 years ago
parent
commit
846dee6d78
1 changed files with 8 additions and 1 deletions
  1. 8 1
      rtl/go32v2/system.pp

+ 8 - 1
rtl/go32v2/system.pp

@@ -1157,6 +1157,10 @@ begin
         Inoutres:=15;
         exit;
       end;
+     { DosDir($3b,'c:') give Path not found error on
+       pure DOS PM }
+     if length(s)=2 then
+       exit;
    end;
 { do the normal dos chdir }
   DosDir($3b,s);
@@ -1285,7 +1289,10 @@ Begin
 End.
 {
   $Log$
-  Revision 1.22  1999-11-06 14:38:24  peter
+  Revision 1.23  1999-11-25 16:24:56  pierre
+   * avoid a problem with ChDir('c:') on pure DOS
+
+  Revision 1.22  1999/11/06 14:38:24  peter
     * truncated log
 
   Revision 1.21  1999/10/31 09:34:48  jonas