summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2018-04-12 16:46:51 +0200
committerAndy Wingo <wingo@pobox.com>2018-04-12 16:46:51 +0200
commitb2c01e5b58ed41a523cb1cd2ef524c90e8f03b19 (patch)
treeaea3b9da13896bf277eb987c18583545a741ad2f
parent7e386bbc70c5b299f7077687722dd5d267e2bd00 (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.c23
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.