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

* __scm.h (SCM_STACK_PTR): New macro. (Cast argument through

Browse source 
(void *) in order to avoid an aliasing warning; thanks to Bruce
Korb.)

* stackchk.h (SCM_STACK_OVERFLOW_P): Use SCM_STACK_PTR.

* threads.c (suspend, launch_thread, scm_threads_mark_stacks): Use
SCM_STACK_PTR.

* threads.c (scm_threads_mark_stacks): Bugfix: Changed
thread->base --> t->base.

* eval.c (SCM_CEVAL): Don't cast argument of SCM_STACK_OVERFLOW_P.
This commit is contained in:
Mikael Djurfeldt 2003-05-22 09:16:33 +00:00
parent d97f609a4a
commit 79f55b7c6b
5 changed files with 32 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

3
libguile/eval.c
View file

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