Commit 150d5559 authored by simonmar's avatar simonmar
Browse files

[project @ 2001-08-17 15:46:54 by simonmar]

bugfix for -G1
parent 25f71699
/* -----------------------------------------------------------------------------
* $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;
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment