Commit 75a60703 authored by simonm's avatar simonm
Browse files

[project @ 1999-02-17 17:35:31 by simonm]

Fix a couple of uninitialized data reads.
parent 449deb80
/* -----------------------------------------------------------------------------
* $Id: GC.c,v 1.35 1999/02/17 15:04:40 simonm Exp $
* $Id: GC.c,v 1.36 1999/02/17 17:35:32 simonm Exp $
*
* (c) The GHC Team 1998-1999
*
......@@ -399,6 +399,9 @@ void GarbageCollect(void (*get_roots)(void))
loop2:
for (gen = RtsFlags.GcFlags.generations-1; gen >= 0; gen--) {
for (st = generations[gen].n_steps-1; st >= 0 ; st--) {
if (gen == 0 && step == 0) {
continue;
}
step = &generations[gen].steps[st];
evac_gen = gen;
if (step->hp_bd != step->scan_bd || step->scan < step->hp) {
......
/* -----------------------------------------------------------------------------
* $Id: Storage.c,v 1.12 1999/02/05 16:03:01 simonm Exp $
* $Id: Storage.c,v 1.13 1999/02/17 17:35:31 simonm Exp $
*
* (c) The GHC Team, 1998-1999
*
......@@ -114,6 +114,8 @@ initStorage (void)
step->hp = NULL;
step->hpLim = NULL;
step->hp_bd = NULL;
step->scan = NULL;
step->scan_bd = NULL;
step->large_objects = NULL;
step->new_large_objects = NULL;
step->scavenged_large_objects = NULL;
......
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