From b48fc016e9b15c465ba2c2f1d42b6221bcd19b45 Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Thu, 11 Jun 2009 12:27:27 +0000 Subject: [PATCH] Add missing StgPrimCallOp case to isSimpleOp --- compiler/codeGen/StgCmmExpr.hs | 1 + 1 file changed, 1 insertion(+) diff --git a/compiler/codeGen/StgCmmExpr.hs b/compiler/codeGen/StgCmmExpr.hs index 065005c..96b9e31 100644 --- a/compiler/codeGen/StgCmmExpr.hs +++ b/compiler/codeGen/StgCmmExpr.hs @@ -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] -- 1.7.10.4