Parcourir la source

+ set the oso_debug flag to dwarf MZ exe sections

git-svn-id: trunk@39224 -
nickysn il y a 7 ans
Parent
commit
97365abbcf
1 fichiers modifiés avec 5 ajouts et 1 suppressions
  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;