summaryrefslogtreecommitdiff
path: root/libguile/vm.c
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2018-01-07 16:34:13 +0100
committerAndy Wingo <wingo@pobox.com>2018-01-07 16:34:13 +0100
commit94f8f70b22f2aad76d35bfd7f7e506d769fe4096 (patch)
tree392ac0a76ca8ef129a0a582c910c60bd128f8469 /libguile/vm.c
parent5dde0e48e7c77f4d4b623052c1c6c6a44d4706a5 (diff)
downloadguile-94f8f70b22f2aad76d35bfd7f7e506d769fe4096.tar.gz
Remove now-unused make-vector et al instructions
* libguile/vm-engine.c (make-vector, make-vector/immediate) (vector-ref, vector-ref/immediate, vector-set!) (vector-set!/immediate): Remove these now-unused instructions. * libguile/vm.c (vm_error_not_a_vector, vm_error_not_a_mutable_vector): Remove.
Diffstat (limited to 'libguile/vm.c')
-rw-r--r--libguile/vm.c16
1 files changed, 1 insertions, 15 deletions
diff --git a/libguile/vm.c b/libguile/vm.c
index 719110a44..6b904cf92 100644
--- a/libguile/vm.c
+++ b/libguile/vm.c
@@ -1,4 +1,4 @@
-/* Copyright (C) 2001, 2009, 2010, 2011, 2012, 2013, 2014, 2015, 2017 Free Software Foundation, Inc.
+/* Copyright (C) 2001, 2009-2015, 2017-2018 Free Software Foundation, Inc.
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public License
@@ -440,8 +440,6 @@ static void vm_error_not_a_atomic_box (const char *subr, SCM x) SCM_NORETURN SCM
static void vm_error_not_a_bytevector (const char *subr, SCM x) SCM_NORETURN SCM_NOINLINE;
static void vm_error_not_a_mutable_bytevector (const char *subr, SCM v) SCM_NORETURN SCM_NOINLINE;
static void vm_error_not_a_struct (const char *subr, SCM x) SCM_NORETURN SCM_NOINLINE;
-static void vm_error_not_a_vector (const char *subr, SCM v) SCM_NORETURN SCM_NOINLINE;
-static void vm_error_not_a_mutable_vector (const char *subr, SCM v) SCM_NORETURN SCM_NOINLINE;
static void vm_error_out_of_range_uint64 (const char *subr, scm_t_uint64 idx) SCM_NORETURN SCM_NOINLINE;
static void vm_error_out_of_range_int64 (const char *subr, scm_t_int64 idx) SCM_NORETURN SCM_NOINLINE;
static void vm_error_boxed_struct_field (const char *subr, scm_t_uint64 idx) SCM_NORETURN SCM_NOINLINE;
@@ -608,18 +606,6 @@ vm_error_not_a_struct (const char *subr, SCM x)
}
static void
-vm_error_not_a_vector (const char *subr, SCM x)
-{
- scm_wrong_type_arg_msg (subr, 1, x, "vector");
-}
-
-static void
-vm_error_not_a_mutable_vector (const char *subr, SCM x)
-{
- scm_wrong_type_arg_msg (subr, 1, x, "mutable vector");
-}
-
-static void
vm_error_out_of_range_uint64 (const char *subr, scm_t_uint64 idx)
{
scm_out_of_range (subr, scm_from_uint64 (idx));