mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-11 14:21:10 +02:00
Code Activity

Minor 32-bit untag-fixnum optimization

Browse source 
* libguile/jit.c (compile_untag_fixnum): Minor optimization in 32-bit
  case.
This commit is contained in:
Andy Wingo 2018-09-01 10:29:05 +02:00
parent dafa648915
commit 7c0bfcb097
1 changed files with 1 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

3
libguile/jit.c
View file

@ -3303,8 +3303,7 @@ compile_untag_fixnum (scm_jit_state *j, uint16_t dst, uint16_t a)
emit_sp_set_s64 (j, dst, T0); emit_sp_set_s64 (j, dst, T0);
#else #else
/* FIXME: Untested! */ /* FIXME: Untested! */
emit_movi (j, T1, T0); emit_rshi (j, T1, T0, 31);
emit_rshi (j, T1, T1, 31);
emit_sp_set_s64 (j, dst, T0, T1); emit_sp_set_s64 (j, dst, T0, T1);
#endif #endif
} }