paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-23 02:29:34 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed references

Browse Source 
git-svn-id: trunk@2554 -
This commit is contained in:
florian 2006-02-12 21:58:33 +00:00
parent b03d19b2a0
commit 05207fc54e
1 changed files with 1 additions and 5 deletions

6
compiler/dbgdwarf.pas
View File

@ -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;