* findclose must always be called (also when findfirst didn't find

    anything)

git-svn-id: trunk@5570 -

compiler/cfileutils.pas

@@ -159,8 +159,8 @@ implementation
                     DirectoryEntries.Add(Dir.Name,Pointer(Ptrint(Dir.Attr)));
                 end;
             until findnext(dir) <> 0;
-            findclose(dir);
           end;
+        findclose(dir);
       end;