mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-05-13 17:20:21 +02:00
f348b8ed6d
This improves integration with other projects. Like for example Guile already has files named jit.c and jit.h; it's easier to manage if lightening uses its own file names.
42 lines
1.2 KiB
C
42 lines
1.2 KiB
C
#include <stdio.h>
|
|
#include <stdlib.h>
|
|
#include <sys/mman.h>
|
|
|
|
#include <lightening.h>
|
|
|
|
#define ASSERT(x) \
|
|
do { \
|
|
if (!(x)) { \
|
|
fprintf(stderr, "%s:%d: assertion failed: " #x "\n", \
|
|
__FILE__, __LINE__); \
|
|
abort(); \
|
|
} \
|
|
} while (0)
|
|
|
|
static inline int
|
|
main_helper (int argc, char *argv[],
|
|
void (*run_test)(jit_state_t*, uint8_t*, size_t))
|
|
{
|
|
ASSERT(init_jit());
|
|
jit_state_t *j = jit_new_state();
|
|
ASSERT(j);
|
|
|
|
const size_t arena_size = 4096;
|
|
char *arena_base = mmap (NULL, arena_size,
|
|
PROT_EXEC | PROT_READ | PROT_WRITE,
|
|
MAP_PRIVATE | MAP_ANONYMOUS, -1, 0);
|
|
|
|
if (arena_base == MAP_FAILED)
|
|
{
|
|
perror ("allocating JIT code buffer failed");
|
|
return 1;
|
|
}
|
|
|
|
run_test(j, (uint8_t*)arena_base, arena_size);
|
|
|
|
jit_destroy_state(j);
|
|
|
|
munmap(arena_base, arena_size);
|
|
|
|
return 0;
|
|
}
|