From a6315fc72eeb418c513c63c7f8ed674c26dd0092 Mon Sep 17 00:00:00 2001
From: Simon Marlow <marlowsd@gmail.com>
Date: Wed, 24 Aug 2011 10:39:23 +0100
Subject: bugfix: static constructors were being given the dynamic info table
 pointer

---
 compiler/codeGen/StgCmmCon.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'compiler/codeGen')

diff --git a/compiler/codeGen/StgCmmCon.hs b/compiler/codeGen/StgCmmCon.hs
index 724490c133..ae40daf372 100644
--- a/compiler/codeGen/StgCmmCon.hs
+++ b/compiler/codeGen/StgCmmCon.hs
@@ -75,7 +75,7 @@ cgTopRhsCon id con args
     	    (tot_wds, --  #ptr_wds + #nonptr_wds
     	     ptr_wds, --  #ptr_wds
     	     nv_args_w_offsets) = mkVirtConstrOffsets (addArgReps args)
-	    closure_info = mkConInfo False caffy con tot_wds ptr_wds
+            closure_info = mkConInfo True caffy con tot_wds ptr_wds
 
 	    get_lit (arg, _offset) = do { CmmLit lit <- getArgAmode arg
 				        ; return lit }
-- 
cgit v1.2.1