diff options
| author | John Ericson <John.Ericson@Obsidian.Systems> | 2019-06-27 20:17:09 -0400 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2019-10-07 12:04:19 -0400 |
| commit | 805653f60de3651e0a36e1d332cda68b3bb47381 (patch) | |
| tree | e2feca168b6dd1685d777c80a841377e167f26f4 /compiler/GHC/StgToCmm/Expr.hs | |
| parent | e3418e96250f68110e149a7c9ec8b3ac2efa8f99 (diff) | |
| download | haskell-805653f60de3651e0a36e1d332cda68b3bb47381.tar.gz | |
Get rid of wildcard patterns in prim Cmm emitting code
This way, we can be sure we don't miss a case.
Diffstat (limited to 'compiler/GHC/StgToCmm/Expr.hs')
| -rw-r--r-- | compiler/GHC/StgToCmm/Expr.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/GHC/StgToCmm/Expr.hs b/compiler/GHC/StgToCmm/Expr.hs index f2f549259b..8645532472 100644 --- a/compiler/GHC/StgToCmm/Expr.hs +++ b/compiler/GHC/StgToCmm/Expr.hs @@ -576,7 +576,7 @@ isSimpleOp (StgPrimOp op) stg_args = do arg_exprs <- getNonVoidArgAmodes stg_args dflags <- getDynFlags -- See Note [Inlining out-of-line primops and heap checks] - return $! isJust $ shouldInlinePrimOp dflags op arg_exprs + return $! shouldInlinePrimOp dflags op arg_exprs isSimpleOp (StgPrimCallOp _) _ = return False ----------------- |