浏览代码

* put the i8086-msdos dwarf debug sections in USE32 class=DWARF segments because
wlink wants them this way

git-svn-id: trunk@25873 -

nickysn 12 年之前
父节点
当前提交
9f979eb5c6
共有 1 个文件被更改,包括 7 次插入0 次删除
  1. 7 0
      compiler/x86/agx86nsm.pas

+ 7 - 0
compiler/x86/agx86nsm.pas

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