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

Make jit_align_stack and jit_shrink_stack public

Browse source
This commit is contained in:
Andy Wingo 2019-04-26 10:04:04 +02:00
parent c54c248bc9
commit dc28ac03c1
2 changed files with 5 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lightening.h
View file

@ -226,6 +226,9 @@ JIT_API void jit_patch_there(jit_state_t*, jit_reloc_t, jit_pointer_t);
JIT_API void jit_move_operands (jit_state_t *_jit, jit_operand_t *dst, JIT_API void jit_move_operands (jit_state_t *_jit, jit_operand_t *dst,
jit_operand_t *src, size_t argc); jit_operand_t *src, size_t argc);
JIT_API size_t jit_align_stack (jit_state_t *_jit, size_t expand);
JIT_API void jit_shrink_stack (jit_state_t *_jit, size_t diff);
/* Note that all functions that take jit_operand_t args[] use the args /* Note that all functions that take jit_operand_t args[] use the args
as scratch space while shuffling values into position. */ as scratch space while shuffling values into position. */
JIT_API void jit_calli(jit_state_t *, jit_pointer_t f, JIT_API void jit_calli(jit_state_t *, jit_pointer_t f,

4
lightening/lightening.c
View file

@ -892,7 +892,7 @@ jit_move_operands(jit_state_t *_jit, jit_operand_t *dst, jit_operand_t *src,
apply_addend(_jit, dst[i], src[i]); apply_addend(_jit, dst[i], src[i]);
} }
static size_t size_t
jit_align_stack(jit_state_t *_jit, size_t expand) jit_align_stack(jit_state_t *_jit, size_t expand)
{ {
size_t new_size = _jit->frame_size + expand; size_t new_size = _jit->frame_size + expand;
@ -907,7 +907,7 @@ jit_align_stack(jit_state_t *_jit, size_t expand)
return diff; return diff;
} }
static void void
jit_shrink_stack(jit_state_t *_jit, size_t diff) jit_shrink_stack(jit_state_t *_jit, size_t diff)
{ {
if (diff) if (diff)