From ad6863b921e1e0d8fada06d4332ae1b9344a47df Mon Sep 17 00:00:00 2001 From: sof Date: Fri, 14 Aug 1998 12:02:45 +0000 Subject: [PATCH] [project @ 1998-08-14 12:02:45 by sof] okToUnfoldPrimOp: CCallOp update --- ghc/compiler/coreSyn/CoreUnfold.lhs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/ghc/compiler/coreSyn/CoreUnfold.lhs b/ghc/compiler/coreSyn/CoreUnfold.lhs index e66b2e9..c165062 100644 --- a/ghc/compiler/coreSyn/CoreUnfold.lhs +++ b/ghc/compiler/coreSyn/CoreUnfold.lhs @@ -594,7 +594,7 @@ okToUnfoldInHiFile e = opt_UnfoldCasms || go e BindDefault _ rhs -> rhs:ls -- ok to unfold a PrimOp as long as it's not a _casm_ - okToUnfoldPrimOp (CCallOp _ is_casm _ _ _) = not is_casm - okToUnfoldPrimOp _ = True + okToUnfoldPrimOp (CCallOp _ is_casm _ _ _ _) = not is_casm + okToUnfoldPrimOp _ = True \end{code} -- 1.7.10.4