mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

Remove string->number, etc opcodes

Browse source 
* libguile/vm-engine.c (string->number, string->symbol)
  (symbol->keyword): Remove unused instructions.
This commit is contained in:
Andy Wingo 2018-04-10 18:00:23 +02:00
parent 1c49c1407b
commit 51736fd66c
1 changed files with 3 additions and 31 deletions
Download patch file Download diff file Expand all files Collapse all files

34
libguile/vm-engine.c
View file

@ -2133,42 +2133,14 @@ VM_NAME (scm_i_thread *thread, struct scm_vm *vp,
} }
VM_DEFINE_OP (77, unused_77, NULL, NOP) VM_DEFINE_OP (77, unused_77, NULL, NOP)
VM_DEFINE_OP (78, unused_78, NULL, NOP)
VM_DEFINE_OP (79, unused_79, NULL, NOP)
VM_DEFINE_OP (80, unused_80, NULL, NOP)
{ {
vm_error_bad_instruction (op); vm_error_bad_instruction (op);
abort (); /* never reached */ 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_DEFINE_OP (81, tag_char, "tag-char", OP1 (X8_S12_S12) | OP_DST) VM_DEFINE_OP (81, tag_char, "tag-char", OP1 (X8_S12_S12) | OP_DST)