diff options
| author | Ian Lynagh <ian@well-typed.com> | 2012-09-16 20:55:26 +0100 |
|---|---|---|
| committer | Ian Lynagh <ian@well-typed.com> | 2012-09-16 20:55:26 +0100 |
| commit | b0f4c44ed777af599daf35035b0830b35e57fa4a (patch) | |
| tree | b2a96dbf9ca11cbcd3098d91ef6c368d8c538199 /compiler/codeGen/StgCmm.hs | |
| parent | 7ecefb6b30c3b249bba0454586c4a008d66d567b (diff) | |
| download | haskell-b0f4c44ed777af599daf35035b0830b35e57fa4a.tar.gz | |
Move tAG_BITS into platformConstants
Diffstat (limited to 'compiler/codeGen/StgCmm.hs')
| -rw-r--r-- | compiler/codeGen/StgCmm.hs | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/compiler/codeGen/StgCmm.hs b/compiler/codeGen/StgCmm.hs index 65e0103099..f1022e5280 100644 --- a/compiler/codeGen/StgCmm.hs +++ b/compiler/codeGen/StgCmm.hs @@ -205,9 +205,10 @@ mkModuleInit cost_centre_info this_mod hpc_info cgEnumerationTyCon :: TyCon -> FCode () cgEnumerationTyCon tycon - = emitRODataLits (mkLocalClosureTableLabel (tyConName tycon) NoCafRefs) + = do dflags <- getDynFlags + emitRODataLits (mkLocalClosureTableLabel (tyConName tycon) NoCafRefs) [ CmmLabelOff (mkLocalClosureLabel (dataConName con) NoCafRefs) - (tagForCon con) + (tagForCon dflags con) | con <- tyConDataCons tycon] @@ -236,7 +237,7 @@ cgDataCon data_con ; ldvEnter (CmmReg nodeReg) ; tickyReturnOldCon (length arg_things) ; void $ emitReturn [cmmOffsetB dflags (CmmReg nodeReg) - (tagForCon data_con)] + (tagForCon dflags data_con)] } -- The case continuation code expects a tagged pointer |