paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-03 21:09:36 +01:00
Code Issues Packages Projects Releases Wiki Activity

* getfattr resets doserror

Browse Source
This commit is contained in:
peter 1999-10-14 08:57:51 +00:00
parent ff8ba9c049
commit 4090edd5c6
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/win32/dos.pp
View File

@ -776,6 +776,7 @@ procedure getfattr(var f;var attr : word);
var
l : longint;
begin
doserror:=0;
l:=GetFileAttributes(filerec(f).name);
if l=$ffffffff then
doserror:=getlasterror;
@ -895,7 +896,10 @@ End;
end.
{
$Log$
Revision 1.24 1999-10-12 08:56:48 pierre
Revision 1.25 1999-10-14 08:57:51 peter
* getfattr resets doserror
Revision 1.24 1999/10/12 08:56:48 pierre
* fix form bug660
Revision 1.23 1999/09/22 12:34:05 pierre