paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-06 02:08:18 +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
This commit is contained in:
florian 2024-05-23 22:54:30 +02:00
parent ee9c54d51a
commit b313a66a47
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

@ -3048,6 +3048,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));
@ -3142,8 +3146,6 @@ implementation
procedure TDebugInfoDwarf.inserttypeinfo;
var
storefilepos : tfileposinfo;
lenstartlabel,arangestartlabel: tasmlabel;