anchor.diff:    end;
   end;
   
  +procedure TRefCountTracerLog.Write;
  +begin
  +  FLog.SaveToFile('refcounttrace.txt');
  +end;
  +
   initialization
   finalization
     if _RefCountTracerLog <> nil then
  
positive.code: 
  destructor TRefCountTracerLog.Destroy;
  begin
    FLog.SaveToFile('refcounttrace.txt');
  
    FLog.Free;
    FLock.Free;
  
negative.code:     ///	  optimizations.
      ///	</param>
      procedure LogStackTrace(const Instance: TObject; const RefCountChange: Integer; const SkipStackTrace: Boolean = False);
      procedure Write;
    end;
    TRefCountTracerLogClass = class of TRefCountTracerLog;
  
  