paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 07:29:29 +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 if (target_info.system = system_powerpc64_linux) then
procentry := '.' + pd.mangledname procentry := '.' + pd.mangledname
else else
procentry := pd.mangledname; procentry := pd.mangledname;
append_labelentry(DW_AT_low_pc,current_asmdata.RefAsmSymbol(procentry)); append_labelentry(DW_AT_low_pc,current_asmdata.RefAsmSymbol(procentry));
@ -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