aboutsummaryrefslogtreecommitdiff
path: root/src/compile/compile.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/compile/compile.c')
-rw-r--r--src/compile/compile.c182
1 files changed, 153 insertions, 29 deletions
diff --git a/src/compile/compile.c b/src/compile/compile.c
index c9c7652..e741a0f 100644
--- a/src/compile/compile.c
+++ b/src/compile/compile.c
@@ -650,8 +650,15 @@ static void compile_sti32(struct ejit_func *f, jit_state_t *j,
static void compile_sti64(struct ejit_func *f, jit_state_t *j,
struct ejit_insn i)
{
+#if __WORDSIZE == 64
jit_gpr_t r0 = getloc(f, j, i.r0, 0);
jit_sti_l(j, i.p, r0);
+#else
+ (void)f;
+ (void)j;
+ (void)i;
+ assert(0 && "trying to compile sti64 on 32bit arch");
+#endif
}
static void compile_stif(struct ejit_func *f, jit_state_t *j,
@@ -695,9 +702,16 @@ static void compile_stxi32(struct ejit_func *f, jit_state_t *j,
static void compile_stxi64(struct ejit_func *f, jit_state_t *j,
struct ejit_insn i)
{
+#if __WORDSIZE == 64
jit_gpr_t r0 = getloc(f, j, i.r0, 0);
jit_gpr_t r1 = getloc(f, j, i.r1, 1);
jit_stxi_l(j, i.o, r1, r0);
+#else
+ (void)f;
+ (void)j;
+ (void)i;
+ assert(0 && "trying to compile stxi64 on 32bit arch");
+#endif
}
static void compile_stxif(struct ejit_func *f, jit_state_t *j,
@@ -746,10 +760,17 @@ static void compile_stxr32(struct ejit_func *f, jit_state_t *j,
static void compile_stxr64(struct ejit_func *f, jit_state_t *j,
struct ejit_insn i)
{
+#if __WORDSIZE == 64
jit_gpr_t r0 = getloc(f, j, i.r0, 0);
jit_gpr_t r1 = getloc(f, j, i.r1, 1);
jit_gpr_t r2 = getloc(f, j, i.r2, 2);
jit_stxr_l(j, r2, r1, r0);
+#else
+ (void)f;
+ (void)j;
+ (void)i;
+ assert(0 && "trying to compile stxr64 on 32bit arch");
+#endif
}
static void compile_stxrf(struct ejit_func *f, jit_state_t *j,
@@ -789,17 +810,31 @@ static void compile_ldiu16(struct ejit_func *f, jit_state_t *j,
static void compile_ldiu32(struct ejit_func *f, jit_state_t *j,
struct ejit_insn i)
{
+#if __WORDSIZE == 64
jit_gpr_t r0 = getgpr(f, i.r0, 0);
jit_ldi_ui(j, r0, i.p);
putloc(f, j, i.r0, r0);
+#else
+ (void)f;
+ (void)j;
+ (void)i;
+ assert(0 && "trying to compile ldiu32 on 32bit arch");
+#endif
}
static void compile_ldiu64(struct ejit_func *f, jit_state_t *j,
struct ejit_insn i)
{
+#if __WORDSIZE == 64
jit_gpr_t r0 = getgpr(f, i.r0, 0);
jit_ldi_l(j, r0, i.p);
putloc(f, j, i.r0, r0);
+#else
+ (void)f;
+ (void)j;
+ (void)i;
+ assert(0 && "trying to compile ldiu64 on 32bit arch");
+#endif
}
static void compile_ldif(struct ejit_func *f, jit_state_t *j,
@@ -845,9 +880,16 @@ static void compile_ldi32(struct ejit_func *f, jit_state_t *j,
static void compile_ldi64(struct ejit_func *f, jit_state_t *j,
struct ejit_insn i)
{
+#if __WORDSIZE == 64
jit_gpr_t r0 = getgpr(f, i.r0, 0);
jit_ldi_l(j, r0, i.p);
putloc(f, j, i.r0, r0);
+#else
+ (void)f;
+ (void)j;
+ (void)i;
+ assert(0 && "trying to compile ldi64 on 32bit arch");
+#endif
}
static void compile_ldxiu8(struct ejit_func *f, jit_state_t *j,
@@ -871,19 +913,33 @@ static void compile_ldxiu16(struct ejit_func *f, jit_state_t *j,
static void compile_ldxiu32(struct ejit_func *f, jit_state_t *j,
struct ejit_insn i)
{
+#if __WORDSIZE == 64
jit_gpr_t r0 = getgpr(f, i.r0, 0);
jit_gpr_t r1 = getloc(f, j, i.r1, 1);
jit_ldxi_ui(j, r0, r1, i.o);
putloc(f, j, i.r0, r0);
+#else
+ (void)f;
+ (void)j;
+ (void)i;
+ assert(0 && "trying to compile ldxiu32 on 32bit arch");
+#endif
}
static void compile_ldxiu64(struct ejit_func *f, jit_state_t *j,
struct ejit_insn i)
{
+#if __WORDSIZE == 64
jit_gpr_t r0 = getgpr(f, i.r0, 0);
jit_gpr_t r1 = getloc(f, j, i.r1, 1);
jit_ldxi_l(j, r0, r1, i.o);
putloc(f, j, i.r0, r0);
+#else
+ (void)f;
+ (void)j;
+ (void)i;
+ assert(0 && "trying to compile ldxiu64 on 32bit arch");
+#endif
}
static void compile_ldxif(struct ejit_func *f, jit_state_t *j,
@@ -934,10 +990,17 @@ static void compile_ldxi32(struct ejit_func *f, jit_state_t *j,
static void compile_ldxi64(struct ejit_func *f, jit_state_t *j,
struct ejit_insn i)
{
+#if __WORDSIZE == 64
jit_gpr_t r0 = getgpr(f, i.r0, 0);
jit_gpr_t r1 = getloc(f, j, i.r1, 1);
jit_ldxi_l(j, r0, r1, i.o);
putloc(f, j, i.r0, r0);
+#else
+ (void)f;
+ (void)j;
+ (void)i;
+ assert(0 && "trying to compile ldxi64 on 32bit arch");
+#endif
}
static void compile_ldxru8(struct ejit_func *f, jit_state_t *j,
@@ -963,21 +1026,35 @@ static void compile_ldxru16(struct ejit_func *f, jit_state_t *j,
static void compile_ldxru32(struct ejit_func *f, jit_state_t *j,
struct ejit_insn i)
{
+#if __WORDSIZE == 64
jit_gpr_t r0 = getgpr(f, i.r0, 0);
jit_gpr_t r1 = getloc(f, j, i.r1, 1);
jit_gpr_t r2 = getloc(f, j, i.r2, 2);
jit_ldxr_ui(j, r0, r1, r2);
putloc(f, j, i.r0, r0);
+#else
+ (void)f;
+ (void)j;
+ (void)i;
+ assert(0 && "trying to compile ldxru32 on 32bit arch");
+#endif
}
static void compile_ldxru64(struct ejit_func *f, jit_state_t *j,
struct ejit_insn i)
{
+#if __WORDSIZE == 64
jit_gpr_t r0 = getgpr(f, i.r0, 0);
jit_gpr_t r1 = getloc(f, j, i.r1, 1);
jit_gpr_t r2 = getloc(f, j, i.r2, 2);
jit_ldxr_l(j, r0, r1, r2);
putloc(f, j, i.r0, r0);
+#else
+ (void)f;
+ (void)j;
+ (void)i;
+ assert(0 && "trying to compile ldxru64 on 32bit arch");
+#endif
}
static void compile_ldxr8(struct ejit_func *f, jit_state_t *j,
@@ -1013,11 +1090,18 @@ static void compile_ldxr32(struct ejit_func *f, jit_state_t *j,
static void compile_ldxr64(struct ejit_func *f, jit_state_t *j,
struct ejit_insn i)
{
+#if __WORDSIZE == 64
jit_gpr_t r0 = getgpr(f, i.r0, 0);
jit_gpr_t r1 = getloc(f, j, i.r1, 1);
jit_gpr_t r2 = getloc(f, j, i.r2, 2);
jit_ldxr_l(j, r0, r1, r2);
putloc(f, j, i.r0, r0);
+#else
+ (void)f;
+ (void)j;
+ (void)i;
+ assert(0 && "trying to compile ldxr64 on 32bit arch");
+#endif
}
static void compile_ldxrf(struct ejit_func *f, jit_state_t *j,
@@ -1097,10 +1181,17 @@ static void compile_extr16(struct ejit_func *f, jit_state_t *j,
static void compile_extr32(struct ejit_func *f, jit_state_t *j,
struct ejit_insn i)
{
+#if __WORDSIZE == 64
jit_gpr_t r0 = getgpr(f, i.r0, 0);
jit_gpr_t r1 = getloc(f, j, i.r1, 1);
jit_extr_i(j, r0, r1);
putloc(f, j, i.r0, r0);
+#else
+ (void)f;
+ (void)j;
+ (void)i;
+ assert(0 && "trying to compile extr32 on 32bit arch");
+#endif
}
static void compile_extru8(struct ejit_func *f, jit_state_t *j,
@@ -1124,10 +1215,17 @@ static void compile_extru16(struct ejit_func *f, jit_state_t *j,
static void compile_extru32(struct ejit_func *f, jit_state_t *j,
struct ejit_insn i)
{
+#if __WORDSIZE == 64
jit_gpr_t r0 = getgpr(f, i.r0, 0);
jit_gpr_t r1 = getloc(f, j, i.r1, 1);
jit_extr_ui(j, r0, r1);
putloc(f, j, i.r0, r0);
+#else
+ (void)f;
+ (void)j;
+ (void)i;
+ assert(0 && "trying to compile extru32 on 32bit arch");
+#endif
}
static void compile_extrf(struct ejit_func *f, jit_state_t *j,
@@ -1151,10 +1249,17 @@ static void compile_extrd(struct ejit_func *f, jit_state_t *j,
static void compile_truncr_d_64(struct ejit_func *f, jit_state_t *j,
struct ejit_insn i)
{
+#if __WORDSIZE == 64
jit_gpr_t r0 = getgpr(f, i.r0, 0);
jit_fpr_t r1 = getloc_d(f, j, i.r1, 1);
jit_truncr_d_l(j, r0, r1);
putloc(f, j, i.r0, r0);
+#else
+ (void)f;
+ (void)j;
+ (void)i;
+ assert(0 && "trying to compile truncr_d_64 on 32bit arch");
+#endif
}
static void compile_truncr_d_32(struct ejit_func *f, jit_state_t *j,
@@ -1174,10 +1279,17 @@ static void compile_truncr_d_32(struct ejit_func *f, jit_state_t *j,
static void compile_truncr_f_64(struct ejit_func *f, jit_state_t *j,
struct ejit_insn i)
{
+#if __WORDSIZE == 64
jit_gpr_t r0 = getgpr(f, i.r0, 0);
jit_fpr_t r1 = getloc_f(f, j, i.r1, 1);
jit_truncr_f_l(j, r0, r1);
putloc(f, j, i.r0, r0);
+#else
+ (void)f;
+ (void)j;
+ (void)i;
+ assert(0 && "trying to compile truncr_f_64 on 32bit arch");
+#endif
}
static void compile_truncr_f_32(struct ejit_func *f, jit_state_t *j,
@@ -1645,9 +1757,7 @@ static void compile_retval_f(struct ejit_func *f, jit_state_t *j,
struct ejit_insn i)
{
jit_fpr_t r0 = getfpr(f, i.r0, 0);
- jit_retval_d(j, r0);
- /* convert double to float */
- jit_extr_d_f(j, r0, r0);
+ jit_retval_f(j, r0);
putloc_f(f, j, i.r0, r0);
}
@@ -1734,6 +1844,8 @@ static void compile_imm_call(jit_state_t *j, struct operands *src, struct operan
/* note, do not fix up destination! */
/* remember to move all operands */
jit_move_operands(j, dst->buf, src->buf, movec * 2);
+
+ jit_movr(j, JIT_R0, JIT_SP);
jit_calli(j, addr, argc, args);
jit_shrink_stack(j, fixup);
@@ -1814,6 +1926,8 @@ static size_t compile_fn_body(struct ejit_func *f, jit_state_t *j, void *arena,
struct addrs addrs = addrs_create();
addrs_reserve(&addrs, insns_len(&f->insns));
+ void *call = NULL;
+
size_t label = 0;
foreach_vec(ii, f->insns) {
/* if we've hit a label, add it to our vector of label addresses */
@@ -2072,32 +2186,27 @@ static size_t compile_fn_body(struct ejit_func *f, jit_state_t *j, void *arena,
break;
}
- case ESCAPEI: {
- save_caller_save_regs(f, j);
-
- jit_operand_t args[2] = {
- jit_operand_imm(JIT_OPERAND_ABI_WORD,
- operands_len(&src) / 2),
- jit_operand_gpr(JIT_OPERAND_ABI_POINTER, JIT_SP)
- };
- compile_imm_call(j, &src, &dst, (void *)i.o, 2, args);
- restore_caller_save_regs(f, j);
-
- operands_reset(&src);
- operands_reset(&dst);
- operands_reset(&direct);
- break;
- }
+ case ESCAPEI_L:
+#if __WORDSIZE == 64
+ /* fallthrough */
+#else
+ assert(0 && "trying to compile escapei_l on 32bit arch");
+ break;
+#endif
- case ESCAPEI_F: {
+ case ESCAPEI_D:
+ case ESCAPEI_F:
+ case ESCAPEI_I: {
save_caller_save_regs(f, j);
jit_operand_t args[2] = {
jit_operand_imm(JIT_OPERAND_ABI_WORD,
operands_len(&src) / 2),
- jit_operand_gpr(JIT_OPERAND_ABI_POINTER, JIT_SP)
+ /* compile_imm_call populates JIT_R0 with the
+ * argument stack address */
+ jit_operand_gpr(JIT_OPERAND_ABI_POINTER, JIT_R0)
};
- compile_imm_call(j, &src, &dst, (void *)i.o, 2, args);
+ compile_imm_call(j, &src, &dst, (void *)(uintptr_t)i.o, 2, args);
restore_caller_save_regs(f, j);
operands_reset(&src);
@@ -2106,10 +2215,21 @@ static size_t compile_fn_body(struct ejit_func *f, jit_state_t *j, void *arena,
break;
}
- case CALLI: {
+ case CALLI_L:
+#if __WORDSIZE == 64
+ call = ejit_run_func_l; goto calli;
+#else
+ assert(0 && "trying to compile calli_l on 32bit arch");
+ break;
+#endif
+
+ case CALLI_F: { call = ejit_run_func_f; goto calli; }
+ case CALLI_D: { call = ejit_run_func_d; goto calli; }
+ case CALLI_I: { call = ejit_run_func_i; goto calli;
+calli:
save_caller_save_regs(f, j);
- struct ejit_func *f = (struct ejit_func *)i.o;
+ struct ejit_func *f = (struct ejit_func *)(uintptr_t)i.o;
if (f && f->direct_call) {
jit_calli(j, f->direct_call, operands_len(&direct), direct.buf);
restore_caller_save_regs(f, j);
@@ -2124,9 +2244,11 @@ static size_t compile_fn_body(struct ejit_func *f, jit_state_t *j, void *arena,
jit_operand_imm(JIT_OPERAND_ABI_POINTER, i.o),
jit_operand_imm(JIT_OPERAND_ABI_WORD,
operands_len(&src) / 2),
- jit_operand_gpr(JIT_OPERAND_ABI_POINTER, JIT_SP)
+ /* compile_imm_call populates JIT_R0 with the
+ * argument stack address */
+ jit_operand_gpr(JIT_OPERAND_ABI_POINTER, JIT_R0)
};
- compile_imm_call(j, &src, &dst, ejit_run_func, 3, args);
+ compile_imm_call(j, &src, &dst, call, 3, args);
restore_caller_save_regs(f, j);
operands_reset(&src);
@@ -2151,8 +2273,7 @@ static size_t compile_fn_body(struct ejit_func *f, jit_state_t *j, void *arena,
case RETR_F: {
jit_fpr_t r = getloc_f(f, j, i.r1, 0);
- /* convert float to double so the return types match */
- jit_extr_f_d(j, JIT_F0, r);
+ jit_movr_f(j, JIT_F0, r);
jit_shrink_stack(j, stack);
jit_leave_jit_abi(j, gprs, fprs, frame);
jit_retr_f(j, JIT_F0);
@@ -2319,7 +2440,10 @@ bool ejit_compile(struct ejit_func *f, bool use_64)
while (1) {
arena = alloc_arena(size);
- assert(arena);
+ if (arena == (void *)(-1)) {
+ jit_destroy_state(j);
+ return false;
+ }
size_t required_size = compile_fn_body(f, j, arena, size);
if (required_size == 0)
generated by cgit v1.2.3 (git 2.39.1) at 2025-04-04 20:29:54 +0000