Pārlūkot izejas kodu

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

(cherry picked from commit b313a66a47822b0648e25f49ee60ec1719d1443e)
florian 1 gadu atpakaļ
vecāks
revīzija
823a6d23d7
1 mainītis faili ar 4 papildinājumiem un 2 dzēšanām
  1. 4 2
      compiler/dbgdwarf.pas

+ 4 - 2
compiler/dbgdwarf.pas

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