mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-23 12:00:21 +02:00
Code Activity

* eval.c, eval.h, coop.c (scm_eval_stack, SCM_EVAL_STACK): Measure

Browse source 
stack size in machine words.
This commit is contained in:
Mikael Djurfeldt 1998-04-12 23:34:43 +00:00
parent 09725fff9d
commit a74145b809
3 changed files with 9 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

7
libguile/eval.c
View file

@ -1422,8 +1422,10 @@ int scm_debug_eframe_size;
int scm_debug_mode, scm_check_entry_p, scm_check_apply_p, scm_check_exit_p;
int scm_eval_stack;
scm_option scm_eval_opts[] = {
{ SCM_OPTION_INTEGER, "stack", 0x10000, "Size of thread stacks." }
{ SCM_OPTION_INTEGER, "stack", 22000, "Size of thread stacks (in machine words)." }
};
scm_option scm_debug_opts[] = {
@ -1443,7 +1445,7 @@ scm_option scm_debug_opts[] = {
{ SCM_OPTION_INTEGER, "depth", 20, "Maximal length of printed backtrace." },
{ SCM_OPTION_BOOLEAN, "backtrace", 0, "Show backtrace on error." },
{ SCM_OPTION_BOOLEAN, "debug", 0, "Use the debugging evaluator." },
{ SCM_OPTION_INTEGER, "stack", 20000, "Stack size limit (0 = no check)." }
{ SCM_OPTION_INTEGER, "stack", 20000, "Stack size limit (measured in words; 0 = no check)." }
};
scm_option scm_evaluator_trap_table[] = {
@ -1464,6 +1466,7 @@ scm_eval_options_interface (setting)
scm_eval_opts,
SCM_N_EVAL_OPTIONS,
s_eval_options_interface);
scm_eval_stack = SCM_EVAL_STACK * sizeof (void *);
SCM_ALLOW_INTS;
return ans;
}