mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-16 00:30:21 +02:00
Code Activity

Remove implementations of obsolete s64->scm, u64->scm insts

Browse source 
* libguile/vm-engine.c (s64->scm, u64->scm): Remove implementation.
This commit is contained in:
Andy Wingo 2018-04-12 16:46:51 +02:00
parent 7e386bbc70
commit b2c01e5b58
1 changed files with 1 additions and 22 deletions
Download patch file Download diff file Expand all files Collapse all files

23
libguile/vm-engine.c
View file

@ -2388,20 +2388,7 @@ VM_NAME (scm_i_thread *thread, struct scm_vm *vp,
}
VM_DEFINE_OP (143, unused_143, NULL, NOP)
{
vm_error_bad_instruction (op);
abort (); /* never reached */
}
VM_DEFINE_OP (144, unused_144, NULL, NOP)
{
scm_t_uint16 dst, src;
UNPACK_12_12 (op, dst, src);
SYNC_IP ();
SP_SET (dst, scm_from_uint64 (SP_REF_U64 (src)));
NEXT (1);
}
VM_DEFINE_OP (145, unused_145, NULL, NOP)
VM_DEFINE_OP (146, unused_146, NULL, NOP)
VM_DEFINE_OP (147, unused_147, NULL, NOP)
@ -2540,20 +2527,12 @@ VM_NAME (scm_i_thread *thread, struct scm_vm *vp,
}
VM_DEFINE_OP (157, unused_157, NULL, NOP)
VM_DEFINE_OP (158, unused_158, NULL, NOP)
{
vm_error_bad_instruction (op);
abort (); /* never reached */
}
VM_DEFINE_OP (158, unused_158, NULL, NOP)
{
scm_t_uint16 dst, src;
UNPACK_12_12 (op, dst, src);
SYNC_IP ();
SP_SET (dst, scm_from_int64 (SP_REF_S64 (src)));
NEXT (1);
}
/* load-s64 dst:24 high-bits:32 low-bits:32
*
* Make an unsigned 64-bit integer with HIGH-BITS and LOW-BITS.