anchor.diff:    TElfFile = class(TObject)
     protected
       function Load32BitFile(AStream: TStream): Boolean;
  +    function Load64BitFile(AStream: TStream): Boolean;
       procedure AddSection(const name: AnsiString; FileOffset, Address, Size: Qword);
     public
       sections  : array of TElfSection;
  
positive.code:               (ident[EI_MAG3] = byte('F'));
      if not Result then Exit;
  
      Result := ident[EI_CLASS] = ELFCLASS32;
      if not Result then Exit; //todo: 64-bit
  
      Stream.Position := p;
      Result := Load32BitFile(Stream);
  
    except
      Result := false;
  
negative.code:   end;
  end;
  
  function TElfFile.Load64BitFile(AStream: TStream): Boolean;
  begin
    Result := false;
    // TODO:
    raise Exception.Create('TElfFile.Load64BitFile() not yet implemented');
  end;
  
  procedure TElfFile.AddSection(const name: AnsiString; FileOffset, Address,
  