Преглед на файлове

* fixed references

git-svn-id: trunk@2554 -
florian преди 19 години
родител
ревизия
05207fc54e
променени са 1 файла, в които са добавени 1 реда и са изтрити 5 реда
  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;