Commit b48fc016 authored by Ian Lynagh's avatar Ian Lynagh
Browse files

Add missing StgPrimCallOp case to isSimpleOp

parent f7344611
......@@ -322,6 +322,7 @@ isSimpleOp :: StgOp -> Bool
isSimpleOp (StgFCallOp (CCall (CCallSpec _ _ safe)) _) = not (playSafe safe)
isSimpleOp (StgFCallOp (DNCall _) _) = False -- Safe!
isSimpleOp (StgPrimOp op) = not (primOpOutOfLine op)
isSimpleOp (StgPrimCallOp _) = False
-----------------
chooseReturnBndrs :: Id -> AltType -> [StgAlt] -> [NonVoid Id]
......
Markdown is supported
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