Browse Source

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

florian 1 year ago
parent
commit
b313a66a47
1 changed files with 4 additions and 2 deletions
  1. 4 2
      compiler/dbgdwarf.pas

+ 4 - 2
compiler/dbgdwarf.pas

@@ -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;