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

* eval.c (SCM_CEVAL): Optimization: Reverse order of

Browse source 
scm_stack_checking_enabled_p and SCM_STACK_OVERFLOW_P => speed
gain 4-6% for eval1 benchmark on one machine.  (Thanks to Brad
Knotwell.)
This commit is contained in:
Mikael Djurfeldt 2000-01-04 17:43:18 +00:00
parent da43d82227
commit 6f13f9cb90
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/eval.c
View file

@ -1832,8 +1832,8 @@ SCM_CEVAL (SCM x, SCM env)
scm_last_debug_frame = &debug; scm_last_debug_frame = &debug;
#endif #endif
#ifdef EVAL_STACK_CHECKING #ifdef EVAL_STACK_CHECKING
if (SCM_STACK_OVERFLOW_P ((SCM_STACKITEM *) &proc) if (scm_stack_checking_enabled_p
&& scm_stack_checking_enabled_p) && SCM_STACK_OVERFLOW_P ((SCM_STACKITEM *) &proc))
{ {
#ifdef DEVAL #ifdef DEVAL
debug.info->e.exp = x; debug.info->e.exp = x;