mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-28 16:00:22 +02:00
Code Activity

add underflow check in make-array

Browse source 
* libguile/vm-i-scheme.c (make-array): Check for underflow before making
  the array.
This commit is contained in:
Andy Wingo 2010-05-02 13:15:22 +02:00
parent ba2d960396
commit 384dce46bf
1 changed files with 1 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

1
libguile/vm-i-scheme.c
View file

@ -386,6 +386,7 @@ VM_DEFINE_INSTRUCTION (163, make_array, "make-array", 3, -1, 1)
len = (len << 8) + FETCH ();
POP (shape);
SYNC_REGISTER ();
PRE_CHECK_UNDERFLOW (len);
ret = scm_from_contiguous_array (shape, sp - len + 1, len);
DROPN (len);
PUSH (ret);