paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-13 09:39:09 +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

4
compiler/dbgdwarf.pas
View File

@ -4279,6 +4279,10 @@ implementation
{ yes -> length = 0 } { 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_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_8bit(ord(DW_OP_skip)));
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)); current_asmdata.asmlists[al_dwarf_info].concat(tai_const.create_16bit_unaligned(3));
{ no -> load length } { no -> load length }
if upperopcodes=16 then if upperopcodes=16 then