瀏覽代碼

+ set the oso_debug flag to dwarf MZ exe sections

git-svn-id: trunk@39224 -
nickysn 7 年之前
父節點
當前提交
97365abbcf
共有 1 個文件被更改,包括 5 次插入1 次删除
  1. 5 1
      compiler/ogomf.pas

+ 5 - 1
compiler/ogomf.pas

@@ -3010,7 +3010,11 @@ cleanup:
           '.debug_abbrev',
           '.debug_line',
           '.debug_aranges':
-            CalcDwarfUnifiedLogicalSegmentsForSection(SecName);
+            begin
+              CalcDwarfUnifiedLogicalSegmentsForSection(SecName);
+              with TMZExeSection(FindExeSection(SecName)) do
+                SecOptions:=SecOptions+[oso_debug];
+            end;
           else
             internalerror(2018061401);
         end;