diff options
| author | Norman Ramsey <nr@eecs.harvard.edu> | 2007-08-20 19:54:41 +0000 |
|---|---|---|
| committer | Norman Ramsey <nr@eecs.harvard.edu> | 2007-08-20 19:54:41 +0000 |
| commit | bb66ce578f2ef5cbeb35de9719f0839a32fbeb35 (patch) | |
| tree | 9693da263a4b9f452c4e856c6e93023f6223bb0b /compiler/codeGen/CgPrimOp.hs | |
| parent | fdd372f92ee59d474f7073ba8d8b8d41956a952b (diff) | |
| download | haskell-bb66ce578f2ef5cbeb35de9719f0839a32fbeb35.tar.gz | |
put CmmReturnInfo into a CmmCall (and related types)
Diffstat (limited to 'compiler/codeGen/CgPrimOp.hs')
| -rw-r--r-- | compiler/codeGen/CgPrimOp.hs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/compiler/codeGen/CgPrimOp.hs b/compiler/codeGen/CgPrimOp.hs index 049e12a986..5ea50236de 100644 --- a/compiler/codeGen/CgPrimOp.hs +++ b/compiler/codeGen/CgPrimOp.hs @@ -121,6 +121,7 @@ emitPrimOp [res] ParOp [arg] live [(CmmReg (CmmGlobal BaseReg), PtrHint), (arg,PtrHint)] (Just vols) NoC_SRT -- No SRT b/c we do PlayRisky + CmmMayReturn where newspark = CmmLit (CmmLabel (mkRtsCodeLabel SLIT("newSpark"))) @@ -138,6 +139,7 @@ emitPrimOp [] WriteMutVarOp [mutv,var] live [(CmmReg (CmmGlobal BaseReg), PtrHint), (mutv,PtrHint)] (Just vols) NoC_SRT -- No SRT b/c we do PlayRisky + CmmMayReturn -- #define sizzeofByteArrayzh(r,a) \ -- r = (((StgArrWords *)(a))->words * sizeof(W_)) @@ -344,6 +346,7 @@ emitPrimOp [res] op args live [(a,NoHint) | a<-args] -- ToDo: hints? (Just vols) NoC_SRT -- No SRT b/c we do PlayRisky + CmmMayReturn | Just mop <- translateOp op = let stmt = CmmAssign (CmmLocal res) (CmmMachOp mop args) in |