diff options
| author | Andy Wingo <wingo@pobox.com> | 2018-04-12 16:46:51 +0200 |
|---|---|---|
| committer | Andy Wingo <wingo@pobox.com> | 2018-04-12 16:46:51 +0200 |
| commit | b2c01e5b58ed41a523cb1cd2ef524c90e8f03b19 (patch) | |
| tree | aea3b9da13896bf277eb987c18583545a741ad2f | |
| parent | 7e386bbc70c5b299f7077687722dd5d267e2bd00 (diff) | |
Remove implementations of obsolete s64->scm, u64->scm insts
* libguile/vm-engine.c (s64->scm, u64->scm): Remove implementation.
| -rw-r--r-- | libguile/vm-engine.c | 23 |
1 files changed, 1 insertions, 22 deletions
diff --git a/libguile/vm-engine.c b/libguile/vm-engine.c index 0418a65a7..e13150358 100644 --- a/libguile/vm-engine.c +++ b/libguile/vm-engine.c @@ -2388,20 +2388,7 @@ VM_NAME (scm_i_thread *thread, struct scm_vm *vp, } VM_DEFINE_OP (143, unused_143, NULL, NOP) - { - vm_error_bad_instruction (op); - abort (); /* never reached */ - } - VM_DEFINE_OP (144, unused_144, NULL, NOP) - { - scm_t_uint16 dst, src; - UNPACK_12_12 (op, dst, src); - SYNC_IP (); - SP_SET (dst, scm_from_uint64 (SP_REF_U64 (src))); - NEXT (1); - } - VM_DEFINE_OP (145, unused_145, NULL, NOP) VM_DEFINE_OP (146, unused_146, NULL, NOP) VM_DEFINE_OP (147, unused_147, NULL, NOP) @@ -2540,20 +2527,12 @@ VM_NAME (scm_i_thread *thread, struct scm_vm *vp, } VM_DEFINE_OP (157, unused_157, NULL, NOP) + VM_DEFINE_OP (158, unused_158, NULL, NOP) { vm_error_bad_instruction (op); abort (); /* never reached */ } - VM_DEFINE_OP (158, unused_158, NULL, NOP) - { - scm_t_uint16 dst, src; - UNPACK_12_12 (op, dst, src); - SYNC_IP (); - SP_SET (dst, scm_from_int64 (SP_REF_S64 (src))); - NEXT (1); - } - /* load-s64 dst:24 high-bits:32 low-bits:32 * * Make an unsigned 64-bit integer with HIGH-BITS and LOW-BITS. |