mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 22:10:21 +02:00
Code Activity

Fix BR_NARGS data type width

Browse source 
* libguile/vm-engine.c (BR_NARGS): Fix width of "expected".  Fixes bug
  with > 65536 arguments in case-lambda clauses.
This commit is contained in:
Andy Wingo 2013-11-08 11:36:53 +01:00
parent be564260be
commit d2bd8fa810
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/vm-engine.c
View file

@ -668,7 +668,7 @@ VM_NAME (SCM vm, SCM program, SCM *argv, int nargs)
} while (0)
#define BR_NARGS(rel) \
scm_t_uint16 expected; \
scm_t_uint32 expected; \
SCM_UNPACK_RTL_24 (op, expected); \
if (FRAME_LOCALS_COUNT() rel expected) \
{ \