diff options
| author | Damien Doligez <damien.doligez-inria.fr> | 1997-10-14 15:48:45 +0000 |
|---|---|---|
| committer | Damien Doligez <damien.doligez-inria.fr> | 1997-10-14 15:48:45 +0000 |
| commit | 5dfad13c8f5c1561120621ba3e01410d657cc05a (patch) | |
| tree | 6bec151e535f13c91336f878b0e26c85e2cd0678 /byterun/stacks.c | |
| parent | a53df520b77960f824560dc58d2b14a3a7e2b5e4 (diff) | |
| download | ocaml-5dfad13c8f5c1561120621ba3e01410d657cc05a.tar.gz | |
gc_ctrl.c: Fix Gc.get
stacks.c: Fix Gc.set
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@1719 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'byterun/stacks.c')
| -rw-r--r-- | byterun/stacks.c | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/byterun/stacks.c b/byterun/stacks.c index 01377e402f..5414dff791 100644 --- a/byterun/stacks.c +++ b/byterun/stacks.c @@ -28,7 +28,7 @@ value * trapsp; value * trap_barrier; value global_data; -unsigned long max_stack_size; +unsigned long max_stack_size; /* also used in gc_ctrl.c */ void init_stack (long unsigned int initial_max_size) { @@ -83,7 +83,9 @@ void change_max_stack_size (long unsigned int new_max_size) asize_t size = stack_high - extern_sp + Stack_threshold / sizeof (value); if (new_max_size < size) new_max_size = size; - gc_message ("Changing stack limit to %luk bytes\n", - new_max_size * sizeof (value) / 1024); + if (new_max_size != max_stack_size){ + gc_message ("Changing stack limit to %luk bytes\n", + new_max_size * sizeof (value) / 1024); + } max_stack_size = new_max_size; } |