From 51736fd66c08df11fa7aa85c6a331f80340f3547 Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Tue, 10 Apr 2018 18:00:23 +0200 Subject: [PATCH] Remove string->number, etc opcodes * libguile/vm-engine.c (string->number, string->symbol) (symbol->keyword): Remove unused instructions. --- libguile/vm-engine.c | 34 +++------------------------------- 1 file changed, 3 insertions(+), 31 deletions(-) diff --git a/libguile/vm-engine.c b/libguile/vm-engine.c index 86290fcd9..e4a72e4a7 100644 --- a/libguile/vm-engine.c +++ b/libguile/vm-engine.c @@ -2133,42 +2133,14 @@ VM_NAME (scm_i_thread *thread, struct scm_vm *vp, } VM_DEFINE_OP (77, unused_77, NULL, NOP) + VM_DEFINE_OP (78, unused_78, NULL, NOP) + VM_DEFINE_OP (79, unused_79, NULL, NOP) + VM_DEFINE_OP (80, unused_80, NULL, NOP) { vm_error_bad_instruction (op); abort (); /* never reached */ } - VM_DEFINE_OP (78, unused_78, NULL, NOP) - { - scm_t_uint16 dst, src; - - UNPACK_12_12 (op, dst, src); - SYNC_IP (); - SP_SET (dst, - scm_string_to_number (SP_REF (src), - SCM_UNDEFINED /* radix = 10 */)); - NEXT (1); - } - - VM_DEFINE_OP (79, unused_79, NULL, NOP) - { - scm_t_uint16 dst, src; - - UNPACK_12_12 (op, dst, src); - SYNC_IP (); - SP_SET (dst, scm_string_to_symbol (SP_REF (src))); - NEXT (1); - } - - VM_DEFINE_OP (80, unused_80, NULL, NOP) - { - scm_t_uint16 dst, src; - UNPACK_12_12 (op, dst, src); - SYNC_IP (); - SP_SET (dst, scm_symbol_to_keyword (SP_REF (src))); - NEXT (1); - } - VM_DEFINE_OP (81, tag_char, "tag-char", OP1 (X8_S12_S12) | OP_DST)