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 scm->u64, etc implementations

Browse source 
* libguile/vm-engine.c: Remove implementations of now-obsolete bytecodes.
This commit is contained in:
Andy Wingo 2018-04-12 16:27:20 +02:00
parent dd88fc569d
commit 1457f4efb3
1 changed files with 6 additions and 27 deletions
Download patch file Download diff file Expand all files Collapse all files

33
libguile/vm-engine.c
View file

@ -2357,11 +2357,8 @@ VM_NAME (scm_i_thread *thread, struct scm_vm *vp,
VM_DEFINE_OP (143, unused_143, NULL, NOP)
{
scm_t_uint16 dst, src;
UNPACK_12_12 (op, dst, src);
SYNC_IP ();
SP_SET_U64 (dst, scm_to_uint64 (SP_REF (src)));
NEXT (1);
vm_error_bad_instruction (op);
abort (); /* never reached */
}
/* u64->scm dst:12 src:12
@ -2516,11 +2513,8 @@ VM_NAME (scm_i_thread *thread, struct scm_vm *vp,
VM_DEFINE_OP (157, unused_157, NULL, NOP)
{
scm_t_uint16 dst, src;
UNPACK_12_12 (op, dst, src);
SYNC_IP ();
SP_SET_S64 (dst, scm_to_int64 (SP_REF (src)));
NEXT (1);
vm_error_bad_instruction (op);
abort (); /* never reached */
}
/* s64->scm dst:12 src:12
@ -2668,23 +2662,8 @@ VM_NAME (scm_i_thread *thread, struct scm_vm *vp,
VM_DEFINE_OP (167, unused_167, NULL, NOP)
{
scm_t_uint16 dst, src;
SCM x;
UNPACK_12_12 (op, dst, src);
x = SP_REF (src);
if (SCM_I_INUMP (x))
SP_SET_U64 (dst, (scm_t_uint64) SCM_I_INUM (x));
else
{
SYNC_IP ();
SP_SET_U64 (dst,
scm_to_uint64
(scm_logand (x, scm_from_uint64 ((scm_t_uint64) -1))));
}
NEXT (1);
vm_error_bad_instruction (op);
abort (); /* never reached */
}
/* ursh/immediate dst:8 a:8 b:8