瀏覽代碼

* don't use generic section rule for .stab and .stabstr

git-svn-id: trunk@7187 -
peter 18 年之前
父節點
當前提交
8a02ac0a5a
共有 1 個文件被更改,包括 8 次插入1 次删除
  1. 8 1
      compiler/systems/t_win.pas

+ 8 - 1
compiler/systems/t_win.pas

@@ -1009,7 +1009,7 @@ implementation
             Concat('  OBJSECTION .idata$6*');
             Concat('  OBJSECTION .idata$7*');
             Concat('ENDEXESECTION');
-            secnames:='.edata,.rsrc,.reloc,.stab,.stabstr,'+
+            secnames:='.edata,.rsrc,.reloc,'+
                       '.debug_aranges,.debug_pubnames,.debug_info,.debug_abbrev,.debug_line,.debug_frame,.debug_str,.debug_loc,'+
                       '.debug_macinfo,.debug_weaknames,.debug_funcnames,.debug_typenames,.debug_varnames,.debug_ranges';
             repeat
@@ -1020,6 +1020,13 @@ implementation
               Concat('  OBJSECTION '+secname+'*');
               Concat('ENDEXESECTION');
             until false;
+            { Can't use the generic rules, because that will add also .stabstr to .stab }
+            Concat('EXESECTION .stab');
+            Concat('  OBJSECTION .stab');
+            Concat('ENDEXESECTION');
+            Concat('EXESECTION .stabstr');
+            Concat('  OBJSECTION .stabstr');
+            Concat('ENDEXESECTION');
             Concat('STABS');
             Concat('SYMBOLS');
           end;