* reset searchrec info in findfirst

rtl/unix/dos.pp

@@ -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

rtl/win32/dos.pp

@@ -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