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

Remove implementation of logsub VM op

Browse source 
* libguile/vm-engine.c (logsub): Remove implementation.
This commit is contained in:
Andy Wingo 2018-04-12 17:22:11 +02:00
parent 25a0fe8839
commit b32d3cc6f7
1 changed files with 2 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

15
libguile/vm-engine.c
View file

@ -2566,19 +2566,8 @@ VM_NAME (scm_i_thread *thread, struct scm_vm *vp,
VM_DEFINE_OP (161, unused_161, NULL, NOP) VM_DEFINE_OP (161, unused_161, NULL, NOP)
{ {
ARGS2 (x, y); vm_error_bad_instruction (op);
abort (); /* never reached */
if (SCM_I_INUMP (x) && SCM_I_INUMP (y))
{
scm_t_signed_bits a, b;
a = SCM_I_INUM (x);
b = SCM_I_INUM (y);
RETURN (SCM_I_MAKINUM (a & ~b));
}
RETURN_EXP (scm_logand (x, scm_lognot (y)));
} }
/* ulogand dst:8 a:8 b:8 /* ulogand dst:8 a:8 b:8