bugfix: static constructors were being given the dynamic info table pointer
authorSimon Marlow <marlowsd@gmail.com>
Wed, 24 Aug 2011 09:39:23 +0000 (10:39 +0100)
committerSimon Marlow <marlowsd@gmail.com>
Thu, 25 Aug 2011 10:12:33 +0000 (11:12 +0100)
compiler/codeGen/StgCmmCon.hs

index 724490c..ae40daf 100644 (file)
@@ -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 }