guile-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Guile-commits] 06/15: Remove scm->f64, f64->scm implementations


From: Andy Wingo
Subject: [Guile-commits] 06/15: Remove scm->f64, f64->scm implementations
Date: Fri, 13 Apr 2018 04:41:12 -0400 (EDT)

wingo pushed a commit to branch master
in repository guile.

commit 2db7c2df645bb53715eb6d4daa03c2350064d19e
Author: Andy Wingo <address@hidden>
Date:   Tue Apr 10 20:51:06 2018 +0200

    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 13cbc77..2b274aa 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



reply via email to

[Prev in Thread] Current Thread [Next in Thread]