paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-04 04:17:53 +01:00
Code Issues Packages Projects Releases Wiki Activity

* use uppercase object section names in the OMF linker script for matching the

Browse Source 
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 -
This commit is contained in:
nickysn 2018-06-14 15:19:11 +00:00
parent c56ebad183
commit 5b47bad32a
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/systems/t_msdos.pas
View File

@ -497,16 +497,16 @@ begin
(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(' OBJSECTION .DEBUG_INFO||DWARF');
LinkScript.Concat('ENDEXESECTION');
LinkScript.Concat('EXESECTION .debug_abbrev');
LinkScript.Concat(' OBJSECTION .debug_abbrev||DWARF');
LinkScript.Concat(' OBJSECTION .DEBUG_ABBREV||DWARF');
LinkScript.Concat('ENDEXESECTION');
LinkScript.Concat('EXESECTION .debug_line');
LinkScript.Concat(' OBJSECTION .debug_line||DWARF');
LinkScript.Concat(' OBJSECTION .DEBUG_LINE||DWARF');
LinkScript.Concat('ENDEXESECTION');
LinkScript.Concat('EXESECTION .debug_aranges');
LinkScript.Concat(' OBJSECTION .debug_aranges||DWARF');
LinkScript.Concat(' OBJSECTION .DEBUG_ARANGES||DWARF');
LinkScript.Concat('ENDEXESECTION');
end;