anchor.diff:      end else begin
         
         if not abbr.GetDefintion(Abbrev, Def)  then begin
  -        WriteLN('Error: Abbrev not found: ', Abbrev);
  +        WriteLn('Error: Abbrev not found: ', Abbrev,' i=',i);
           Break;
         end;
         
  
positive.code:   parent    : TDwarfEntry;
    prev      : TDwarfEntry;
    newdw     : TDwarfEntry;
  begin
    abbr:=TAbbrevTable.Create(Abbrevs, AbbrevOfs, AbbrevsSize);  
    
  
negative.code:     FVerbose  : Boolean;
      DefFilled : array of Boolean;
    protected
      procedure DoReadAbbrev(const AData: array of byte; Offset, ADataSize: Integer);
    public
      FDefCount     : Integer;
      FDefinitions  : array of record
  