Explorar o código

* fixed references

git-svn-id: trunk@2554 -
florian %!s(int64=19) %!d(string=hai) anos
pai
achega
05207fc54e
Modificáronse 1 ficheiros con 1 adicións e 5 borrados
  1. 1 5
      compiler/dbgdwarf.pas

+ 1 - 5
compiler/dbgdwarf.pas

@@ -562,11 +562,7 @@ implementation
     procedure TDebugInfoDwarf.append_labelentry_ref(attr : tdwarf_attribute;sym : tasmsymbol);
       begin
         asmlist[al_dwarf_abbrev].concat(tai_const.create_uleb128bit(ord(attr)));
-{$ifdef cpu64bit}
-        asmlist[al_dwarf_abbrev].concat(tai_const.create_uleb128bit(ord(DW_FORM_ref8)));
-{$else cpu64bit}
-        asmlist[al_dwarf_abbrev].concat(tai_const.create_uleb128bit(ord(DW_FORM_ref4)));
-{$endif cpu64bit}
+        asmlist[al_dwarf_abbrev].concat(tai_const.create_uleb128bit(ord(DW_FORM_ref_addr)));
         asmlist[al_dwarf_info].concat(tai_const.create_sym(sym));
       end;