diff options
Diffstat (limited to 'libguile/lightening/tests/str_f.c')
-rw-r--r-- | libguile/lightening/tests/str_f.c | 35 |
1 files changed, 35 insertions, 0 deletions
diff --git a/libguile/lightening/tests/str_f.c b/libguile/lightening/tests/str_f.c new file mode 100644 index 000000000..167fac038 --- /dev/null +++ b/libguile/lightening/tests/str_f.c @@ -0,0 +1,35 @@ +#include "test.h" + +static float data[] = { -1.0, 0.0, 0.5 }; + +static void +run_test(jit_state_t *j, uint8_t *arena_base, size_t arena_size) +{ + jit_begin(j, arena_base, arena_size); + + const jit_arg_abi_t abi[] = { JIT_ARG_ABI_POINTER, JIT_ARG_ABI_FLOAT }; + jit_arg_t args[2]; + const jit_anyreg_t regs[] = { { .gpr=JIT_R0 }, { .fpr=JIT_F0 } }; + + jit_receive(j, 2, abi, args); + jit_load_args(j, 2, abi, args, regs); + + jit_str_f(j, JIT_R0, JIT_F0); + jit_ret(j); + + void (*f)(void*, float) = jit_end(j, NULL); + + ASSERT(data[0] == -1.0f); + ASSERT(data[1] == 0.0f); + ASSERT(data[2] == 0.5f); + f(&data[1], 42.5f); + ASSERT(data[0] == -1.0f); + ASSERT(data[1] == 42.5f); + ASSERT(data[2] == 0.5f); +} + +int +main (int argc, char *argv[]) +{ + return main_helper(argc, argv, run_test); +} |