diff options
| author | Ian Lynagh <ian@well-typed.com> | 2012-09-12 16:32:34 +0100 |
|---|---|---|
| committer | Ian Lynagh <ian@well-typed.com> | 2012-09-12 16:32:34 +0100 |
| commit | 2b7319a67de0771d31626091e43dd3b60827a0ea (patch) | |
| tree | cb1542cb4e9e7e6826e06f2fb94fd590dca2f834 /compiler/codeGen/CgCon.lhs | |
| parent | 44b5f471a314d964948c38684ce74b7a87df4ed8 (diff) | |
| download | haskell-2b7319a67de0771d31626091e43dd3b60827a0ea.tar.gz | |
Pass DynFlags down to wordWidth
Diffstat (limited to 'compiler/codeGen/CgCon.lhs')
| -rw-r--r-- | compiler/codeGen/CgCon.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/codeGen/CgCon.lhs b/compiler/codeGen/CgCon.lhs index 146f28461f..57fd10d4e4 100644 --- a/compiler/codeGen/CgCon.lhs +++ b/compiler/codeGen/CgCon.lhs @@ -355,7 +355,7 @@ cgReturnDataCon con amodes = do where node_live = Just [node] enter_it dflags - = stmtsC [ CmmAssign nodeReg (cmmUntag (CmmReg nodeReg)), + = stmtsC [ CmmAssign nodeReg (cmmUntag dflags (CmmReg nodeReg)), CmmJump (entryCode dflags $ closureInfoPtr dflags $ CmmReg nodeReg) node_live ] |