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

Use jit_word_t for register-sized values instead of intmax_t

Browse source
This commit is contained in:
Andy Wingo 2019-04-26 15:00:29 +02:00
parent bab1f40b5e
commit e9d1567f7f
156 changed files with 322 additions and 323 deletions
Download patch file Download diff file Expand all files Collapse all files

4
tests/extr_d.c
View file

@ -4,12 +4,12 @@ static void
run_test(jit_state_t *j, uint8_t *arena_base, size_t arena_size)
{
jit_begin(j, arena_base, arena_size);
jit_load_args_1(j, jit_operand_gpr (JIT_OPERAND_ABI_INTMAX, JIT_R0));
jit_load_args_1(j, jit_operand_gpr (JIT_OPERAND_ABI_WORD, JIT_R0));
jit_extr_d(j, JIT_F0, JIT_R0);
jit_retr_d(j, JIT_F0);
double (*f)(intmax_t) = jit_end(j, NULL);
double (*f)(jit_word_t) = jit_end(j, NULL);
ASSERT(f(0) == 0.0);
ASSERT(f(1) == 1.0);