anchor.diff:      SymbolClass: TDbgSymbolClass): TDbgSymbol; virtual; overload;}
   end;
   
  -procedure TDbgInfoCallback.CodeLine(LineNum, Addr: LongWord);  
  +procedure TStabsToDebugInfo.CodeLine(LineNum, Addr: LongWord);
   begin
     if Assigned(fFileSym) then
       fFileSym.AddLineInfo(Addr, LineNum);
   end;
   
  -procedure TDbgInfoCallback.StartProc(const Name: AnsiString; LineNum: Integer;
  +procedure TStabsToDebugInfo.StartProc(const Name: AnsiString; LineNum: Integer;
     EntryAddr: LongWord; isGlobal: Boolean; const NestedTo: String;
     ReturnType: TStabTypeDescr);
   var
  
positive.code:   Writeln;
  end;
  
  procedure TDbgInfoCallbackLog.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);
  begin
    //WritelN('End proc: ', Name);
  end;
  
  procedure TDbgInfoCallbackLog.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);
  begin
    inherited Create;
    fOwner := AOwner;
    fDebugInfo := ADebugInfo;
  end;
  
  procedure TDbgInfoCallback.DeclareType(StabTypeDescr: TStabTypeDescr);
  begin
  end;
  
  procedure TDbgInfoCallback.StartFile(const FileName: AnsiString; FirstAddr: LongWord);  
  begin
    fFileSym := fDebugInfo.AddFile(FileName);
  end;
  
  procedure TDbgInfoCallback.AddVar(const Name: AnsiString;
    OfType: TStabTypeDescr; Visiblity: TStabVarVisibility;
    MemLocation: TStabVarLocation; MemPos: Integer);
  var
  
negative.code:   writeln('var: ', Name,': ', OfType.Name, ' ', Visiblity, ' ',MemLocation, ' ', MemPos);
  end;
  
  procedure TStabsCallbackLogging.CodeLine(LineNum,Addr:LongWord);
  begin
    writeln('#', LineNum, '; Addr: $',HexStr(Addr,8));
  end;
  
  procedure TStabsCallbackLogging.StartProc(const Name:AnsiString; LineNum:Integer;
    EntryAddr: LongWord; isGlobal: Boolean;
    const NestedTo: String; RetType: TStabTypeDescr);
  begin
  