[commit: ghc] master: CmmExpr: remove unused `vgcFlag` function (f1e16e9)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/f1e16e92a97c61f89783274963a6bfe80bf9116c/ghc

>---------------------------------------------------------------

commit f1e16e92a97c61f89783274963a6bfe80bf9116c
Author: Michal Terepeta <michal.terepeta at gmail.com>
Date:   Thu Jun 30 18:45:54 2016 +0200

    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


>---------------------------------------------------------------

f1e16e92a97c61f89783274963a6bfe80bf9116c
 compiler/cmm/CmmExpr.hs | 7 +------
 1 file changed, 1 insertion(+), 6 deletions(-)

diff --git a/compiler/cmm/CmmExpr.hs b/compiler/cmm/CmmExpr.hs
index 7e4587e..de783aa 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]