diff options
| author | Ian Lynagh <igloo@earth.li> | 2009-06-11 12:27:27 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2009-06-11 12:27:27 +0000 |
| commit | b48fc016e9b15c465ba2c2f1d42b6221bcd19b45 (patch) | |
| tree | 8926fcc78fc38ef74caa74c62d4c13905c44a60d /compiler/codeGen | |
| parent | f73446118d7168e238868b591be748ab0997045c (diff) | |
| download | haskell-b48fc016e9b15c465ba2c2f1d42b6221bcd19b45.tar.gz | |
Add missing StgPrimCallOp case to isSimpleOp
Diffstat (limited to 'compiler/codeGen')
| -rw-r--r-- | compiler/codeGen/StgCmmExpr.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/compiler/codeGen/StgCmmExpr.hs b/compiler/codeGen/StgCmmExpr.hs index 065005caf7..96b9e316c4 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] |