diff options
author | Andy Wingo <wingo@pobox.com> | 2018-08-13 10:59:09 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2018-08-13 10:59:09 +0200 |
commit | 11940f4c72102fc3f5147aa5529c5ed77ff09fcc (patch) | |
tree | c3b22e70fc88b03739bc60a7c7bb9c921841b3c2 /libguile/vm-engine.c | |
parent | 5df43b60a9c5186343c3270a710a7ccf1bcbbabd (diff) | |
download | guile-11940f4c72102fc3f5147aa5529c5ed77ff09fcc.tar.gz |
Update error-wrong-num-args intrinsic prototype
* libguile/intrinsics.h (SCM_FOR_ALL_VM_INTRINSICS):
* libguile/intrinsics.c (error_wrong_num_args): Take the thread as an
arg, instead of the ostensible callee.
* libguile/vm-engine.c: Update callers of wrong-num-args intrinsic to
pass a thread instead.
Diffstat (limited to 'libguile/vm-engine.c')
-rw-r--r-- | libguile/vm-engine.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/libguile/vm-engine.c b/libguile/vm-engine.c index 8dc5c00c1..488d4c7fb 100644 --- a/libguile/vm-engine.c +++ b/libguile/vm-engine.c @@ -885,7 +885,7 @@ VM_NAME (scm_thread *thread) uint32_t expected; UNPACK_24 (op, expected); VM_ASSERT (FRAME_LOCALS_COUNT () == expected, - CALL_INTRINSIC (error_wrong_num_args, (FP_REF (0)))); + CALL_INTRINSIC (error_wrong_num_args, (thread))); NEXT (1); } VM_DEFINE_OP (22, assert_nargs_ge, "assert-nargs-ge", OP1 (X8_C24)) @@ -893,7 +893,7 @@ VM_NAME (scm_thread *thread) uint32_t expected; UNPACK_24 (op, expected); VM_ASSERT (FRAME_LOCALS_COUNT () >= expected, - CALL_INTRINSIC (error_wrong_num_args, (FP_REF (0)))); + CALL_INTRINSIC (error_wrong_num_args, (thread))); NEXT (1); } VM_DEFINE_OP (23, assert_nargs_le, "assert-nargs-le", OP1 (X8_C24)) @@ -901,7 +901,7 @@ VM_NAME (scm_thread *thread) uint32_t expected; UNPACK_24 (op, expected); VM_ASSERT (FRAME_LOCALS_COUNT () <= expected, - CALL_INTRINSIC (error_wrong_num_args, (FP_REF (0)))); + CALL_INTRINSIC (error_wrong_num_args, (thread))); NEXT (1); } @@ -1001,7 +1001,7 @@ VM_NAME (scm_thread *thread) uint16_t expected, nlocals; UNPACK_12_12 (op, expected, nlocals); VM_ASSERT (FRAME_LOCALS_COUNT () == expected, - CALL_INTRINSIC (error_wrong_num_args, (FP_REF (0)))); + CALL_INTRINSIC (error_wrong_num_args, (thread))); ALLOC_FRAME (expected + nlocals); while (nlocals--) SP_SET (nlocals, SCM_UNDEFINED); |