Commit ad6863b9 authored by sof's avatar sof
Browse files

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

okToUnfoldPrimOp: CCallOp update
parent 91b4fb8d
......@@ -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}
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment