X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fcmm%2FZipCfgExtras.hs;h=0f8eeb0d2b7242043878e3bf5afc53f8d033a80b;hp=bd26aca9760991d31a61931c77af529ba9fae84e;hb=d436c70d43fb905c63220040168295e473f4b90a;hpb=0d80489c9b9f2421f65d8dd86c1e50c6bb429715

diff --git a/compiler/cmm/ZipCfgExtras.hs b/compiler/cmm/ZipCfgExtras.hs
index bd26aca..0f8eeb0 100644
--- a/compiler/cmm/ZipCfgExtras.hs
+++ b/compiler/cmm/ZipCfgExtras.hs
@@ -24,7 +24,7 @@ exit    :: LGraph m l -> FGraph m l         -- focus on edge into default exit n
                                             -- (fails if there isn't one)
 focusp  :: (Block m l -> Bool) -> LGraph m l -> Maybe (FGraph m l)
                                       -- focus on start of block satisfying predicate
-unfocus :: FGraph m l -> LGraph m l            -- lose focus 
+-- unfocus :: FGraph m l -> LGraph m l            -- lose focus 
 
 -- | We can insert a single-entry, single-exit subgraph at
 -- the current focus.
@@ -37,11 +37,11 @@ splice_focus_exit  :: FGraph m l -> LGraph m l -> FGraph m l
 
 _unused :: ()
 _unused = all `seq` ()
-    where all = ( exit, focusp, unfocus {- , splice_focus_entry, splice_focus_exit -}
+    where all = ( exit, focusp --, unfocus {- , splice_focus_entry, splice_focus_exit -}
                 , foldM_fwd_block (\_ a -> Just a)
                 )
 
-unfocus (FGraph e bz bs) = LGraph e (insertBlock (zip bz) bs)
+--unfocus (FGraph e bz bs) = LGraph e (insertBlock (zip bz) bs)
 
 focusp p (LGraph entry blocks) =
     fmap (\(b, bs) -> FGraph entry (unzip b) bs) (splitp_blocks p blocks)
@@ -71,6 +71,6 @@ foldM_fwd_block first middle last (Block id t) z = do { z <- first id z; tail t
 
 splitp_blocks :: (Block m l -> Bool) -> BlockEnv (Block m l) ->
                  Maybe (Block m l, BlockEnv (Block m l))
-splitp_blocks = undefined -- implemented in ZipCfg but not exported
+splitp_blocks = panic "splitp_blocks" -- implemented in ZipCfg but not exported
 is_exit :: Block m l -> Bool
-is_exit = undefined -- implemented in ZipCfg but not exported
+is_exit = panic "is_exit" -- implemented in ZipCfg but not exported