Преглед изворни кода

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

florian пре 1 година
родитељ
комит
b313a66a47
1 измењених фајлова са 4 додато и 2 уклоњено
  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;