Browse Source

* use uppercase object section names in the OMF linker script for matching the
dwarf debug sections. This is because they are converted to upper case when
reading (so that we treat omf section names as case-insensitive)

git-svn-id: trunk@39220 -

nickysn 7 years ago
parent
commit
5b47bad32a
1 changed files with 4 additions and 4 deletions
  1. 4 4
      compiler/systems/t_msdos.pas

+ 4 - 4
compiler/systems/t_msdos.pas

@@ -497,16 +497,16 @@ begin
      (target_dbg.id in [dbg_dwarf2,dbg_dwarf3,dbg_dwarf4]) then
      (target_dbg.id in [dbg_dwarf2,dbg_dwarf3,dbg_dwarf4]) then
     begin
     begin
       LinkScript.Concat('EXESECTION .debug_info');
       LinkScript.Concat('EXESECTION .debug_info');
-      LinkScript.Concat('  OBJSECTION .debug_info||DWARF');
+      LinkScript.Concat('  OBJSECTION .DEBUG_INFO||DWARF');
       LinkScript.Concat('ENDEXESECTION');
       LinkScript.Concat('ENDEXESECTION');
       LinkScript.Concat('EXESECTION .debug_abbrev');
       LinkScript.Concat('EXESECTION .debug_abbrev');
-      LinkScript.Concat('  OBJSECTION .debug_abbrev||DWARF');
+      LinkScript.Concat('  OBJSECTION .DEBUG_ABBREV||DWARF');
       LinkScript.Concat('ENDEXESECTION');
       LinkScript.Concat('ENDEXESECTION');
       LinkScript.Concat('EXESECTION .debug_line');
       LinkScript.Concat('EXESECTION .debug_line');
-      LinkScript.Concat('  OBJSECTION .debug_line||DWARF');
+      LinkScript.Concat('  OBJSECTION .DEBUG_LINE||DWARF');
       LinkScript.Concat('ENDEXESECTION');
       LinkScript.Concat('ENDEXESECTION');
       LinkScript.Concat('EXESECTION .debug_aranges');
       LinkScript.Concat('EXESECTION .debug_aranges');
-      LinkScript.Concat('  OBJSECTION .debug_aranges||DWARF');
+      LinkScript.Concat('  OBJSECTION .DEBUG_ARANGES||DWARF');
       LinkScript.Concat('ENDEXESECTION');
       LinkScript.Concat('ENDEXESECTION');
     end;
     end;