anchor.diff:      fParent : TDbgSymbol;
       subList : TFPObjectList;
       subHash : TFPObjectHashTable;
  +    fVisibility : TDbgSymbolVisiblity;
     protected
       function GetCount: Integer;
       function GetSymbol(index: Integer): TDbgSymbol;
     public
       constructor Create(const AName: AnsiString; AParentSym: TDbgSymbol); virtual;
       destructor Destroy; override;
  +    property Visibility: TDbgSymbolVisiblity read fVisibility write fVisibility;
       property Name: AnsiString read fName;
       property Parent: TDbgSymbol read fParent;
       property Count: integer read GetCount;
  
positive.code:   end;
    TDbgInfoReaderClass = class of TDbgInfoReader;
  
    { TDbgFileSymbol }
  
    { TDbgSymbol }
  
  
negative.code:     function GetLinesInfoCount: Integer;
    end;
  
    { TDbgSymbolFunc }
  
    TDbgSymbolFunc = class(TDbgSymbol)
    public
      EntryPoint : TDbgPtr;
    end;
  
    { TDbgSymbolTypeDescr }
  
    TDbgSymbolTypeDescr = class(TDbgSymbol)
    end;
  
    TDbgSimpleType = (dstInteger, dstUnsigned, dstSingle,
      dstDouble, dstReal, dstPointer, dstChar, dstWideChar);
  
    TDbgSymbolSimpleDescr = class(TDbgSymbolTypeDescr)
      SymType : TDbgSimpleType;
    end;
  
    { TDbgSymbolVar }
  
    TDbgSymbolVar = class(TDbgSymbol)
    public
      addr    : TDbgPtr;
      vartype : TDbgSymbolTypeDescr;
    end;
  
    { TDbgInfo }
  