paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-24 05:37:41 +02:00
Code Issues Packages Projects Releases Wiki Activity

* small error code fixes so tdos2 passes

Browse Source
This commit is contained in:
peter 2002-12-08 16:05:34 +00:00
parent b6d87094de
commit 14c6ce1eb8
1 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
rtl/unix/dos.pp
View File

@ -635,9 +635,10 @@ Begin
DosError:=0 DosError:=0
else else
begin begin
{ According to tdos2 test it should return 18
if ErrNo=Sys_ENOENT then if ErrNo=Sys_ENOENT then
DosError:=3 DosError:=3
else else }
DosError:=18; DosError:=18;
end; end;
f.DirPtr:=0; f.DirPtr:=0;
@ -720,7 +721,7 @@ Begin
if not fstat(filerec(f).handle,info) then if not fstat(filerec(f).handle,info) then
begin begin
Time:=0; Time:=0;
doserror:=3; doserror:=6;
exit exit
end end
else else
@ -858,6 +859,9 @@ End;
Procedure setfattr (var f;attr : word); Procedure setfattr (var f;attr : word);
Begin Begin
{! No Linux equivalent !} {! No Linux equivalent !}
{ Fail for setting VolumeId }
if (attr and VolumeID)<>0 then
doserror:=5;
End; End;
@ -899,7 +903,10 @@ End.
{ {
$Log$ $Log$
Revision 1.12 2002-09-07 16:01:27 peter Revision 1.13 2002-12-08 16:05:34 peter
* small error code fixes so tdos2 passes
Revision 1.12 2002/09/07 16:01:27 peter
* old logs removed and tabs fixed * old logs removed and tabs fixed
} }