paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-08 22:47:54 +02:00
Code Issues Packages Projects Releases Wiki Activity

* reset searchrec info in findfirst

Browse Source
This commit is contained in:
peter 2004-03-14 18:42:39 +00:00
parent 74836e0d0d
commit 682b148f4c
2 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/unix/dos.pp
View File

@ -537,6 +537,7 @@ Procedure FindFirst(Const Path: PathStr; Attr: Word; Var f: SearchRec);
opens dir and calls FindWorkProc
}
Begin
fillchar(f,sizeof(f),0);
if Path='' then
begin
DosError:=3;
@ -832,7 +833,10 @@ End.
{
$Log$
Revision 1.31 2004-03-04 22:15:16 marco
Revision 1.32 2004-03-14 18:42:39 peter
* reset searchrec info in findfirst
Revision 1.31 2004/03/04 22:15:16 marco
* UnixType changes. Please report problems to me.
Revision 1.30 2004/02/18 22:00:45 peter

6
rtl/win32/dos.pp
View File

@ -540,6 +540,7 @@ end;
procedure findfirst(const path : pathstr;attr : word;var f : searchRec);
begin
fillchar(f,sizeof(f),0);
{ no error }
doserror:=0;
F.Name:=Path;
@ -960,7 +961,10 @@ begin
end.
{
$Log$
Revision 1.26 2004-02-17 17:37:26 daniel
Revision 1.27 2004-03-14 18:43:21 peter
* reset searchrec info in findfirst
Revision 1.26 2004/02/17 17:37:26 daniel
* Enable threadvars again
Revision 1.25 2004/02/16 22:18:44 hajny