mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 03:30:27 +02:00
Code Activity

Merge remote-tracking branch 'lightening/master'

Browse source
This commit is contained in:
Andy Wingo 2019-05-21 14:00:55 +02:00
commit 2feb4cf419
2 changed files with 9 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/lightening/lightening.h
View file

@ -218,6 +218,8 @@ JIT_API void* jit_end(jit_state_t*, size_t*);
JIT_API void jit_align(jit_state_t*, unsigned);
JIT_API jit_pointer_t jit_address(jit_state_t*);
typedef void (*jit_function_pointer_t)();
JIT_API jit_function_pointer_t jit_address_to_function_pointer(jit_pointer_t);
JIT_API void jit_patch_here(jit_state_t*, jit_reloc_t);
JIT_API void jit_patch_there(jit_state_t*, jit_reloc_t, jit_pointer_t);

8
libguile/lightening/lightening/lightening.c
View file

@ -206,6 +206,12 @@ jit_reset(jit_state_t *_jit)
#endif
}
jit_function_pointer_t
jit_address_to_function_pointer(jit_pointer_t p)
{
return bless_function_pointer(p);
}
void*
jit_end(jit_state_t *_jit, size_t *length)
{
@ -237,7 +243,7 @@ jit_end(jit_state_t *_jit, size_t *length)
clear_literal_pool(_jit->pool);
#endif
return bless_function_pointer(start);
return jit_address_to_function_pointer(start);
}
static int