diff options
author | Andy Wingo <wingo@pobox.com> | 2018-04-12 16:27:20 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2018-04-12 16:27:20 +0200 |
commit | 1457f4efb3f623711d47f392eba458be310d8401 (patch) | |
tree | d4bf8cee4347e5980e5c618925723eaf031e5f61 /libguile/vm-engine.c | |
parent | dd88fc569d287101e3527138440e7e14eaca43a5 (diff) | |
download | guile-1457f4efb3f623711d47f392eba458be310d8401.tar.gz |
Remove scm->u64, etc implementations
* libguile/vm-engine.c: Remove implementations of now-obsolete bytecodes.
Diffstat (limited to 'libguile/vm-engine.c')
-rw-r--r-- | libguile/vm-engine.c | 33 |
1 files changed, 6 insertions, 27 deletions
diff --git a/libguile/vm-engine.c b/libguile/vm-engine.c index 0e8929240..561fc9982 100644 --- a/libguile/vm-engine.c +++ b/libguile/vm-engine.c @@ -2357,11 +2357,8 @@ VM_NAME (scm_i_thread *thread, struct scm_vm *vp, VM_DEFINE_OP (143, unused_143, NULL, NOP) { - scm_t_uint16 dst, src; - UNPACK_12_12 (op, dst, src); - SYNC_IP (); - SP_SET_U64 (dst, scm_to_uint64 (SP_REF (src))); - NEXT (1); + vm_error_bad_instruction (op); + abort (); /* never reached */ } /* u64->scm dst:12 src:12 @@ -2516,11 +2513,8 @@ VM_NAME (scm_i_thread *thread, struct scm_vm *vp, VM_DEFINE_OP (157, unused_157, NULL, NOP) { - scm_t_uint16 dst, src; - UNPACK_12_12 (op, dst, src); - SYNC_IP (); - SP_SET_S64 (dst, scm_to_int64 (SP_REF (src))); - NEXT (1); + vm_error_bad_instruction (op); + abort (); /* never reached */ } /* s64->scm dst:12 src:12 @@ -2668,23 +2662,8 @@ VM_NAME (scm_i_thread *thread, struct scm_vm *vp, VM_DEFINE_OP (167, unused_167, NULL, NOP) { - scm_t_uint16 dst, src; - SCM x; - - UNPACK_12_12 (op, dst, src); - x = SP_REF (src); - - if (SCM_I_INUMP (x)) - SP_SET_U64 (dst, (scm_t_uint64) SCM_I_INUM (x)); - else - { - SYNC_IP (); - SP_SET_U64 (dst, - scm_to_uint64 - (scm_logand (x, scm_from_uint64 ((scm_t_uint64) -1)))); - } - - NEXT (1); + vm_error_bad_instruction (op); + abort (); /* never reached */ } /* ursh/immediate dst:8 a:8 b:8 |