paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-13 05:29:34 +02:00
Code Issues Packages Projects Releases Wiki Activity

* correct Dwarf-4 line info header as noted by Martin on the mailing list

Browse Source 
(cherry picked from commit b313a66a47)
This commit is contained in:
florian 2024-05-23 22:54:30 +02:00
parent 3795cadbc8
commit 823a6d23d7
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

@ -3293,6 +3293,10 @@ implementation
{ minimum_instruction_length }
linelist.concat(tai_const.create_8bit(1));
{ maximum ops per instruction }
if dwarf_version>=4 then
linelist.concat(tai_const.create_8bit(1));
{ default_is_stmt }
linelist.concat(tai_const.create_8bit(1));
@ -3387,8 +3391,6 @@ implementation
procedure TDebugInfoDwarf.inserttypeinfo;
var
storefilepos : tfileposinfo;
lenstartlabel,arangestartlabel: tasmlabel;