summaryrefslogtreecommitdiff
path: root/libguile/vm-engine.c
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2018-04-10 20:51:06 +0200
committerAndy Wingo <wingo@pobox.com>2018-04-10 20:51:06 +0200
commit2db7c2df645bb53715eb6d4daa03c2350064d19e (patch)
tree4765d5af6f9e42c262870568837c2f8cf3e69fff /libguile/vm-engine.c
parentb285226477814c83548dbee92e8a4a4b0efbbc80 (diff)
downloadguile-2db7c2df645bb53715eb6d4daa03c2350064d19e.tar.gz
Remove scm->f64, f64->scm implementations
* libguile/vm-engine.c: Remove now-unused f64->scm, scm->f64 impls.
Diffstat (limited to 'libguile/vm-engine.c')
-rw-r--r--libguile/vm-engine.c20
1 files 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,27 +2230,11 @@ 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_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);
+ vm_error_bad_instruction (op);
+ abort (); /* never reached */
}
/* fadd dst:8 a:8 b:8