From: sewardj <unknown>
Date: Fri, 29 Jun 2001 16:17:28 +0000 (+0000)
Subject: [project @ 2001-06-29 16:17:28 by sewardj]
X-Git-Tag: Approximately_9120_patches~1640
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=adc4d69f1b03bfb6048813091da482999544657c;hp=3d83af853136ba69d5bf8728af1fc70648aa81c4;p=ghc-hetmet.git

[project @ 2001-06-29 16:17:28 by sewardj]
Let the PEi386 machinery recognise .rodata sections.
---

diff --git a/ghc/rts/Linker.c b/ghc/rts/Linker.c
index 388913d..10423a1 100644
--- a/ghc/rts/Linker.c
+++ b/ghc/rts/Linker.c
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: Linker.c,v 1.48 2001/06/29 14:47:58 sewardj Exp $
+ * $Id: Linker.c,v 1.49 2001/06/29 16:17:28 sewardj Exp $
  *
  * (c) The GHC Team, 2000
  *
@@ -1223,7 +1223,8 @@ ocGetNames_PEi386 ( ObjectCode* oc )
          kind = SECTIONKIND_CODE_OR_RODATA;
 #endif
 
-      if (0==strcmp(".text",sectab_i->Name))
+      if (0==strcmp(".text",sectab_i->Name) ||
+          0==strcmp(".rodata",sectab_i->Name))
          kind = SECTIONKIND_CODE_OR_RODATA;
       if (0==strcmp(".data",sectab_i->Name) ||
           0==strcmp(".bss",sectab_i->Name))