Browse Source

+ set the oso_debug flag to dwarf MZ exe sections

git-svn-id: trunk@39224 -
nickysn 7 years ago
parent
commit
97365abbcf
1 changed files with 5 additions and 1 deletions
  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;