summaryrefslogtreecommitdiff
path: root/libguile/vm-engine.c
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2013-10-31 11:30:53 +0100
committerAndy Wingo <wingo@pobox.com>2013-10-31 12:55:24 +0100
commitecbef96687363cbf2eadeaaf8fab8d8efd33f944 (patch)
tree26dc624a310069d3d697ac2ffb63ff87b6aab99b /libguile/vm-engine.c
parent7bfbc7b1c50df58a26e3ffb88f809858a03b0e11 (diff)
downloadguile-ecbef96687363cbf2eadeaaf8fab8d8efd33f944.tar.gz
Fix bytevector error messages.
* libguile/vm-engine.c (BV_FIXABLE_INT_SET, BV_INT_SET): (BV_FLOAT_SET): Fix instruction names in error messages.
Diffstat (limited to 'libguile/vm-engine.c')
-rw-r--r--libguile/vm-engine.c6
1 files changed, 3 insertions, 3 deletions
diff --git a/libguile/vm-engine.c b/libguile/vm-engine.c
index 2f53b2092..b6b9f8fd4 100644
--- a/libguile/vm-engine.c
+++ b/libguile/vm-engine.c
@@ -3392,7 +3392,7 @@ RTL_VM_NAME (SCM vm, SCM program, SCM *argv, size_t nargs_)
bv = LOCAL_REF (dst); \
scm_idx = LOCAL_REF (idx); \
val = LOCAL_REF (src); \
- VM_VALIDATE_BYTEVECTOR (bv, "bv-" #stem "-set"); \
+ VM_VALIDATE_BYTEVECTOR (bv, "bv-" #stem "-set!"); \
i = SCM_I_INUM (scm_idx); \
int_ptr = (scm_t_ ## type *) (SCM_BYTEVECTOR_CONTENTS (bv) + i); \
\
@@ -3423,7 +3423,7 @@ RTL_VM_NAME (SCM vm, SCM program, SCM *argv, size_t nargs_)
bv = LOCAL_REF (dst); \
scm_idx = LOCAL_REF (idx); \
val = LOCAL_REF (src); \
- VM_VALIDATE_BYTEVECTOR (bv, "bv-" #stem "-set"); \
+ VM_VALIDATE_BYTEVECTOR (bv, "bv-" #stem "-set!"); \
i = SCM_I_INUM (scm_idx); \
int_ptr = (scm_t_ ## type *) (SCM_BYTEVECTOR_CONTENTS (bv) + i); \
\
@@ -3451,7 +3451,7 @@ RTL_VM_NAME (SCM vm, SCM program, SCM *argv, size_t nargs_)
bv = LOCAL_REF (dst); \
scm_idx = LOCAL_REF (idx); \
val = LOCAL_REF (src); \
- VM_VALIDATE_BYTEVECTOR (bv, "bv-" #stem "-set"); \
+ VM_VALIDATE_BYTEVECTOR (bv, "bv-" #stem "-set!"); \
i = SCM_I_INUM (scm_idx); \
float_ptr = (type *) (SCM_BYTEVECTOR_CONTENTS (bv) + i); \
\