summaryrefslogtreecommitdiff
path: root/libguile/lightening/tests/qdivr_u.c
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2019-04-28 13:53:16 +0200
committerAndy Wingo <wingo@pobox.com>2019-04-28 13:53:16 +0200
commit51618e7e8399c7aa2571d0be8e469e09e1c6a970 (patch)
treecbc62c41730a648860f57fc455aeee72ded71629 /libguile/lightening/tests/qdivr_u.c
parent14e64a8b57ff0abb9140db37268ca24fe4980cd0 (diff)
parent04cd8874de9713e53e9e0cfe5c0195bd356ebe8e (diff)
downloadguile-51618e7e8399c7aa2571d0be8e469e09e1c6a970.tar.gz
Merge from upstream lightening
Diffstat (limited to 'libguile/lightening/tests/qdivr_u.c')
-rw-r--r--libguile/lightening/tests/qdivr_u.c31
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);