paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-16 00:30:44 +01:00
Code Issues Packages Projects Releases Wiki Activity

* align DosError returned for empty filename in GetFAttr and SetFAttr to TP/BP

Browse Source 
git-svn-id: trunk@29530 -
This commit is contained in:
Tomas Hajny 2015-01-23 00:48:16 +00:00
parent 37acf48426
commit 5176a069cf
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
rtl/os2/dos.pas
View File

@ -694,7 +694,11 @@ begin
if RC = 0 then
Attr := PathInfo.AttrFile
else
OSErrorWatch (RC);
begin
OSErrorWatch (RC);
if FileRec (F).Name = '' then
DosError := 3; (* Align the returned error value to TP/BP *)
end;
end;
@ -723,7 +727,11 @@ begin
OSErrorWatch (RC);
end
else
OSErrorWatch (RC);
begin
OSErrorWatch (RC);
if FileRec (F).Name = '' then
DosError := 3; (* Align the returned error value to TP/BP *)
end;
DosError := integer (RC);
end;