anchor.diff:  
     procedure SkipLEB(var p: Pointer);
     begin
  -    while (PByte(p)^ and $80) <> 0 do Inc(p);
  +    while (PByte(p)^ and $80) <> 0 do begin
  +      Inc(p);
  +    end;
       Inc(p);
     end;
   
  
positive.code:       then AList[idx - ADef.Index] := p;}
  
        Form := abbr.FDefinitions[idx].Form;
        while Form = DW_FORM_indirect do Form := ULEB128toOrdinal(Info, ofs);
  
        case Form of
          DW_FORM_addr     : begin
            Inc(ofs, AddrSize);
  
negative.code:     end else begin
        
        if not abbr.GetDefintion(Abbrev, Def)  then begin
          WriteLn('Error: Abbrev not found: ', Abbrev,' i=',i);
          Break;
        end;
        
  