瀏覽代碼

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

(cherry picked from commit b313a66a47822b0648e25f49ee60ec1719d1443e)
florian 1 年之前
父節點
當前提交
823a6d23d7
共有 1 個文件被更改,包括 4 次插入2 次删除
  1. 4 2
      compiler/dbgdwarf.pas

+ 4 - 2
compiler/dbgdwarf.pas

@@ -3293,6 +3293,10 @@ implementation
         { minimum_instruction_length }
         { minimum_instruction_length }
         linelist.concat(tai_const.create_8bit(1));
         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 }
         { default_is_stmt }
         linelist.concat(tai_const.create_8bit(1));
         linelist.concat(tai_const.create_8bit(1));
 
 
@@ -3387,8 +3391,6 @@ implementation
 
 
 
 
     procedure TDebugInfoDwarf.inserttypeinfo;
     procedure TDebugInfoDwarf.inserttypeinfo;
-
-
       var
       var
         storefilepos  : tfileposinfo;
         storefilepos  : tfileposinfo;
         lenstartlabel,arangestartlabel: tasmlabel;
         lenstartlabel,arangestartlabel: tasmlabel;