diff options
author | Andy Wingo <wingo@pobox.com> | 2015-11-12 21:23:09 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2015-11-12 21:23:09 +0100 |
commit | d729a0dc757943c2bafb0cb300fc1ae7b3f56e91 (patch) | |
tree | 455abf302c528b8b7a6b548ebb4b517b24bb9d0e /libguile/vm-engine.c | |
parent | 3e5d4131d2b8eecf72568bc94d626a7cdced7f5b (diff) | |
download | guile-d729a0dc757943c2bafb0cb300fc1ae7b3f56e91.tar.gz |
Remove br-if-equal opcode
* libguile/vm-engine.c (br-if-equal): Remove opcode.
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 d33878d20..486585d4e 100644 --- a/libguile/vm-engine.c +++ b/libguile/vm-engine.c @@ -1464,20 +1464,9 @@ VM_NAME (scm_i_thread *thread, struct scm_vm *vp, && scm_is_true (scm_eqv_p (x, y)))); } - // FIXME: remove, have compiler inline eqv test instead - /* br-if-equal a:12 b:12 invert:1 _:7 offset:24 - * - * If the value in A is equal? to the value in B, add OFFSET, a signed - * 24-bit number, to the current instruction pointer. - */ - // FIXME: Should sync_ip before calling out and cache_sp before coming - // back! Another reason to remove this opcode! - VM_DEFINE_OP (43, br_if_equal, "br-if-equal", OP3 (X8_S24, X8_S24, B1_X7_L24)) + VM_DEFINE_OP (43, unused_43, NULL, NOP) { - BR_BINARY (x, y, - scm_is_eq (x, y) - || (SCM_NIMP (x) && SCM_NIMP (y) - && scm_is_true (scm_equal_p (x, y)))); + abort (); } /* br-if-logtest a:24 _:8 b:24 invert:1 _:7 offset:24 |