paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-15 10:40:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

* wrong DosError was used under OS/2

Browse Source
This commit is contained in:
Tomas Hajny 2000-11-04 20:04:33 +00:00
parent b8c352ac88
commit 481d3275e0
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
ide/text/wutils.pas
View File

@ -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