diff options
| author | Michal Terepeta <michal.terepeta@gmail.com> | 2016-06-30 18:45:54 +0200 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2016-06-30 20:02:23 +0200 |
| commit | f1e16e92a97c61f89783274963a6bfe80bf9116c (patch) | |
| tree | 848c9386a6b7a62a0370f616bf09843343f9a844 | |
| parent | f68d40cbfc832a1dfc7742d02f76129ed80506e4 (diff) | |
| download | haskell-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.hs | 7 |
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] |