paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 11:29:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ introduced LINE_RANGE constant in the DWARF debug info generation unit

Browse Source
This commit is contained in:
Nikolay Nikolov 2024-09-15 05:36:36 +03:00
parent 562ca0ad80
commit 4914a5a31f
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/dbgdwarf.pas
View File

@ -283,6 +283,7 @@ implementation
const const
LINE_BASE = 1; LINE_BASE = 1;
LINE_RANGE = 255;
OPCODE_BASE = 13; OPCODE_BASE = 13;
const const
@ -3095,7 +3096,7 @@ implementation
{ line_range } { line_range }
{ only line increase, no adress } { only line increase, no adress }
linelist.concat(tai_const.create_8bit(255)); linelist.concat(tai_const.create_8bit(LINE_RANGE));
{ opcode_base } { opcode_base }
linelist.concat(tai_const.create_8bit(OPCODE_BASE)); linelist.concat(tai_const.create_8bit(OPCODE_BASE));
@ -3675,7 +3676,8 @@ implementation
{ set line } { set line }
diffline := currfileinfo.line - prevline; diffline := currfileinfo.line - prevline;
if (diffline >= LINE_BASE) and (OPCODE_BASE + diffline - LINE_BASE <= 255) then if (diffline >= LINE_BASE) and (diffline <= (LINE_BASE + LINE_RANGE - 1)) and
(OPCODE_BASE + diffline - LINE_BASE <= 255) then
begin begin
{ use special opcode, this also adds a row } { use special opcode, this also adds a row }
asmline.concat(tai_const.create_8bit(OPCODE_BASE + diffline - LINE_BASE)); asmline.concat(tai_const.create_8bit(OPCODE_BASE + diffline - LINE_BASE));