diff options
author | Andy Wingo <wingo@pobox.com> | 2018-04-12 17:22:11 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2018-04-12 17:22:11 +0200 |
commit | b32d3cc6f7f521f67637f30f83327110264b9dee (patch) | |
tree | 9624fb0a7f424ea7d2e5ed8a4088f371cdde0210 /libguile/vm-engine.c | |
parent | 25a0fe8839358814c7c16e6ca8237b99b64cde0b (diff) | |
download | guile-b32d3cc6f7f521f67637f30f83327110264b9dee.tar.gz |
Remove implementation of logsub VM op
* libguile/vm-engine.c (logsub): Remove implementation.
Diffstat (limited to 'libguile/vm-engine.c')
-rw-r--r-- | libguile/vm-engine.c | 15 |
1 files changed, 2 insertions, 13 deletions
diff --git a/libguile/vm-engine.c b/libguile/vm-engine.c index dc6198268..b6638c41e 100644 --- a/libguile/vm-engine.c +++ b/libguile/vm-engine.c @@ -2566,19 +2566,8 @@ VM_NAME (scm_i_thread *thread, struct scm_vm *vp, VM_DEFINE_OP (161, unused_161, NULL, NOP) { - ARGS2 (x, y); - - 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))); + vm_error_bad_instruction (op); + abort (); /* never reached */ } /* ulogand dst:8 a:8 b:8 |