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

* fixed getfattr which didn't reset doserror

Browse Source
This commit is contained in:
peter 1999-07-24 11:18:11 +00:00
parent b84eb33013
commit 6fe4c6e7d4
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/linux/dos.pp
View File

@ -815,6 +815,7 @@ Var
{$ENDIF} {$ENDIF}
LinAttr : longint; LinAttr : longint;
Begin Begin
DosError:=0;
{$IFDEF CRTLIB} {$IFDEF CRTLIB}
_rtl_fstat(word(f), longint(@Info)); _rtl_fstat(word(f), longint(@Info));
attr := info.fmode; attr := info.fmode;
@ -1045,7 +1046,10 @@ End.
{ {
$Log$ $Log$
Revision 1.10 1999-03-05 13:09:57 peter Revision 1.11 1999-07-24 11:18:11 peter
* fixed getfattr which didn't reset doserror
Revision 1.10 1999/03/05 13:09:57 peter
* fix for findfirst from the mailinglist * fix for findfirst from the mailinglist
Revision 1.9 1999/02/22 11:45:19 peter Revision 1.9 1999/02/22 11:45:19 peter