diff options
Diffstat (limited to 'compiler/codeGen/StgCmm.hs')
| -rw-r--r-- | compiler/codeGen/StgCmm.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/compiler/codeGen/StgCmm.hs b/compiler/codeGen/StgCmm.hs index 70892eeb5e..d82b4bc3b1 100644 --- a/compiler/codeGen/StgCmm.hs +++ b/compiler/codeGen/StgCmm.hs @@ -244,8 +244,9 @@ cgDataCon data_con do { _ <- ticky_code ; ldvEnter (CmmReg nodeReg) ; tickyReturnOldCon (length arg_things) - ; emitReturn [cmmOffsetB (CmmReg nodeReg) - (tagForCon data_con)] } + ; _ <- emitReturn [cmmOffsetB (CmmReg nodeReg) + (tagForCon data_con)] + ; return () } -- The case continuation code expects a tagged pointer arg_reps :: [(PrimRep, UnaryType)] |