X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FThreadPaused.c;h=c32a75b9a8e9fd5c1979e31677c0133ad9756293;hb=27de38efce6d73d2a0209f803cfa98c82773e773;hp=3aa66edc191a858aef32056bb59860bada32b5b4;hpb=53a442f10d80cd85b33620a023c4a8749a7c0b20;p=ghc-hetmet.git

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);
     }
 }