From 2db7c2df645bb53715eb6d4daa03c2350064d19e Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Tue, 10 Apr 2018 20:51:06 +0200 Subject: [PATCH] Remove scm->f64, f64->scm implementations * libguile/vm-engine.c: Remove now-unused f64->scm, scm->f64 impls. --- libguile/vm-engine.c | 20 ++------------------ 1 file changed, 2 insertions(+), 18 deletions(-) diff --git a/libguile/vm-engine.c b/libguile/vm-engine.c index 13cbc7706..2b274aa71 100644 --- a/libguile/vm-engine.c +++ b/libguile/vm-engine.c @@ -2230,29 +2230,13 @@ VM_NAME (scm_i_thread *thread, struct scm_vm *vp, VM_DEFINE_OP (133, unused_133, NULL, NOP) VM_DEFINE_OP (134, unused_134, NULL, NOP) VM_DEFINE_OP (135, unused_135, NULL, NOP) + VM_DEFINE_OP (136, unused_136, NULL, NOP) + VM_DEFINE_OP (137, unused_137, NULL, NOP) { vm_error_bad_instruction (op); abort (); /* never reached */ } - VM_DEFINE_OP (136, unused_136, NULL, NOP) - { - scm_t_uint16 dst, src; - UNPACK_12_12 (op, dst, src); - SYNC_IP (); - SP_SET_F64 (dst, scm_to_double (SP_REF (src))); - NEXT (1); - } - - VM_DEFINE_OP (137, unused_137, NULL, NOP) - { - scm_t_uint16 dst, src; - UNPACK_12_12 (op, dst, src); - SYNC_IP (); - SP_SET (dst, scm_from_double (SP_REF_F64 (src))); - NEXT (1); - } - /* fadd dst:8 a:8 b:8 * * Add A to B, and place the result in DST. The operands and the