wingo pushed a commit to branch master
in repository guile.
commit 51736fd66c08df11fa7aa85c6a331f80340f3547
Author: Andy Wingo <[email protected]>
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 */
}