summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMichal Terepeta <michal.terepeta@gmail.com>2016-06-30 18:45:54 +0200
committerBen Gamari <ben@smart-cactus.org>2016-06-30 20:02:23 +0200
commitf1e16e92a97c61f89783274963a6bfe80bf9116c (patch)
tree848c9386a6b7a62a0370f616bf09843343f9a844
parentf68d40cbfc832a1dfc7742d02f76129ed80506e4 (diff)
downloadhaskell-f1e16e92a97c61f89783274963a6bfe80bf9116c.tar.gz
CmmExpr: remove unused `vgcFlag` function
Test Plan: validate Reviewers: austin, bgamari, simonmar Reviewed By: bgamari, simonmar Subscribers: thomie Differential Revision: https://phabricator.haskell.org/D2351
-rw-r--r--compiler/cmm/CmmExpr.hs7
1 files changed, 1 insertions, 6 deletions
diff --git a/compiler/cmm/CmmExpr.hs b/compiler/cmm/CmmExpr.hs
index 7e4587eef4..de783aacce 100644
--- a/compiler/cmm/CmmExpr.hs
+++ b/compiler/cmm/CmmExpr.hs
@@ -10,7 +10,7 @@ module CmmExpr
, CmmLit(..), cmmLitType
, LocalReg(..), localRegType
, GlobalReg(..), isArgReg, globalRegType, spReg, hpReg, spLimReg, nodeReg, node, baseReg
- , VGcPtr(..), vgcFlag -- Temporary!
+ , VGcPtr(..)
, DefinerOfRegs, UserOfRegs
, foldRegsDefd, foldRegsUsed, filterRegsUsed
@@ -381,15 +381,10 @@ instance DefinerOfRegs r a => DefinerOfRegs r (Maybe a) where
-----------------------------------------------------------------------------
data VGcPtr = VGcPtr | VNonGcPtr deriving( Eq, Show )
- -- TEMPORARY!!!
-----------------------------------------------------------------------------
-- Global STG registers
-----------------------------------------------------------------------------
-vgcFlag :: CmmType -> VGcPtr
-vgcFlag ty | isGcPtrType ty = VGcPtr
- | otherwise = VNonGcPtr
-
{-
Note [Overlapping global registers]