paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-19 22:29:28 +01:00
Code Issues Packages Projects Releases Wiki Activity

* emit a sizeint-sized string length for long string constants in the DWARF

Browse Source 
debug info, instead of using create_pint

git-svn-id: trunk@34649 -
This commit is contained in:
nickysn 2016-10-07 22:36:48 +00:00
parent fde6b0b53b
commit 163d54c33e
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

@ -2750,8 +2750,8 @@ implementation
else
begin
AddConstToAbbrev(ord(DW_FORM_block));
current_asmdata.asmlists[al_dwarf_info].concat(tai_const.create_uleb128bit(sym.value.len+sizeof(pint)));
current_asmdata.asmlists[al_dwarf_info].concat(tai_const.create_pint_unaligned(sym.value.len));
current_asmdata.asmlists[al_dwarf_info].concat(tai_const.create_uleb128bit(sym.value.len+sizesinttype.size));
current_asmdata.asmlists[al_dwarf_info].concat(tai_const.Create_sizeint_unaligned(sym.value.len));
end;
i:=0;
size:=sym.value.len;