Home Explore Help
Sign In
pascal
/
freepascal.compiler
mirror of https://gitlab.com/freepascal.org/fpc/source.git
2
0
Fork 0
Files Issues 0 Wiki
Browse Source

* NeedResolving must be freed

git-svn-id: trunk@10581 -
michael 17 years ago
parent
aaa394cb93
commit
61fb196c73
1 changed files with 1 additions and 1 deletions
Unified View Show Diff Stats
  1. 1 1
      rtl/objpas/classes/classes.inc

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

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