diff options
author | Andy Wingo <wingo@pobox.com> | 2019-04-28 13:53:16 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2019-04-28 13:53:16 +0200 |
commit | 51618e7e8399c7aa2571d0be8e469e09e1c6a970 (patch) | |
tree | cbc62c41730a648860f57fc455aeee72ded71629 /libguile/lightening/tests/qdivr_u.c | |
parent | 14e64a8b57ff0abb9140db37268ca24fe4980cd0 (diff) | |
parent | 04cd8874de9713e53e9e0cfe5c0195bd356ebe8e (diff) | |
download | guile-51618e7e8399c7aa2571d0be8e469e09e1c6a970.tar.gz |
Merge from upstream lightening
Diffstat (limited to 'libguile/lightening/tests/qdivr_u.c')
-rw-r--r-- | libguile/lightening/tests/qdivr_u.c | 31 |
1 files changed, 6 insertions, 25 deletions
diff --git a/libguile/lightening/tests/qdivr_u.c b/libguile/lightening/tests/qdivr_u.c index 30849bd54..e2601933c 100644 --- a/libguile/lightening/tests/qdivr_u.c +++ b/libguile/lightening/tests/qdivr_u.c @@ -1,53 +1,34 @@ #include "test.h" static void -maybe_save(jit_state_t *j, jit_gpr_t reg) -{ - if (jit_gpr_is_callee_save (reg)) - jit_pushr(j, reg); -} - -static void -maybe_restore(jit_state_t *j, jit_gpr_t reg) -{ - if (jit_gpr_is_callee_save (reg)) - jit_popr(j, reg); -} - -static void run_test(jit_state_t *j, uint8_t *arena_base, size_t arena_size) { jit_begin(j, arena_base, arena_size); - maybe_save(j, JIT_V0); - maybe_save(j, JIT_V1); - maybe_save(j, JIT_V2); + size_t align = jit_enter_jit_abi(j, 3, 0, 0); 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_qdivr_u(j, JIT_V1, JIT_V2, JIT_R2, JIT_V0); jit_str(j, JIT_R0, JIT_V1); jit_str(j, JIT_R1, JIT_V2); - maybe_restore(j, JIT_V2); - maybe_restore(j, JIT_V1); - maybe_restore(j, JIT_V0); + jit_leave_jit_abi(j, 3, 0, align); jit_ret(j); 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 QDIV(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) QDIV(-1, -2, 1, 1); |