summaryrefslogtreecommitdiff
path: root/libguile/vm-engine.c
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2018-08-13 10:59:09 +0200
committerAndy Wingo <wingo@pobox.com>2018-08-13 10:59:09 +0200
commit11940f4c72102fc3f5147aa5529c5ed77ff09fcc (patch)
treec3b22e70fc88b03739bc60a7c7bb9c921841b3c2 /libguile/vm-engine.c
parent5df43b60a9c5186343c3270a710a7ccf1bcbbabd (diff)
downloadguile-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.c8
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);