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

Remove br-if-equal opcode

Browse source 
* libguile/vm-engine.c (br-if-equal): Remove opcode.
This commit is contained in:
Andy Wingo 2015-11-12 21:23:09 +01:00
parent 3e5d4131d2
commit d729a0dc75
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

@ -1464,20 +1464,9 @@ VM_NAME (scm_i_thread *thread, struct scm_vm *vp,
&& scm_is_true (scm_eqv_p (x, y)))); && scm_is_true (scm_eqv_p (x, y))));
} }
// FIXME: remove, have compiler inline eqv test instead VM_DEFINE_OP (43, unused_43, NULL, NOP)
/* 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))
{ {
BR_BINARY (x, y, abort ();
scm_is_eq (x, y)
|| (SCM_NIMP (x) && SCM_NIMP (y)
&& scm_is_true (scm_equal_p (x, y))));
} }
/* br-if-logtest a:24 _:8 b:24 invert:1 _:7 offset:24 /* br-if-logtest a:24 _:8 b:24 invert:1 _:7 offset:24