Browse Source

fcl-passrc: transition TPasElement from reference count to free

mattias 3 years ago
parent
commit
9e8903383b
1 changed files with 3 additions and 3 deletions
  1. 3 3
      packages/fcl-passrc/tests/tcresolver.pas

+ 3 - 3
packages/fcl-passrc/tests/tcresolver.pas

@@ -1145,11 +1145,11 @@ begin
   if FResolvers<>nil then
     begin
     {$IFDEF VerbosePasResolverMem}
-    writeln('TTestResolver.TearDown FModules');
+    writeln('TTestResolver.TearDown FResolvers');
     {$ENDIF}
     {$IFNDEF EnablePasTreeFree}
-    for i:=0 to FModules.Count-1 do
-      TTestEnginePasResolver(FModules[i]).ReleaseUsedUnits;
+    for i:=0 to FResolvers.Count-1 do
+      TTestEnginePasResolver(FResolvers[i]).ReleaseUsedUnits;
     {$ENDIF}
     FResolvers.OwnsObjects:=false;
     FResolvers.Remove(ResolverEngine); // remove reference