paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-13 12:49:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
internal linker with dwarf debug info enabled on i8086-msdos

git-svn-id: trunk@39117 -
This commit is contained in:
nickysn 2018-05-25 15:35:17 +00:00
parent 4efb978858
commit 22e8763100
1 changed files with 17 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
compiler/systems/t_msdos.pas
View File

@ -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;