projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
f734461
)
Add missing StgPrimCallOp case to isSimpleOp
author
Ian Lynagh
<igloo@earth.li>
Thu, 11 Jun 2009 12:27:27 +0000
(12:27 +0000)
committer
Ian Lynagh
<igloo@earth.li>
Thu, 11 Jun 2009 12:27:27 +0000
(12:27 +0000)
compiler/codeGen/StgCmmExpr.hs
patch
|
blob
|
history
diff --git
a/compiler/codeGen/StgCmmExpr.hs
b/compiler/codeGen/StgCmmExpr.hs
index
065005c
..
96b9e31
100644
(file)
--- 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]