Bläddra i källkod

* only call findclose if findfirst succeeded

git-svn-id: trunk@25188 -
Jonas Maebe 12 år sedan
förälder
incheckning
fcbc435435
1 ändrade filer med 2 tillägg och 2 borttagningar
  1. 2 2
      compiler/cfileutl.pas

+ 2 - 2
compiler/cfileutl.pas

@@ -299,8 +299,8 @@ end;
                     DirectoryEntries.Add(Dir.Name,Pointer(Ptrint(Dir.Attr)));
                 end;
             until findnext(dir) <> 0;
+            findclose(dir);
           end;
-        findclose(dir);
       end;
 
 
@@ -1122,8 +1122,8 @@ end;
                         end;
                     end;
                 until findnext(dir) <> 0;
+                FindClose(dir);
               end;
-            FindClose(dir);
 {$endif usedircache}
             if not subdirfound then
               WarnNonExistingPath(currpath);