[project @ 1998-08-14 12:02:45 by sof]

okToUnfoldPrimOp: CCallOp update

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}