diff options
Diffstat (limited to 'libguile/jit.c')
-rw-r--r-- | libguile/jit.c | 31 |
1 files changed, 20 insertions, 11 deletions
diff --git a/libguile/jit.c b/libguile/jit.c index 3cb3ddd26..04e28101b 100644 --- a/libguile/jit.c +++ b/libguile/jit.c @@ -61,32 +61,32 @@ compile_call_label (scm_jit_state *j, uint32_t a, uint32_t b, int32_t offset) } static void -compile_tail_call (scm_jit_state *j, uint32_t a) +compile_tail_call (scm_jit_state *j) { } static void -compile_tail_call_label (scm_jit_state *j, uint32_t a, int32_t offset) +compile_tail_call_label (scm_jit_state *j, int32_t offset) { } static void -compile_tail_call_shuffle (scm_jit_state *j, uint32_t a) +compile_receive (scm_jit_state *j, uint16_t dst, uint16_t a, uint32_t b) { } static void -compile_receive (scm_jit_state *j, uint16_t dst, uint16_t a, uint32_t b) +compile_receive_values (scm_jit_state *j, uint32_t a, uint8_t b, uint32_t c) { } static void -compile_receive_values (scm_jit_state *j, uint32_t a, uint8_t b, uint32_t c) +compile_shuffle_down (scm_jit_state *j, uint16_t from, uint16_t to) { } static void -compile_return_values (scm_jit_state *j, uint32_t a) +compile_return_values (scm_jit_state *j) { } @@ -111,11 +111,6 @@ compile_compose_continuation (scm_jit_state *j, uint32_t a) } static void -compile_tail_apply (scm_jit_state *j) -{ -} - -static void compile_call_cc (scm_jit_state *j) { } @@ -191,6 +186,11 @@ compile_assert_nargs_ee_locals (scm_jit_state *j, uint16_t a, uint16_t b) } static void +compile_expand_apply_argument (scm_jit_state *j) +{ +} + +static void compile_bind_kwargs (scm_jit_state *j, uint32_t a, uint8_t b, uint32_t c, uint32_t d, int32_t offset) { } @@ -917,6 +917,8 @@ compile_f64_set (scm_jit_state *j, uint8_t a, uint8_t b, uint8_t c) COMPILE_X8_C12_C12 (j, comp) #define COMPILE_X8_S12_S12(j, comp) \ COMPILE_X8_C12_C12 (j, comp) +#define COMPILE_X8_F12_F12(j, comp) \ + COMPILE_X8_C12_C12 (j, comp) #define COMPILE_X8_S12_Z12(j, comp) \ { \ @@ -953,6 +955,13 @@ compile_f64_set (scm_jit_state *j, uint8_t a, uint8_t b, uint8_t c) j->ip += 2; \ } +#define COMPILE_X32__L32(j, comp) \ + { \ + int32_t a = j->ip[1]; \ + comp (j, a); \ + j->ip += 1; \ + } + #define COMPILE_X8_C24__L32(j, comp) \ { \ uint32_t a; \ |