diff options
| author | Daniel Llorens <lloda@sarc.name> | 2023-04-27 14:07:01 +0200 |
|---|---|---|
| committer | Daniel Llorens <lloda@sarc.name> | 2023-04-27 14:07:01 +0200 |
| commit | fe6cc6d04ab094ea802907bdc4f728416c0e97ba (patch) | |
| tree | 255360505318a99a2117fa3b4ec5a368a1e36c48 /libguile/jit.c | |
| parent | 1ae50a7f80654f04d93d900e17f3160205700a75 (diff) | |
| download | guile-fe6cc6d04ab094ea802907bdc4f728416c0e97ba.tar.gz | |
Use SCM_GSUBR_MAX in place of the hardcoded number
* libguile/gsubr.c (scm_apply_subr): Reference the limit.
(get_subr_stub_code): As stated.
* libguile/jit.c (compile_subr_call): As stated.
Diffstat (limited to 'libguile/jit.c')
| -rw-r--r-- | libguile/jit.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/jit.c b/libguile/jit.c index 5cef8fae3..515882740 100644 --- a/libguile/jit.c +++ b/libguile/jit.c @@ -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); |