anchor.diff:    end;
   end;
   
  -procedure TBaseLogger.LeaveMethod(AClass : TClass; MethodAddress : Pointer; AResult : TValue);
  -begin
  -
  -end;
  -
   procedure TBaseLogger.LeaveSection(const Msg : String);
   begin
     DoLeaveSection(Msg);
   end;
   
  -procedure TBaseLogger.LeaveSection(const Vals : array of const);
  -begin
  -
  -end;
  -
   procedure TBaseLogger.LeaveSectionFmt(const Msg : String; const Args : array of const);
   begin
     LeaveSection(Format(Msg, Args));
   end;
   
  -procedure TBaseLogger.LeaveSectionVal(const Vals : array of TValue);
  -begin
  -
  -end;
  -
  -procedure TBaseLogger.Log(Severity : TLogMsgSeverity; const Vals : array of const);
  -begin
  -
  -end;
  -
   procedure TBaseLogger.Log(Severity : TLogMsgSeverity; const Msg : String);
   begin
     DoLog(Severity, Msg);
  
positive.code:   Log(Severity, Format(Msg, Args));
  end;
  
  procedure TBaseLogger.LogVal(Severity : TLogMsgSeverity; const Vals : array of TValue);
  begin
  
  end;
  
  end.
  
negative.code:     );
  end;
  
  procedure TBaseLogger.EnterSection(const Msg : String);
  begin
    DoEnterSection(Msg);
  end;
  
  procedure TBaseLogger.EnterSectionFmt(const Msg : String; const Args : array of const);
  begin
    EnterSection(Format(Msg, Args));
  end;
  
  procedure TBaseLogger.IterateOutputs(const Action : TProc<ILogOutput>);
  