summaryrefslogtreecommitdiff
path: root/libguile/lightening/tests/qdivr.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/lightening/tests/qdivr.c')
-rw-r--r--libguile/lightening/tests/qdivr.c30
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);