anchor.diff:      procedure AsmSymbol(const SymName: AnsiString; Addr: LongWord); override;
     end;
   
  -{ TDbgInfoCallbackLog }
  -
  -procedure TDbgInfoCallbackLog.DeclareType(AType: TStabTypeDescr);
  +{ TStabsCallbackLogging }
  +
  +procedure TStabsCallbackLogging.DeclareType(AType: TStabTypeDescr);
   begin
     writeln('Type: ', AType.Name, ' : ', AType.BaseType);
   end;
   
  -procedure TDbgInfoCallbackLog.StartFile(const FileName:AnsiString;FirstAddr:
  +procedure TStabsCallbackLogging.StartFile(const FileName:AnsiString;FirstAddr:
     LongWord);
   begin
     writeln('File: ', FileName);
  
positive.code:     procedure AsmSymbol(const SymName: AnsiString; Addr: LongWord); override;
    end;
  
    { TDbgInfoCallbackLog }
  
    TDbgInfoCallbackLog = class(TStabsCallback)
    public
      procedure DeclareType(AType: TStabTypeDescr); override;
      procedure StartFile(const FileName: AnsiString; FirstAddr: LongWord); override;
  
negative.code: interface
  
  uses
    Classes, SysUtils, contnrs, dbgTypes, dbgInfoTypes,
    stabs, stabsProc;
  
  var
    DebugDumpStabs  : Boolean = False;
  