From 53068b73f9ad46f3bea066f3270230c5d38d9b9f Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Thu, 27 Oct 2005 01:27:37 +0000
Subject: [PATCH] [project @ 2005-10-27 01:27:37 by sof] ocGetNames_PEi386():
 fix bug in previous commit to this function; the correct
 .bss size for object files wasn't being passed to
 addProddableBlock(). Not directly harmful, but triggers
 ASSERT() failure w/ DEBUG.

Merge to STABLE.
---
 ghc/rts/Linker.c |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ghc/rts/Linker.c b/ghc/rts/Linker.c
index 7165443..62fc9fa 100644
--- a/ghc/rts/Linker.c
+++ b/ghc/rts/Linker.c
@@ -2047,7 +2047,7 @@ ocGetNames_PEi386 ( ObjectCode* oc )
       if ( bss_sz < sectab_i->SizeOfRawData) { bss_sz = sectab_i->SizeOfRawData; }
       zspace = stgCallocBytes(1, bss_sz, "ocGetNames_PEi386(anonymous bss)");
       sectab_i->PointerToRawData = ((UChar*)zspace) - ((UChar*)(oc->image));
-      addProddableBlock(oc, zspace, sectab_i->VirtualSize);
+      addProddableBlock(oc, zspace, bss_sz);
       /* debugBelch("BSS anon section at 0x%x\n", zspace); */
    }
 
-- 
1.7.10.4