From 8a02ac0a5a5fd00537543ce8aba983ab26969d3d Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Sun, 29 Apr 2007 09:48:59 +0000
Subject: [PATCH]   * don't use generic section rule for .stab and .stabstr

git-svn-id: trunk@7187 -
---
 compiler/systems/t_win.pas | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/compiler/systems/t_win.pas b/compiler/systems/t_win.pas
index 4e00108890..fead00f893 100644
--- a/compiler/systems/t_win.pas
+++ b/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;