diff options
| author | Damien Doligez <damien.doligez-inria.fr> | 2002-01-18 15:13:26 +0000 |
|---|---|---|
| committer | Damien Doligez <damien.doligez-inria.fr> | 2002-01-18 15:13:26 +0000 |
| commit | 09a8c6bc78f4a84c99b68baef2a1dfb10b8c4a4e (patch) | |
| tree | 5af49766e2f79faac1b5cd24b6fe7e3247ed82dc /byterun/roots.c | |
| parent | e0c8e458d294b4d6bfeafcaba75ebede3dc22b5a (diff) | |
configure: suppression "smart preprocessing" pour MacOS X
asmrun/roots.c, byterun/alloc.c, byterun/gc_ctrl.c, byterun/minor_gc.c,
byterun/minor_gc.h, byterun/roots.c, byterun/startup.c:
derecursivation du GC mineur
byterun/config.h, stdlib/gc.mli: compactage active par defaut (300%)
otherlibs/unix/select.c: ajout include MacOS X
.cvsignore: bricoles
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@4264 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'byterun/roots.c')
| -rw-r--r-- | byterun/roots.c | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/byterun/roots.c b/byterun/roots.c index 391789c9e..6378ceffb 100644 --- a/byterun/roots.c +++ b/byterun/roots.c @@ -30,7 +30,8 @@ CAMLexport struct caml__roots_block *local_roots = NULL; void (*scan_roots_hook) (scanning_action f) = NULL; /* FIXME rename to [oldify_young_roots] and synchronise with asmrun/roots.c */ -/* Call [oldify] on (at least) all the roots that point to the minor heap. */ +/* Call [oldify_one] on (at least) all the roots that point to the minor + heap. */ void oldify_local_roots (void) { register value * sp; @@ -40,25 +41,25 @@ void oldify_local_roots (void) /* The stack */ for (sp = extern_sp; sp < stack_high; sp++) { - oldify (*sp, sp); + oldify_one (*sp, sp); } /* Local C roots */ /* FIXME do the old-frame trick ? */ for (lr = local_roots; lr != NULL; lr = lr->next) { for (i = 0; i < lr->ntables; i++){ for (j = 0; j < lr->nitems; j++){ sp = &(lr->tables[i][j]); - oldify (*sp, sp); + oldify_one (*sp, sp); } } } /* Global C roots */ for (gr = caml_global_roots.forward[0]; gr != NULL; gr = gr->forward[0]) { - oldify(*(gr->root), gr->root); + oldify_one(*(gr->root), gr->root); } /* Finalised values */ - final_do_young_roots (&oldify); + final_do_young_roots (&oldify_one); /* Hook */ - if (scan_roots_hook != NULL) (*scan_roots_hook)(&oldify); + if (scan_roots_hook != NULL) (*scan_roots_hook)(&oldify_one); } /* Call [darken] on all roots */ |