diff options
Diffstat (limited to 'libguile/lightening/tests/qdivr.c')
-rw-r--r-- | libguile/lightening/tests/qdivr.c | 30 |
1 files changed, 6 insertions, 24 deletions
diff --git a/libguile/lightening/tests/qdivr.c b/libguile/lightening/tests/qdivr.c index b4dd8f637..665053c56 100644 --- a/libguile/lightening/tests/qdivr.c +++ b/libguile/lightening/tests/qdivr.c @@ -1,52 +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(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(10, 3, 3, 1); |