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

Fix f32-set! JIT compilation

Browse source 
* libguile/jit.c (compile_f32_set): Fix to write an f32, not a f64.
This commit is contained in:
Andy Wingo 2018-10-04 16:50:10 +02:00
parent 6a243e1ba0
commit 6f3357b0df
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/jit.c
View file

@ -4119,7 +4119,7 @@ compile_f32_set (scm_jit_state *j, uint8_t ptr, uint8_t idx, uint8_t v)
emit_sp_ref_f64 (j, JIT_F0, v);
jit_extr_d_f (JIT_F0, JIT_F0);
record_fpr_clobber (j, JIT_F0);
jit_stxr_d (T0, T1, JIT_F0);
jit_stxr_f (T0, T1, JIT_F0);
}
static void