Explorar el Código

* fixed references

git-svn-id: trunk@2554 -
florian hace 19 años
padre
commit
05207fc54e
Se han modificado 1 ficheros con 1 adiciones y 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;