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