projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
25f7169
)
[project @ 2001-08-17 15:46:54 by simonmar]
author
simonmar
<unknown>
Fri, 17 Aug 2001 15:46:54 +0000
(15:46 +0000)
committer
simonmar
<unknown>
Fri, 17 Aug 2001 15:46:54 +0000
(15:46 +0000)
bugfix for -G1
ghc/rts/GC.c
patch
|
blob
|
history
diff --git
a/ghc/rts/GC.c
b/ghc/rts/GC.c
index
23c835f
..
3d4e687
100644
(file)
--- 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
*
*
* (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;
*/
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;
long adjusted_blocks; // signed on purpose
int pc_free;