paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-06 09:07:59 +02:00
Code Issues Packages Projects Releases Wiki Activity

* corrected test for empty filename in FileRec

Browse Source 
git-svn-id: trunk@29538 -
This commit is contained in:
Tomas Hajny 2015-01-24 00:23:42 +00:00
parent 943a094683
commit 7292e64e04
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/os2/dos.pas
View File

@ -729,7 +729,7 @@ begin
else
begin
OSErrorWatch (RC);
if FileRec (F).Name = '' then
if FileRec (F).Name [0] = #0 then
DosError := 3; (* Align the returned error value to TP/BP *)
end;
end;
@ -762,7 +762,7 @@ begin
else
begin
OSErrorWatch (RC);
if FileRec (F).Name = '' then
if FileRec (F).Name [0] = #0 then
DosError := 3; (* Align the returned error value to TP/BP *)
end;
DosError := integer (RC);