From 481d3275e02f7533e421fd4292e0797379b6bf7a Mon Sep 17 00:00:00 2001
From: Tomas Hajny <hajny@freepascal.org>
Date: Sat, 4 Nov 2000 20:04:33 +0000
Subject: [PATCH]   * wrong DosError was used under OS/2

---
 ide/text/wutils.pas | 13 ++++++++-----
 1 file changed, 8 insertions(+), 5 deletions(-)

diff --git a/ide/text/wutils.pas b/ide/text/wutils.pas
index 9d60c371f7..67b2a9fbc5 100644
--- a/ide/text/wutils.pas
+++ b/ide/text/wutils.pas
@@ -496,7 +496,7 @@ begin
   else
     begin
       FM:=FileMode; FileMode:=0;
-      EatIO; DosError:=0;
+      EatIO; Dos.DosError:=0;
       Assign(f,FileName);
       {$I-}
       Reset(f);
@@ -506,7 +506,7 @@ begin
           Close(f);
         end;
       {$I+}
-      if (EatIO<>0) or (DosError<>0) then T:=-1;
+      if (EatIO<>0) or (Dos.DosError<>0) then T:=-1;
       FileMode:=FM;
     end;
   GetFileTime:=T;
@@ -1035,7 +1035,7 @@ var
   Dir : SearchRec;
 begin
   Dos.FindFirst(FileName,Archive+ReadOnly,Dir);
-  ExistsFile:=(DosError=0);
+  ExistsFile:=(Dos.DosError=0);
 {$ifdef FPC}
   Dos.FindClose(Dir);
 {$endif def FPC}
@@ -1046,7 +1046,7 @@ var
   Dir : SearchRec;
 begin
   Dos.FindFirst(TrimEndSlash(DirName),Directory,Dir);
-  ExistsDir:=(DosError=0);
+  ExistsDir:=(Dos.DosError=0);
 {$ifdef FPC}
   Dos.FindClose(Dir);
 {$endif def FPC}
@@ -1161,7 +1161,10 @@ BEGIN
 END.
 {
   $Log$
-  Revision 1.5  2000-10-31 22:35:56  pierre
+  Revision 1.6  2000-11-04 20:04:33  hajny
+    * wrong DosError was used under OS/2
+
+  Revision 1.5  2000/10/31 22:35:56  pierre
    * New big merge from fixes branch
 
   Revision 1.4  2000/10/28 17:20:42  hajny