From 04f5026a0d79a4aab21eac31ddb8fa96e456fe2c Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Wed, 25 Apr 2007 08:02:59 +0000
Subject: [PATCH]   * support dwarf2 sections

git-svn-id: trunk@7171 -
---
 compiler/systems/t_win.pas | 28 +++++++++++++---------------
 1 file changed, 13 insertions(+), 15 deletions(-)

diff --git a/compiler/systems/t_win.pas b/compiler/systems/t_win.pas
index d6f59f37be..4e00108890 100644
--- a/compiler/systems/t_win.pas
+++ b/compiler/systems/t_win.pas
@@ -906,6 +906,8 @@ implementation
       var
         s,s2,
         ibase : TCmdStr;
+        secname,
+        secnames : string;
       begin
         with LinkScript do
           begin
@@ -1007,21 +1009,17 @@ implementation
             Concat('  OBJSECTION .idata$6*');
             Concat('  OBJSECTION .idata$7*');
             Concat('ENDEXESECTION');
-            Concat('EXESECTION .edata');
-            Concat('  OBJSECTION .edata*');
-            Concat('ENDEXESECTION');
-            Concat('EXESECTION .rsrc');
-            Concat('  OBJSECTION .rsrc*');
-            Concat('ENDEXESECTION');
-            Concat('EXESECTION .reloc');
-            Concat('  OBJSECTION .reloc');
-            Concat('ENDEXESECTION');
-            Concat('EXESECTION .stab');
-            Concat('  OBJSECTION .stab');
-            Concat('ENDEXESECTION');
-            Concat('EXESECTION .stabstr');
-            Concat('  OBJSECTION .stabstr');
-            Concat('ENDEXESECTION');
+            secnames:='.edata,.rsrc,.reloc,.stab,.stabstr,'+
+                      '.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
+              secname:=gettoken(secnames,',');
+              if secname='' then
+                break;
+              Concat('EXESECTION '+secname);
+              Concat('  OBJSECTION '+secname+'*');
+              Concat('ENDEXESECTION');
+            until false;
             Concat('STABS');
             Concat('SYMBOLS');
           end;