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

Minor VM fixes

Browse source 
* libguile/vm-engine.c (string-ref): Unpack the index into a 64-bit
  integer.
  (br-if-u64-<-scm): Tighten up the fast path.
This commit is contained in:
Andy Wingo 2016-06-10 08:23:04 +02:00
parent 58e508b569
commit d1b99ea2ae
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/vm-engine.c
View file

@ -2239,7 +2239,7 @@ VM_NAME (scm_i_thread *thread, struct scm_vm *vp,
{ {
scm_t_uint8 dst, src, idx; scm_t_uint8 dst, src, idx;
SCM str; SCM str;
scm_t_uint32 c_idx; scm_t_uint64 c_idx;
UNPACK_8_8_8 (op, dst, src, idx); UNPACK_8_8_8 (op, dst, src, idx);
str = SP_REF (src); str = SP_REF (src);
@ -3700,7 +3700,7 @@ VM_NAME (scm_i_thread *thread, struct scm_vm *vp,
*/ */
VM_DEFINE_OP (171, br_if_u64_lt_scm, "br-if-u64-<-scm", OP3 (X8_S24, X8_S24, B1_X7_L24)) VM_DEFINE_OP (171, br_if_u64_lt_scm, "br-if-u64-<-scm", OP3 (X8_S24, X8_S24, B1_X7_L24))
{ {
BR_U64_SCM_COMPARISON(x, y, y >= 0 && (scm_t_uint64) y > x, scm_less_p); BR_U64_SCM_COMPARISON(x, y, y > 0 && (scm_t_uint64) y > x, scm_less_p);
} }
/* br-if-u64-=-scm a:24 _:8 b:24 invert:1 _:7 offset:24 /* br-if-u64-=-scm a:24 _:8 b:24 invert:1 _:7 offset:24