From 4dfe2a24d9717a809cebc14592212bf3bdf46342 Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Fri, 10 Mar 2006 20:44:49 +0000 Subject: [PATCH] Enable shortcutting of stack squeezing Not sure why it was disabled, probably by accident. --- ghc/rts/GC.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/ghc/rts/GC.c b/ghc/rts/GC.c index 1e40065..4235d3e 100644 --- a/ghc/rts/GC.c +++ b/ghc/rts/GC.c @@ -4690,8 +4690,8 @@ end: // Should we squeeze or not? Arbitrary heuristic: we squeeze if // the number of words we have to shift down is less than the // number of stack words we squeeze away by doing so. - if (1 /*RtsFlags.GcFlags.squeezeUpdFrames == rtsTrue && - weight < words_to_squeeze*/) { + if (RtsFlags.GcFlags.squeezeUpdFrames == rtsTrue && + weight < words_to_squeeze) { stackSqueeze(tso, (StgPtr)frame); } } -- 1.7.10.4