* fixed memleak

git-svn-id: branches/cleanroom@10380 -

rtl/tests/resref.inc

@@ -27,6 +27,7 @@ type
   TUnResolvedInstance = Class(TLinkedListItem)
     Instance : TPersistent; // Instance we're handling unresolveds for
     FUnresolved : TLinkedList; // The list
+    Destructor Destroy; override;
     Function AddReference(ARoot : TComponent; APropInfo : PPropInfo; AGlobal,ARelative : String) : TUnresolvedReference;
     Function RootUnresolved : TUnresolvedReference; inline; // Return root element in list.
     Function ResolveReferences : Boolean; // Return true if all unresolveds were resolved.
@@ -244,6 +245,12 @@ end;
 
 { TUnResolvedInstance }
 
+destructor TUnResolvedInstance.Destroy;
+begin
+  FUnresolved.Free;
+  inherited Destroy;
+end;
+
 function TUnResolvedInstance.AddReference(ARoot: TComponent;
   APropInfo: PPropInfo; AGlobal, ARelative: String): TUnresolvedReference;
 begin