1
Fork 0
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:
Andy Wingo 2019-03-26 11:16:17 +01:00
parent afd32134f0
commit c6067dd8cb
9 changed files with 202 additions and 0 deletions

22
tests/ldi_c.c Normal file
View 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
View 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
View 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
View 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
View 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
View 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
View 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
View 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
View 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);
}