paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-06 04:47:17 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fixed writing of string constant symbols

Browse Source 
git-svn-id: trunk@2375 -
This commit is contained in:
florian 2006-01-29 12:37:53 +00:00
parent a5d254e8fe
commit 133366a411
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/dbgdwarf.pas
View File

@ -1310,6 +1310,8 @@ implementation
append_entry(DW_TAG_constant,false,[ append_entry(DW_TAG_constant,false,[
DW_AT_name,DW_FORM_string,sym.name+#0 DW_AT_name,DW_FORM_string,sym.name+#0
]); ]);
{ for string constants, consttype isn't set because they have no real type }
if sym.consttyp<>conststring then
append_labelentry_ref(DW_AT_type,def_dwarf_lab(sym.consttype.def)); append_labelentry_ref(DW_AT_type,def_dwarf_lab(sym.consttype.def));
asmlist[al_dwarf_abbrev].concat(tai_const.create_uleb128bit(ord(DW_AT_const_value))); asmlist[al_dwarf_abbrev].concat(tai_const.create_uleb128bit(ord(DW_AT_const_value)));
case sym.consttyp of case sym.consttyp of
@ -1353,7 +1355,7 @@ implementation
s80real: s80real:
begin begin
asmlist[al_dwarf_info].concat(tai_const.create_8bit(10)); asmlist[al_dwarf_info].concat(tai_const.create_8bit(10));
asmlist[al_dwarf_info].concat(tai_real_128bit.create(pextended(sym.value.valueptr)^)); asmlist[al_dwarf_info].concat(tai_real_80bit.create(pextended(sym.value.valueptr)^));
end; end;
else else
internalerror(200601291); internalerror(200601291);