+ generate script code for creating the dwarf exe sections when using the

  internal linker with dwarf debug info enabled on i8086-msdos

git-svn-id: trunk@39117 -

compiler/systems/t_msdos.pas

@@ -492,6 +492,23 @@ begin
     end;
   LinkScript.Concat('ENDEXESECTION');
 
+  if (cs_debuginfo in current_settings.moduleswitches) and
+     (target_dbg.id in [dbg_dwarf2,dbg_dwarf3,dbg_dwarf4]) then
+    begin
+      LinkScript.Concat('EXESECTION .debug_info');
+      LinkScript.Concat('  OBJSECTION .debug_info||DWARF');
+      LinkScript.Concat('ENDEXESECTION');
+      LinkScript.Concat('EXESECTION .debug_abbrev');
+      LinkScript.Concat('  OBJSECTION .debug_abbrev||DWARF');
+      LinkScript.Concat('ENDEXESECTION');
+      LinkScript.Concat('EXESECTION .debug_line');
+      LinkScript.Concat('  OBJSECTION .debug_line||DWARF');
+      LinkScript.Concat('ENDEXESECTION');
+      LinkScript.Concat('EXESECTION .debug_aranges');
+      LinkScript.Concat('  OBJSECTION .debug_aranges||DWARF');
+      LinkScript.Concat('ENDEXESECTION');
+    end;
+
   LinkScript.Concat('ENTRYNAME ..start');
 end;