guile-commits
[Top][All Lists]
Advanced

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

[Guile-commits] 20/24: Remove string->number, etc opcodes


From: Andy Wingo
Subject: [Guile-commits] 20/24: Remove string->number, etc opcodes
Date: Tue, 10 Apr 2018 13:24:15 -0400 (EDT)

wingo pushed a commit to branch master
in repository guile.

commit 51736fd66c08df11fa7aa85c6a331f80340f3547
Author: Andy Wingo <address@hidden>
Date:   Tue Apr 10 18:00:23 2018 +0200

    Remove string->number, etc opcodes
    
    * libguile/vm-engine.c (string->number, string->symbol)
      (symbol->keyword): Remove unused instructions.
---
 libguile/vm-engine.c | 32 ++------------------------------
 1 file changed, 2 insertions(+), 30 deletions(-)

diff --git a/libguile/vm-engine.c b/libguile/vm-engine.c
index 86290fc..e4a72e4 100644
--- a/libguile/vm-engine.c
+++ b/libguile/vm-engine.c
@@ -2133,40 +2133,12 @@ VM_NAME (scm_i_thread *thread, struct scm_vm *vp,
     }
 
   VM_DEFINE_OP (77, unused_77, NULL, NOP)
-    {
-      vm_error_bad_instruction (op);
-      abort (); /* never reached */
-    }
-
   VM_DEFINE_OP (78, unused_78, NULL, NOP)
-    {
-      scm_t_uint16 dst, src;
-
-      UNPACK_12_12 (op, dst, src);
-      SYNC_IP ();
-      SP_SET (dst,
-              scm_string_to_number (SP_REF (src),
-                                    SCM_UNDEFINED /* radix = 10 */));
-      NEXT (1);
-    }
-
   VM_DEFINE_OP (79, unused_79, NULL, NOP)
-    {
-      scm_t_uint16 dst, src;
-
-      UNPACK_12_12 (op, dst, src);
-      SYNC_IP ();
-      SP_SET (dst, scm_string_to_symbol (SP_REF (src)));
-      NEXT (1);
-    }
-
   VM_DEFINE_OP (80, unused_80, NULL, NOP)
     {
-      scm_t_uint16 dst, src;
-      UNPACK_12_12 (op, dst, src);
-      SYNC_IP ();
-      SP_SET (dst, scm_symbol_to_keyword (SP_REF (src)));
-      NEXT (1);
+      vm_error_bad_instruction (op);
+      abort (); /* never reached */
     }
 
   



reply via email to

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