diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2011-08-24 10:39:23 +0100 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2011-08-25 11:12:33 +0100 |
| commit | a6315fc72eeb418c513c63c7f8ed674c26dd0092 (patch) | |
| tree | 8c0fabbed8e0340a9323141aaea3217ef7a5b6fa /compiler/codeGen | |
| parent | 3a179c20d180ef8302dfccd3470b668c2b2cdeef (diff) | |
| download | haskell-a6315fc72eeb418c513c63c7f8ed674c26dd0092.tar.gz | |
bugfix: static constructors were being given the dynamic info table pointer
Diffstat (limited to 'compiler/codeGen')
| -rw-r--r-- | 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 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 } |