Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : supercompiler
http://hackage.haskell.org/trac/ghc/changeset/2a55fe42ae6969b0d439b8748a164f923eda56fa >--------------------------------------------------------------- commit 2a55fe42ae6969b0d439b8748a164f923eda56fa Author: Max Bolingbroke <batterseapo...@hotmail.com> Date: Thu Oct 4 15:04:11 2012 +0100 I don't know why I started tying back to dumped promises, but it's a bad idea >--------------------------------------------------------------- .../supercompile/Supercompile/Drive/Process3.hs | 4 ++-- 1 files changed, 2 insertions(+), 2 deletions(-) diff --git a/compiler/supercompile/Supercompile/Drive/Process3.hs b/compiler/supercompile/Supercompile/Drive/Process3.hs index 4e5154a..7242291 100644 --- a/compiler/supercompile/Supercompile/Drive/Process3.hs +++ b/compiler/supercompile/Supercompile/Drive/Process3.hs @@ -613,11 +613,11 @@ memo opt init_state = {-# SCC "memo'" #-} memo_opt init_state --, Just (heap_inst, k_inst, rn_lr) <- [-- (\res -> if isNothing res then pprTraceSC "no match:" (ppr (fun p)) res else pprTraceSC "match!" (ppr (fun p)) res) $ -- match' mm (meaning p) reduced_state] , Just mr <- [{- trace "match" $ (\res -> trace "match'" res) -} (msgMaybe mm (meaning p) reduced_state >>= msgMatch inst_mtch)] - {- + {--} , if dumped p then pprTraceSC "tieback-to-dumped" (ppr (fun p)) False else True - -} + {--} ] of Just (skip, res) -> pure $ if skip then (res, s) else remember (\_ _ -> liftM ((,) False) res) Nothing | CheckOnly <- memo_how -> pure (liftM snd $ opt Nothing state, s) _______________________________________________ Cvs-ghc mailing list Cvs-ghc@haskell.org http://www.haskell.org/mailman/listinfo/cvs-ghc
