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