paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-03 09:29:42 +01:00
Code Issues Packages Projects Releases Wiki Activity

* put the i8086-msdos dwarf debug sections in USE32 class=DWARF segments because

Browse Source 
wlink wants them this way

git-svn-id: trunk@25873 -
This commit is contained in:
nickysn 2013-10-27 20:28:43 +00:00
parent 93a706f1a0
commit 9f979eb5c6
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/x86/agx86nsm.pas
View File

@ -1139,6 +1139,13 @@ interface
else
AsmWriteLn('GROUP dgroup rodata data fpc bss');
end;
if paratargetdbg in [dbg_dwarf2,dbg_dwarf3,dbg_dwarf4] then
begin
AsmWriteLn('SECTION .debug_frame use32 class=DWARF');
AsmWriteLn('SECTION .debug_info use32 class=DWARF');
AsmWriteLn('SECTION .debug_line use32 class=DWARF');
AsmWriteLn('SECTION .debug_abbrev use32 class=DWARF');
end;
AsmWriteLn('SECTION ' + CodeSectionName);
{$else i8086}
AsmWriteLn('BITS 32');