From adc4d69f1b03bfb6048813091da482999544657c Mon Sep 17 00:00:00 2001
From: sewardj <unknown>
Date: Fri, 29 Jun 2001 16:17:28 +0000
Subject: [PATCH] [project @ 2001-06-29 16:17:28 by sewardj] Let the PEi386
 machinery recognise .rodata sections.

---
 ghc/rts/Linker.c |    5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

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))
-- 
1.7.10.4