X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2FGC.c;h=4235d3e826bc00f647a9f9df568c360d17b123c3;hb=4dfe2a24d9717a809cebc14592212bf3bdf46342;hp=1e40065f3b7fa0162bcea80e7d6c197aae57f6f5;hpb=eba7b660a36878cd8d926845807913d7ec5734c9;p=ghc-hetmet.git

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