diff options
| author | Matthew Craven <5086-clyring@users.noreply.gitlab.haskell.org> | 2023-04-17 22:24:03 -0400 |
|---|---|---|
| committer | Matthew Craven <5086-clyring@users.noreply.gitlab.haskell.org> | 2023-04-17 22:24:03 -0400 |
| commit | ee5510b9747bd8783fe2bd8513d4f98c7f93a438 (patch) | |
| tree | c46dec9ce278fe420eeb6988844e8b03b09fe4c2 | |
| parent | 22048b914dd885e6798d7b64cc3e7c9eaf2ec413 (diff) | |
| download | haskell-ee5510b9747bd8783fe2bd8513d4f98c7f93a438.tar.gz | |
StgToCmm: void argument to SeqOp was unarised away
| -rw-r--r-- | compiler/GHC/StgToCmm/Expr.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/GHC/StgToCmm/Expr.hs b/compiler/GHC/StgToCmm/Expr.hs index 56159d67a8..211c236a43 100644 --- a/compiler/GHC/StgToCmm/Expr.hs +++ b/compiler/GHC/StgToCmm/Expr.hs @@ -71,7 +71,7 @@ cgExpr (StgApp fun args) = cgIdApp fun args -- seq# a s ==> a -- See Note [seq# magic] in GHC.Core.Opt.ConstantFold -cgExpr (StgOpApp (StgPrimOp SeqOp) [StgVarArg a, _] _res_ty) = +cgExpr (StgOpApp (StgPrimOp SeqOp) [StgVarArg a] _res_ty) = cgIdApp a [] -- dataToTag# :: a -> Int# @@ -541,7 +541,7 @@ The special case for seq# in cgCase does this: is the same as the return convention for just 'a') -} -cgCase (StgOpApp (StgPrimOp SeqOp) [StgVarArg a, _] _) bndr alt_type alts +cgCase (StgOpApp (StgPrimOp SeqOp) [StgVarArg a] _) bndr alt_type alts = -- Note [Handle seq#] -- And see Note [seq# magic] in GHC.Core.Opt.ConstantFold -- Use the same return convention as vanilla 'a'. |