summaryrefslogtreecommitdiff
path: root/libguile/vm-engine.c
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2015-11-12 21:23:09 +0100
committerAndy Wingo <wingo@pobox.com>2015-11-12 21:23:09 +0100
commitd729a0dc757943c2bafb0cb300fc1ae7b3f56e91 (patch)
tree455abf302c528b8b7a6b548ebb4b517b24bb9d0e /libguile/vm-engine.c
parent3e5d4131d2b8eecf72568bc94d626a7cdced7f5b (diff)
downloadguile-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.c15
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