Преглед на файлове

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