diff options
| author | Norman Ramsey <nr@eecs.harvard.edu> | 2008-05-03 22:45:14 +0000 |
|---|---|---|
| committer | Norman Ramsey <nr@eecs.harvard.edu> | 2008-05-03 22:45:14 +0000 |
| commit | b71b86cf18374f8011120c92e24ca293986e86ea (patch) | |
| tree | 142a818fcd8c3b6549f701246efc844fcdba8f37 /compiler/codeGen/CgPrimOp.hs | |
| parent | 4b0d51372d354687f0b2f7b2c2583bed059ce315 (diff) | |
| download | haskell-b71b86cf18374f8011120c92e24ca293986e86ea.tar.gz | |
replace Cmm 'hint' with 'kind'
C-- no longer has 'hints'; to guide parameter passing, it
has 'kinds'. Renamed type constructor, data constructor, and record
fields accordingly
Diffstat (limited to 'compiler/codeGen/CgPrimOp.hs')
| -rw-r--r-- | compiler/codeGen/CgPrimOp.hs | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/compiler/codeGen/CgPrimOp.hs b/compiler/codeGen/CgPrimOp.hs index 3a3ea12f0e..85a41515e6 100644 --- a/compiler/codeGen/CgPrimOp.hs +++ b/compiler/codeGen/CgPrimOp.hs @@ -122,10 +122,10 @@ emitPrimOp [res] ParOp [arg] live -- later, we might want to inline it. vols <- getVolatileRegs live emitForeignCall' PlayRisky - [CmmHinted res NoHint] + [CmmKinded res NoHint] (CmmCallee newspark CCallConv) - [ (CmmHinted (CmmReg (CmmGlobal BaseReg)) PtrHint) - , (CmmHinted arg PtrHint) ] + [ (CmmKinded (CmmReg (CmmGlobal BaseReg)) PtrHint) + , (CmmKinded arg PtrHint) ] (Just vols) NoC_SRT -- No SRT b/c we do PlayRisky CmmMayReturn @@ -143,8 +143,8 @@ emitPrimOp [] WriteMutVarOp [mutv,var] live [{-no results-}] (CmmCallee (CmmLit (CmmLabel mkDirty_MUT_VAR_Label)) CCallConv) - [ (CmmHinted (CmmReg (CmmGlobal BaseReg)) PtrHint) - , (CmmHinted mutv PtrHint) ] + [ (CmmKinded (CmmReg (CmmGlobal BaseReg)) PtrHint) + , (CmmKinded mutv PtrHint) ] (Just vols) NoC_SRT -- No SRT b/c we do PlayRisky CmmMayReturn @@ -349,9 +349,9 @@ emitPrimOp [res] op args live | Just prim <- callishOp op = do vols <- getVolatileRegs live emitForeignCall' PlayRisky - [CmmHinted res NoHint] + [CmmKinded res NoHint] (CmmPrim prim) - [CmmHinted a NoHint | a<-args] -- ToDo: hints? + [CmmKinded a NoHint | a<-args] -- ToDo: hints? (Just vols) NoC_SRT -- No SRT b/c we do PlayRisky CmmMayReturn |