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

Use SCM_GSUBR_MAX in place of the hardcoded number

Browse source 
* libguile/gsubr.c (scm_apply_subr): Reference the limit.
  (get_subr_stub_code): As stated.
* libguile/jit.c (compile_subr_call): As stated.
This commit is contained in:
Daniel Llorens 2023-04-27 14:07:01 +02:00
parent 1ae50a7f80
commit fe6cc6d04a
2 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/gsubr.c
View file

@ -274,7 +274,7 @@ get_subr_stub_code (uint32_t subr_idx,
{
enum arity_kind kind = NULLARY;
if (SCM_UNLIKELY (rest > 1 || nreq + nopt + rest > 10))
if (SCM_UNLIKELY (rest > 1 || nreq + nopt + rest > SCM_GSUBR_MAX))
scm_out_of_range ("make-subr", scm_from_uint (nreq + nopt + rest));
if (nreq) kind += REQ;
@ -500,7 +500,7 @@ scm_apply_subr (union scm_vm_stack_element *sp, uint32_t idx, ptrdiff_t nslots)
return subr (ARG (9), ARG (8), ARG (7), ARG (6), ARG (5),
ARG (4), ARG (3), ARG (2), ARG (1), ARG (0));
default:
abort ();
abort (); /* SCM_GSUBR_MAX */
}
#undef ARG
}

4
libguile/jit.c
View file

@ -1783,11 +1783,11 @@ compile_subr_call (scm_jit_state *j, uint32_t idx)
jit_gpr_t t = T0, ret = T1;
void *subr;
jit_reloc_t immediate;
jit_operand_t args[10];
jit_operand_t args[SCM_GSUBR_MAX];
ASSERT (j->frame_size_min == j->frame_size_max);
size_t argc = j->frame_size_max - 1;
ASSERT (argc <= 10);
ASSERT (argc <= SCM_GSUBR_MAX);
subr = scm_subr_function_by_index (idx);
emit_store_current_ip (j, t);