dmbcs/guile
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Make the precise stack mark procedure more robust.

Browse source 
* libguile/vm.c (vm_stack_mark): Return if VM is NULL.
This commit is contained in:
Ludovic Courtès 2009-09-15 00:40:00 +02:00
commit 8071c4907f
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
libguile/vm.c
View file

@ -357,7 +357,8 @@ vm_stack_mark (GC_word *addr, struct GC_ms_entry *mark_stack_ptr,
corresponding VM. */
vm = * ((struct scm_vm **) addr);
if ((SCM *) addr != vm->stack_base - 1
if (vm == NULL
|| (SCM *) addr != vm->stack_base - 1
|| vm->stack_limit - vm->stack_base != vm->stack_size)
/* ADDR must be a pointer to a free-list element, which we must ignore
(see warning in <gc/gc_mark.h>). */