--- Merging r39770 into '.':

U    packages/fcl-passrc/tests/tcresolver.pas
--- Recording mergeinfo for merge of r39770 into '.':
 U   .

# revisions: 39770

git-svn-id: branches/fixes_3_2@39814 -

packages/fcl-passrc/tests/tcresolver.pas

@@ -916,7 +916,9 @@ procedure TCustomTestResolver.TearDown;
 {$IFDEF CheckPasTreeRefCount}
 var El: TPasElement;
 {$ENDIF}
+{$IF defined(VerbosePasResolver) or defined(VerbosePasResolverMem)}
 var i: Integer;
+{$ENDIF}
 begin
   FResolverMsgs.Clear;
   FResolverGoodMsgs.Clear;