mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 11:50:28 +02:00
Code Activity

make-array bugfix

Browse source 
* libguile/vm-i-scheme.c (make-array): Fix terrible stack corruption
  bug.
This commit is contained in:
Andy Wingo 2010-01-12 00:21:16 +01:00
parent e106eca674
commit e30f5b7d40
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -668,7 +668,8 @@ VM_DEFINE_INSTRUCTION (177, make_array, "make-array", 3, -1, 1)
SYNC_REGISTER ();
ret = scm_from_contiguous_array (shape, sp - len + 1, len);
DROPN (len);
RETURN (ret);
PUSH (ret);
NEXT;
}
/*