* added missing findclose in TCachedDirectory.Reload

git-svn-id: trunk@5568 -

compiler/cfileutils.pas

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