Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : master
http://hackage.haskell.org/trac/ghc/changeset/e704a95889681bd58e0a7cebfcc0e98193e46343 >--------------------------------------------------------------- commit e704a95889681bd58e0a7cebfcc0e98193e46343 Author: Simon Peyton Jones <[email protected]> Date: Sun Nov 27 19:44:19 2011 +0000 Don't indirection-zap a function that has a stable unfolding This was responsible for Trac #5001, and it was a real bug; an inlining could be lost. >--------------------------------------------------------------- compiler/simplCore/SimplCore.lhs | 1 + 1 files changed, 1 insertions(+), 0 deletions(-) diff --git a/compiler/simplCore/SimplCore.lhs b/compiler/simplCore/SimplCore.lhs index 1081ce0..03ffb47 100644 --- a/compiler/simplCore/SimplCore.lhs +++ b/compiler/simplCore/SimplCore.lhs @@ -885,6 +885,7 @@ hasShortableIdInfo :: Id -> Bool hasShortableIdInfo id = isEmptySpecInfo (specInfo info) && isDefaultInlinePragma (inlinePragInfo info) + && not (isStableUnfolding (unfoldingInfo info)) where info = idInfo id _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
