From 150d5559c5a42bbff62977262cafeee183aeb0ba Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Fri, 17 Aug 2001 15:46:54 +0000
Subject: [PATCH] [project @ 2001-08-17 15:46:54 by simonmar] bugfix for -G1

---
 ghc/rts/GC.c |    7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/ghc/rts/GC.c b/ghc/rts/GC.c
index 23c835f..3d4e687 100644
--- a/ghc/rts/GC.c
+++ b/ghc/rts/GC.c
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: GC.c,v 1.120 2001/08/14 13:40:09 sewardj Exp $
+ * $Id: GC.c,v 1.121 2001/08/17 15:46:54 simonmar Exp $
  *
  * (c) The GHC Team 1998-1999
  *
@@ -848,8 +848,9 @@ GarbageCollect ( void (*get_roots)(evac_fn), rtsBool force_major_gc )
      */
     blocks = g0s0->n_to_blocks;
 
-    if ( blocks * RtsFlags.GcFlags.oldGenFactor * 2 > 
-	 RtsFlags.GcFlags.maxHeapSize ) {
+    if ( RtsFlags.GcFlags.maxHeapSize != 0 &&
+	 blocks * RtsFlags.GcFlags.oldGenFactor * 2 > 
+	   RtsFlags.GcFlags.maxHeapSize ) {
       long adjusted_blocks;  // signed on purpose 
       int pc_free; 
       
-- 
1.7.10.4