From 804a84fbc46cd07146ed7689bb8fa3e94eeb756a Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Wed, 4 Jun 2008 09:12:44 +0000 Subject: [PATCH] tiny tweak to the stack squeezing heuristic (fixes cg060) --- rts/ThreadPaused.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/rts/ThreadPaused.c b/rts/ThreadPaused.c index 3aa66ed..c32a75b 100644 --- a/rts/ThreadPaused.c +++ b/rts/ThreadPaused.c @@ -310,7 +310,7 @@ end: // the number of words we have to shift down is less than the // number of stack words we squeeze away by doing so. if (RtsFlags.GcFlags.squeezeUpdFrames == rtsTrue && - ((weight <= 4 && words_to_squeeze > 0) || weight < words_to_squeeze)) { + ((weight <= 5 && words_to_squeeze > 0) || weight < words_to_squeeze)) { stackSqueeze(tso, (StgPtr)frame); } } -- 1.7.10.4