[commit: ghc] : Correct the commenting-out of the GC call (cbbb6fa)
Max Bolingbroke <[email protected]>
| Newsgroups | gmane.comp.lang.haskell.cvs.ghc |
|---|---|
| Message-ID | <[email protected]> |
Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : http://hackage.haskell.org/trac/ghc/changeset/cbbb6fabfbd374da944b36ea32945c7b4252e97b >--------------------------------------------------------------- commit cbbb6fabfbd374da944b36ea32945c7b4252e97b Author: Max Bolingbroke <[email protected]> Date: Thu Mar 15 10:18:17 2012 +0000 Correct the commenting-out of the GC call >--------------------------------------------------------------- .../supercompile/Supercompile/Drive/Process3.hs | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-) diff --git a/compiler/supercompile/Supercompile/Drive/Process3.hs b/compiler/supercompile/Supercompile/Drive/Process3.hs index b32fd7d..d343ea9 100644 --- a/compiler/supercompile/Supercompile/Drive/Process3.hs +++ b/compiler/supercompile/Supercompile/Drive/Process3.hs @@ -473,7 +473,7 @@ data MemoHow = Skip | CheckOnly | CheckAndRemember -- 2. GC *after* reduction in the main codepath. -- 3. Not eliminate dead update frames when GCing reduceForMatch :: State -> (Bool, State) -reduceForMatch state = {- second gc -} $ reduceWithFlag (case state of (_, h, k, e) -> (maxBound, h, k, e)) -- Reduce ignoring deeds for better normalisation +reduceForMatch state = {- second gc $ -} reduceWithFlag (case state of (_, h, k, e) -> (maxBound, h, k, e)) -- Reduce ignoring deeds for better normalisation supercompile :: M.Map Var Term -> Term -> Term supercompile unfoldings e = fVedTermToTerm $ start (liftM snd . sc)