2
0
Эх сурвалжийг харах

+ set the oso_debug flag to dwarf MZ exe sections

git-svn-id: trunk@39224 -
nickysn 7 жил өмнө
parent
commit
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;