paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 23:21:57 +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

4
compiler/dbgdwarf.pas
View File

@ -1640,7 +1640,7 @@ implementation
if (target_info.system = system_powerpc64_linux) then
procentry := '.' + pd.mangledname
else
else
procentry := pd.mangledname;
append_labelentry(DW_AT_low_pc,current_asmdata.RefAsmSymbol(procentry));
@ -1852,7 +1852,7 @@ implementation
DW_AT_name,DW_FORM_string,symname(sym)+#0
]);
{ 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));
current_asmdata.asmlists[al_dwarf_abbrev].concat(tai_const.create_uleb128bit(ord(DW_AT_const_value)));
case sym.consttyp of