mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-04-30 03:40:34 +02:00
c stack overflow checked for, once more
* libguile/stackchk.h: Include private-options.h if we are building guile. * libguile/vm.c (scm_c_vm_run): Check for C stack overflow before entering the engine.
This commit is contained in:
parent
138bf22d82
commit
b95d76fcf2
2 changed files with 2 additions and 0 deletions
|
@ -35,6 +35,7 @@
|
|||
#define SCM_STACK_CHECKING_P SCM_STACK_LIMIT
|
||||
|
||||
#if defined BUILDING_LIBGUILE && defined STACK_CHECKING
|
||||
#include "libguile/private-options.h"
|
||||
# if SCM_STACK_GROWS_UP
|
||||
# define SCM_STACK_OVERFLOW_P(s)\
|
||||
((SCM_STACK_PTR (s) - SCM_I_CURRENT_THREAD->base) > SCM_STACK_LIMIT)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue