mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 14:00:21 +02:00
Code Activity

Merge branch 'fix-tail-call-test' into 'master'

Browse source 
Ensure tail caller and callee in jmpi test have compatible ABI

See merge request wingo/lightening!8
This commit is contained in:
Andy Wingo 2020-07-30 10:01:28 +00:00
commit 7b4840d7df
1 changed files with 26 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

32
tests/jmpi.c
View file

@ -1,21 +1,41 @@
#include "test.h"
static int tail(void) { return 42; }
void *tail;
static void *target;
static void
run_test(jit_state_t *j, uint8_t *arena_base, size_t arena_size)
{
jit_begin(j, arena_base, arena_size);
jit_jmpi(j, tail);
jit_enter_jit_abi(j, 0, 0, 0);
jit_movi(j, JIT_R0, 42);
jit_jmpi(j, target);
// Unreachable.
jit_breakpoint(j);
int (*f)(void) = jit_end(j, NULL);
ASSERT(f() == 42);
}
// Make the tail-call target via a separate main_helper because probably the new
// arena will be allocated farther away, forcing nonlocal jumps.
static void
make_target(jit_state_t *j, uint8_t *arena_base, size_t arena_size)
{
jit_begin(j, arena_base, arena_size);
size_t align = jit_enter_jit_abi(j, 0, 0, 0);
// Tail call target assumes tail caller called enter_jit_abi with compatible
// parameters.
target = jit_address(j);
jit_leave_jit_abi(j, 0, 0, align);
jit_retr(j, JIT_R0);
jit_end(j, NULL);
main_helper(0, NULL, run_test);
}
int
main (int argc, char *argv[])
{
return main_helper(argc, argv, run_test);
return main_helper(argc, argv, make_target);
}