mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-06-06 12:10:28 +02:00
Add ldi tests
This commit is contained in:
parent
afd32134f0
commit
c6067dd8cb
9 changed files with 202 additions and 0 deletions
22
tests/ldi_c.c
Normal file
22
tests/ldi_c.c
Normal file
|
@ -0,0 +1,22 @@
|
||||||
|
#include "test.h"
|
||||||
|
|
||||||
|
static uint8_t data[] = { 0xff, 0x00, 0x42 };
|
||||||
|
|
||||||
|
static void
|
||||||
|
run_test(jit_state_t *j, uint8_t *arena_base, size_t arena_size)
|
||||||
|
{
|
||||||
|
jit_begin(j, arena_base, arena_size);
|
||||||
|
|
||||||
|
jit_ldi_c(j, JIT_R0, &data[0]);
|
||||||
|
jit_retr(j, JIT_R0);
|
||||||
|
|
||||||
|
uintmax_t (*f)(void) = jit_end(j, NULL);
|
||||||
|
|
||||||
|
ASSERT(f() == -1);
|
||||||
|
}
|
||||||
|
|
||||||
|
int
|
||||||
|
main (int argc, char *argv[])
|
||||||
|
{
|
||||||
|
return main_helper(argc, argv, run_test);
|
||||||
|
}
|
22
tests/ldi_d.c
Normal file
22
tests/ldi_d.c
Normal file
|
@ -0,0 +1,22 @@
|
||||||
|
#include "test.h"
|
||||||
|
|
||||||
|
static double data = -1.5;
|
||||||
|
|
||||||
|
static void
|
||||||
|
run_test(jit_state_t *j, uint8_t *arena_base, size_t arena_size)
|
||||||
|
{
|
||||||
|
jit_begin(j, arena_base, arena_size);
|
||||||
|
|
||||||
|
jit_ldi_d(j, JIT_F0, &data);
|
||||||
|
jit_retr_d(j, JIT_F0);
|
||||||
|
|
||||||
|
double (*f)(void) = jit_end(j, NULL);
|
||||||
|
|
||||||
|
ASSERT(f() == data);
|
||||||
|
}
|
||||||
|
|
||||||
|
int
|
||||||
|
main (int argc, char *argv[])
|
||||||
|
{
|
||||||
|
return main_helper(argc, argv, run_test);
|
||||||
|
}
|
22
tests/ldi_f.c
Normal file
22
tests/ldi_f.c
Normal file
|
@ -0,0 +1,22 @@
|
||||||
|
#include "test.h"
|
||||||
|
|
||||||
|
static float data = -1.5f;
|
||||||
|
|
||||||
|
static void
|
||||||
|
run_test(jit_state_t *j, uint8_t *arena_base, size_t arena_size)
|
||||||
|
{
|
||||||
|
jit_begin(j, arena_base, arena_size);
|
||||||
|
|
||||||
|
jit_ldi_f(j, JIT_F0, &data);
|
||||||
|
jit_retr_f(j, JIT_F0);
|
||||||
|
|
||||||
|
float (*f)(void) = jit_end(j, NULL);
|
||||||
|
|
||||||
|
ASSERT(f() == data);
|
||||||
|
}
|
||||||
|
|
||||||
|
int
|
||||||
|
main (int argc, char *argv[])
|
||||||
|
{
|
||||||
|
return main_helper(argc, argv, run_test);
|
||||||
|
}
|
22
tests/ldi_i.c
Normal file
22
tests/ldi_i.c
Normal file
|
@ -0,0 +1,22 @@
|
||||||
|
#include "test.h"
|
||||||
|
|
||||||
|
static uint32_t data = 0xffffffff;
|
||||||
|
|
||||||
|
static void
|
||||||
|
run_test(jit_state_t *j, uint8_t *arena_base, size_t arena_size)
|
||||||
|
{
|
||||||
|
jit_begin(j, arena_base, arena_size);
|
||||||
|
|
||||||
|
jit_ldi_i(j, JIT_R0, &data);
|
||||||
|
jit_retr(j, JIT_R0);
|
||||||
|
|
||||||
|
uintmax_t (*f)(void) = jit_end(j, NULL);
|
||||||
|
|
||||||
|
ASSERT(f() == -1);
|
||||||
|
}
|
||||||
|
|
||||||
|
int
|
||||||
|
main (int argc, char *argv[])
|
||||||
|
{
|
||||||
|
return main_helper(argc, argv, run_test);
|
||||||
|
}
|
24
tests/ldi_l.c
Normal file
24
tests/ldi_l.c
Normal file
|
@ -0,0 +1,24 @@
|
||||||
|
#include "test.h"
|
||||||
|
|
||||||
|
static uint64_t data = 0xffffffffffffffff;
|
||||||
|
|
||||||
|
static void
|
||||||
|
run_test(jit_state_t *j, uint8_t *arena_base, size_t arena_size)
|
||||||
|
{
|
||||||
|
#if __WORDSIZE > 32
|
||||||
|
jit_begin(j, arena_base, arena_size);
|
||||||
|
|
||||||
|
jit_ldi_l(j, JIT_R0, &data);
|
||||||
|
jit_retr(j, JIT_R0);
|
||||||
|
|
||||||
|
uintmax_t (*f)(void) = jit_end(j, NULL);
|
||||||
|
|
||||||
|
ASSERT(f() == -1);
|
||||||
|
#endif
|
||||||
|
}
|
||||||
|
|
||||||
|
int
|
||||||
|
main (int argc, char *argv[])
|
||||||
|
{
|
||||||
|
return main_helper(argc, argv, run_test);
|
||||||
|
}
|
22
tests/ldi_s.c
Normal file
22
tests/ldi_s.c
Normal file
|
@ -0,0 +1,22 @@
|
||||||
|
#include "test.h"
|
||||||
|
|
||||||
|
static uint16_t data = 0xffff;
|
||||||
|
|
||||||
|
static void
|
||||||
|
run_test(jit_state_t *j, uint8_t *arena_base, size_t arena_size)
|
||||||
|
{
|
||||||
|
jit_begin(j, arena_base, arena_size);
|
||||||
|
|
||||||
|
jit_ldi_s(j, JIT_R0, &data);
|
||||||
|
jit_retr(j, JIT_R0);
|
||||||
|
|
||||||
|
uintmax_t (*f)(void) = jit_end(j, NULL);
|
||||||
|
|
||||||
|
ASSERT(f() == -1);
|
||||||
|
}
|
||||||
|
|
||||||
|
int
|
||||||
|
main (int argc, char *argv[])
|
||||||
|
{
|
||||||
|
return main_helper(argc, argv, run_test);
|
||||||
|
}
|
22
tests/ldi_uc.c
Normal file
22
tests/ldi_uc.c
Normal file
|
@ -0,0 +1,22 @@
|
||||||
|
#include "test.h"
|
||||||
|
|
||||||
|
static uint8_t data[] = { 0xff, 0x00, 0x42 };
|
||||||
|
|
||||||
|
static void
|
||||||
|
run_test(jit_state_t *j, uint8_t *arena_base, size_t arena_size)
|
||||||
|
{
|
||||||
|
jit_begin(j, arena_base, arena_size);
|
||||||
|
|
||||||
|
jit_ldi_uc(j, JIT_R0, data);
|
||||||
|
jit_retr(j, JIT_R0);
|
||||||
|
|
||||||
|
uintmax_t (*f)(void) = jit_end(j, NULL);
|
||||||
|
|
||||||
|
ASSERT(f() == 0xff);
|
||||||
|
}
|
||||||
|
|
||||||
|
int
|
||||||
|
main (int argc, char *argv[])
|
||||||
|
{
|
||||||
|
return main_helper(argc, argv, run_test);
|
||||||
|
}
|
24
tests/ldi_ui.c
Normal file
24
tests/ldi_ui.c
Normal file
|
@ -0,0 +1,24 @@
|
||||||
|
#include "test.h"
|
||||||
|
|
||||||
|
static uint32_t data[] = { 0xffffffff, 0x00000000, 0x42424242 };
|
||||||
|
|
||||||
|
static void
|
||||||
|
run_test(jit_state_t *j, uint8_t *arena_base, size_t arena_size)
|
||||||
|
{
|
||||||
|
#if __WORDSIZE > 32
|
||||||
|
jit_begin(j, arena_base, arena_size);
|
||||||
|
|
||||||
|
jit_ldi_ui(j, JIT_R0, data);
|
||||||
|
jit_retr(j, JIT_R0);
|
||||||
|
|
||||||
|
uintmax_t (*f)(void) = jit_end(j, NULL);
|
||||||
|
|
||||||
|
ASSERT(f() == data[0]);
|
||||||
|
#endif
|
||||||
|
}
|
||||||
|
|
||||||
|
int
|
||||||
|
main (int argc, char *argv[])
|
||||||
|
{
|
||||||
|
return main_helper(argc, argv, run_test);
|
||||||
|
}
|
22
tests/ldi_us.c
Normal file
22
tests/ldi_us.c
Normal file
|
@ -0,0 +1,22 @@
|
||||||
|
#include "test.h"
|
||||||
|
|
||||||
|
static uint16_t data[] = { 0xffff, 0x0000, 0x4242 };
|
||||||
|
|
||||||
|
static void
|
||||||
|
run_test(jit_state_t *j, uint8_t *arena_base, size_t arena_size)
|
||||||
|
{
|
||||||
|
jit_begin(j, arena_base, arena_size);
|
||||||
|
|
||||||
|
jit_ldi_us(j, JIT_R0, data);
|
||||||
|
jit_retr(j, JIT_R0);
|
||||||
|
|
||||||
|
uintmax_t (*f)(void) = jit_end(j, NULL);
|
||||||
|
|
||||||
|
ASSERT(f() == data[0]);
|
||||||
|
}
|
||||||
|
|
||||||
|
int
|
||||||
|
main (int argc, char *argv[])
|
||||||
|
{
|
||||||
|
return main_helper(argc, argv, run_test);
|
||||||
|
}
|
Loading…
Add table
Add a link
Reference in a new issue