paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-05 10:46:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

* don't write def for constant widestrings

Browse Source 
git-svn-id: trunk@7167 -
This commit is contained in:
florian 2007-04-24 08:53:59 +00:00
parent d12c324f27
commit d83a869018
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/dbgdwarf.pas
View File

@ -1852,7 +1852,7 @@ implementation
DW_AT_name,DW_FORM_string,symname(sym)+#0 DW_AT_name,DW_FORM_string,symname(sym)+#0
]); ]);
{ for string constants, constdef isn't set because they have no real type } { for string constants, constdef isn't set because they have no real type }
if not(sym.consttyp in [conststring,constresourcestring]) then if not(sym.consttyp in [conststring,constresourcestring,constwstring]) then
append_labelentry_ref(DW_AT_type,def_dwarf_lab(sym.constdef)); append_labelentry_ref(DW_AT_type,def_dwarf_lab(sym.constdef));
current_asmdata.asmlists[al_dwarf_abbrev].concat(tai_const.create_uleb128bit(ord(DW_AT_const_value))); current_asmdata.asmlists[al_dwarf_abbrev].concat(tai_const.create_uleb128bit(ord(DW_AT_const_value)));
case sym.consttyp of case sym.consttyp of