diff options
| author | Xavier Leroy <xavier.leroy@inria.fr> | 2001-02-19 12:42:33 +0000 |
|---|---|---|
| committer | Xavier Leroy <xavier.leroy@inria.fr> | 2001-02-19 12:42:33 +0000 |
| commit | 9a2e79a8914cef4aa9cb504596fdef4b688d19c9 (patch) | |
| tree | d71128cd8d227fb0403c8844f1588d31446e09b7 | |
| parent | 913d33aa9ec4b999a9fad1f7792bf83d99cda37b (diff) | |
Changement de l'initialisation de verb_gc
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@3424 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
| -rw-r--r-- | asmrun/startup.c | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/asmrun/startup.c b/asmrun/startup.c index a93e05c26..5b1a84e62 100644 --- a/asmrun/startup.c +++ b/asmrun/startup.c @@ -59,7 +59,6 @@ static void init_atoms(void) /* Configuration parameters and flags */ -static unsigned long verbose_init = 0; static unsigned long percent_free_init = Percent_free_def; static unsigned long max_percent_free_init = Max_percent_free_def; static unsigned long minor_heap_init = Minor_heap_def; @@ -98,7 +97,7 @@ static void parse_camlrunparam(void) case 'l': scanmult (opt, &max_stack_init); break; case 'o': scanmult (opt, &percent_free_init); break; case 'O': scanmult (opt, &max_percent_free_init); break; - case 'v': scanmult (opt, &verbose_init); break; + case 'v': scanmult (opt, &verb_gc); break; } } } @@ -115,11 +114,11 @@ void caml_main(char **argv) init_ieee_floats(); init_custom_operations(); #ifdef DEBUG - verbose_init = 1; + verb_gc = 63; #endif parse_camlrunparam(); init_gc (minor_heap_init, heap_size_init, heap_chunk_init, - percent_free_init, max_percent_free_init, verbose_init); + percent_free_init, max_percent_free_init); init_atoms(); init_signals(); sys_init(argv); |