Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : master
http://hackage.haskell.org/trac/ghc/changeset/a6315fc72eeb418c513c63c7f8ed674c26dd0092 >--------------------------------------------------------------- commit a6315fc72eeb418c513c63c7f8ed674c26dd0092 Author: Simon Marlow <[email protected]> Date: Wed Aug 24 10:39:23 2011 +0100 bugfix: static constructors were being given the dynamic info table pointer >--------------------------------------------------------------- compiler/codeGen/StgCmmCon.hs | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-) diff --git a/compiler/codeGen/StgCmmCon.hs b/compiler/codeGen/StgCmmCon.hs index 724490c..ae40daf 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 } _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
