mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-01 04:10:18 +02:00
Code Activity

c stack overflow checked for, once more

Browse source 
* 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:
Andy Wingo 2010-10-01 16:47:39 +02:00
parent 138bf22d82
commit b95d76fcf2
2 changed files with 2 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

1
libguile/vm.c
View file

@ -560,6 +560,7 @@ SCM
scm_c_vm_run (SCM vm, SCM program, SCM *argv, int nargs)
{
struct scm_vm *vp = SCM_VM_DATA (vm);
SCM_CHECK_STACK;
return vm_engines[vp->engine](vm, program, argv, nargs);
}