diff options
| author | Johan Tibell <johan.tibell@gmail.com> | 2011-04-15 13:40:05 +0200 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2011-05-19 14:04:27 +0100 |
| commit | 9c23f06f3eb925dca063d5102b0ced4a9afe795e (patch) | |
| tree | 52fa89667912f22d4fcefad23b652e91f7e3d83d /compiler/cmm/CmmExpr.hs | |
| parent | a6cc4146630e34f2d69c5a0358a9133420f9102c (diff) | |
| download | haskell-9c23f06f3eb925dca063d5102b0ced4a9afe795e.tar.gz | |
Make array copy primops inline
Diffstat (limited to 'compiler/cmm/CmmExpr.hs')
| -rw-r--r-- | compiler/cmm/CmmExpr.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/compiler/cmm/CmmExpr.hs b/compiler/cmm/CmmExpr.hs index 55a5b73ac5..869bc1b4ac 100644 --- a/compiler/cmm/CmmExpr.hs +++ b/compiler/cmm/CmmExpr.hs @@ -4,7 +4,7 @@ module CmmExpr , CmmReg(..), cmmRegType , CmmLit(..), cmmLitType , LocalReg(..), localRegType - , GlobalReg(..), globalRegType, spReg, hpReg, spLimReg, nodeReg, node + , GlobalReg(..), globalRegType, spReg, hpReg, spLimReg, nodeReg, node, baseReg , VGcPtr(..), vgcFlag -- Temporary! , DefinerOfLocalRegs, UserOfLocalRegs, foldRegsDefd, foldRegsUsed, filterRegsUsed , DefinerOfSlots, UserOfSlots, foldSlotsDefd, foldSlotsUsed @@ -425,7 +425,8 @@ instance Ord GlobalReg where compare _ EagerBlackholeInfo = GT -- convenient aliases -spReg, hpReg, spLimReg, nodeReg :: CmmReg +baseReg, spReg, hpReg, spLimReg, nodeReg :: CmmReg +baseReg = CmmGlobal BaseReg spReg = CmmGlobal Sp hpReg = CmmGlobal Hp spLimReg = CmmGlobal SpLim |