From 7c0bfcb097ae707f5edb417c91d11fbd73cf14ff Mon Sep 17 00:00:00 2001
From: Andy Wingo <wingo@pobox.com>
Date: Sat, 1 Sep 2018 10:29:05 +0200
Subject: [PATCH] Minor 32-bit untag-fixnum optimization

* libguile/jit.c (compile_untag_fixnum): Minor optimization in 32-bit
  case.
---
 libguile/jit.c | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/libguile/jit.c b/libguile/jit.c
index d8d9677e0..fffd71da5 100644
--- a/libguile/jit.c
+++ b/libguile/jit.c
@@ -3303,8 +3303,7 @@ compile_untag_fixnum (scm_jit_state *j, uint16_t dst, uint16_t a)
   emit_sp_set_s64 (j, dst, T0);
 #else
   /* FIXME: Untested!  */
-  emit_movi (j, T1, T0);
-  emit_rshi (j, T1, T1, 31);
+  emit_rshi (j, T1, T0, 31);
   emit_sp_set_s64 (j, dst, T0, T1);
 #endif
 }