diff options
| author | Damien Doligez <damien.doligez-inria.fr> | 2010-01-22 12:48:24 +0000 |
|---|---|---|
| committer | Damien Doligez <damien.doligez-inria.fr> | 2010-01-22 12:48:24 +0000 |
| commit | 04b1656222698bd7e92f213e9a718b7a4185643a (patch) | |
| tree | 6186d1ba1e00adb1232908f95cb92c299902a943 /byterun/globroots.c | |
| parent | bdc0fadee2dc9669818955486b4c3497016edda5 (diff) | |
| download | ocaml-04b1656222698bd7e92f213e9a718b7a4185643a.tar.gz | |
clean up spaces and tabs
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@9547 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'byterun/globroots.c')
| -rw-r--r-- | byterun/globroots.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/byterun/globroots.c b/byterun/globroots.c index e4fec33287..acac1e2170 100644 --- a/byterun/globroots.c +++ b/byterun/globroots.c @@ -133,7 +133,7 @@ static void caml_delete_global_root(struct global_root_list * rootlist, /* Reclaim list element */ caml_stat_free(e); /* Down-correct list level */ - while (rootlist->level > 0 && + while (rootlist->level > 0 && rootlist->forward[rootlist->level] == NULL) rootlist->level--; } @@ -223,11 +223,11 @@ CAMLexport void caml_modify_generational_global_root(value *r, value newval) { value oldval = *r; - /* It is OK to have a root in roots_young that suddenly points to + /* It is OK to have a root in roots_young that suddenly points to the old generation -- the next minor GC will take care of that. What needs corrective action is a root in roots_old that suddenly points to the young generation. */ - if (Is_block(newval) && Is_young(newval) && + if (Is_block(newval) && Is_young(newval) && Is_block(oldval) && Is_in_heap(oldval)) { caml_delete_global_root(&caml_global_roots_old, r); caml_insert_global_root(&caml_global_roots_young, r); |