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

8
tests/qmulr.c
View file

@ -26,8 +26,8 @@ run_test(jit_state_t *j, uint8_t *arena_base, size_t arena_size)
jit_operand_t args[] =
{ jit_operand_gpr (JIT_OPERAND_ABI_POINTER, JIT_R0),
jit_operand_gpr (JIT_OPERAND_ABI_POINTER, JIT_R1),
jit_operand_gpr (JIT_OPERAND_ABI_INTMAX, JIT_R2),
jit_operand_gpr (JIT_OPERAND_ABI_INTMAX, JIT_V0) };
jit_operand_gpr (JIT_OPERAND_ABI_WORD, JIT_R2),
jit_operand_gpr (JIT_OPERAND_ABI_WORD, JIT_V0) };
jit_load_args(j, 4, args);
jit_qmulr(j, JIT_V1, JIT_V2, JIT_R2, JIT_V0);
@ -43,11 +43,11 @@ run_test(jit_state_t *j, uint8_t *arena_base, size_t arena_size)
size_t size = 0;
void* ret = jit_end(j, &size);
void (*f)(intmax_t*, intmax_t*, intmax_t, intmax_t) = ret;
void (*f)(jit_word_t*, jit_word_t*, jit_word_t, jit_word_t) = ret;
#define QMUL(a, b, c, d) \
do { \
intmax_t C = 0, D = 0; f(&C, &D, a, b); ASSERT(C == c); ASSERT(D == d); \
jit_word_t C = 0, D = 0; f(&C, &D, a, b); ASSERT(C == c); ASSERT(D == d); \
} while (0)
QMUL(-2, -1, 2, 0);