X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=rts%2Fsm%2FGC.c;fp=rts%2Fsm%2FGC.c;h=ee3e17089a40ffcfb3d4bfb472f7522237ac42ba;hp=34aa0fde41d3ff01025f666193b48614f0e5cc8e;hb=d6d7fe4976d4265dbfd6b1ad048339b8ff8f9120;hpb=1b12fd49b3c7adf69e9c0bcc6fc8b5c5204598b2

diff --git a/rts/sm/GC.c b/rts/sm/GC.c
index 34aa0fd..ee3e170 100644
--- a/rts/sm/GC.c
+++ b/rts/sm/GC.c
@@ -1504,11 +1504,10 @@ resize_generations (void)
 
 	// Auto-enable compaction when the residency reaches a
 	// certain percentage of the maximum heap size (default: 30%).
-	if (RtsFlags.GcFlags.generations > 1 &&
-	    (RtsFlags.GcFlags.compact ||
-	     (max > 0 &&
-	      oldest_gen->n_blocks > 
-	      (RtsFlags.GcFlags.compactThreshold * max) / 100))) {
+	if (RtsFlags.GcFlags.compact ||
+            (max > 0 &&
+             oldest_gen->n_blocks > 
+             (RtsFlags.GcFlags.compactThreshold * max) / 100)) {
 	    oldest_gen->mark = 1;
 	    oldest_gen->compact = 1;
 //	  debugBelch("compaction: on\n", live);