Sfoglia il codice sorgente

* NeedResolving must be freed

git-svn-id: trunk@10581 -
michael 17 anni fa
parent
commit
61fb196c73
1 ha cambiato i file con 1 aggiunte e 1 eliminazioni
  1. 1 1
      rtl/objpas/classes/classes.inc

+ 1 - 1
rtl/objpas/classes/classes.inc

@@ -1680,7 +1680,7 @@ begin
   DoneCriticalsection(ResolveSection);
   GlobalLists.Free;
   ComponentPages.Free;
-
+  FreeAndNil(NeedResolving);
   { GlobalNameSpace is an interface so this is enough }
   GlobalNameSpace:=nil;