anchor.diff:    Writeln;
   end;
   
  -procedure TDbgInfoCallbackLog.AddVar(const Name: AnsiString;
  +procedure TStabsCallbackLogging.AddVar(const Name: AnsiString;
     OfType: TStabTypeDescr; Visiblity: TStabVarVisibility;
     MemLocation: TStabVarLocation; MemPos: Integer);
   begin
     writeln('Var: ', Name, ' ', OFType.Name,' ', Visiblity, ' ',MemLocation, ' ',MemPos);
   end;
   
  -procedure TDbgInfoCallbackLog.EndProc(const Name:AnsiString);
  +procedure TStabsCallbackLogging.EndProc(const Name:AnsiString);
   begin
     //WritelN('End proc: ', Name);
   end;
   
  -procedure TDbgInfoCallbackLog.AsmSymbol(const SymName:AnsiString;Addr:LongWord);
  +procedure TStabsCallbackLogging.AsmSymbol(const SymName:AnsiString;Addr:LongWord);
   begin
     WritelN('Asm sym: ', SymName, ' ', HexStr(Addr, sizeof(Addr)*2));
   end;
   
  -{ TDbgInfoCallback }
  -
  -constructor TDbgInfoCallback.Create(AOwner: TDbgStabsInfo; ADebugInfo: TDbgInfo);
  +{ TStabsToDebugInfo }
  +
  +constructor TStabsToDebugInfo.Create(AOwner: TDbgStabsInfo; ADebugInfo: TDbgInfo);
   begin
     inherited Create;
     fOwner := AOwner;
     fDebugInfo := ADebugInfo;
   end;
   
  -procedure TDbgInfoCallback.DeclareType(StabTypeDescr: TStabTypeDescr);
  -begin
  -end;
  -
  -procedure TDbgInfoCallback.StartFile(const FileName: AnsiString; FirstAddr: LongWord);  
  +procedure TStabsToDebugInfo.DeclareType(StabTypeDescr: TStabTypeDescr);
  +begin
  +end;
  +
  +procedure TStabsToDebugInfo.StartFile(const FileName: AnsiString; FirstAddr: LongWord);
   begin
     fFileSym := fDebugInfo.AddFile(FileName);
   end;
   
  -procedure TDbgInfoCallback.AddVar(const Name: AnsiString;
  +procedure TStabsToDebugInfo.AddVar(const Name: AnsiString;
     OfType: TStabTypeDescr; Visiblity: TStabVarVisibility;
     MemLocation: TStabVarLocation; MemPos: Integer);
   var
  
positive.code:     FilesList   : TFPObjectList;
  
      fInfo       : TDbgInfo;
    protected
      procedure ReadSymbols(debugdump: Boolean = false);
    public
      constructor Create(ASource: TDbgDataSource); override;
      destructor Destroy; override;
  
negative.code:     strbuf := nil
    end;
  
    if fReadDebugMode then begin
      SymCount := sz div sizeof(TStabSym);
  
      if DebugDumpStabs then begin
  