paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-03 08:18:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

--- Merging r43182 into '.':

Browse Source 
U    compiler/dbgdwarf.pas
--- Recording mergeinfo for merge of r43182 into '.':
 U   .

# revisions: 43182

git-svn-id: branches/fixes_3_2@45074 -
This commit is contained in:
marco 2020-04-25 16:06:26 +00:00
parent 364db85ec9
commit 85e6640553
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/dbgdwarf.pas
View File

@ -4279,7 +4279,11 @@ implementation
{ yes -> length = 0 }
current_asmdata.asmlists[al_dwarf_info].concat(tai_const.create_8bit(ord(DW_OP_lit0)));
current_asmdata.asmlists[al_dwarf_info].concat(tai_const.create_8bit(ord(DW_OP_skip)));
current_asmdata.asmlists[al_dwarf_info].concat(tai_const.create_16bit_unaligned(3));
if upperopcodes=16 then
{ skip the extra deref_size argument and the division by two of the length }
current_asmdata.asmlists[al_dwarf_info].concat(tai_const.create_16bit_unaligned(6))
else
current_asmdata.asmlists[al_dwarf_info].concat(tai_const.create_16bit_unaligned(3));
{ no -> load length }
if upperopcodes=16 then
{ for Windows WideString the size is always a DWORD }