msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

bugfixes in the JIT compiler for x86_64. One of the fixes is actually in GNU lightning

Browse Source
This commit is contained in:
krasimir
2015-07-16 15:21:09 +00:00
parent 05146d567d
commit 2b52a1a2ea
2 changed files with 12 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
src/runtime/c/pgf/jit.c
View File

@@ -707,19 +707,20 @@ pgf_jit_function(PgfReader* rdr, PgfAbstr* abstr,
#ifdef PGF_JIT_DEBUG
gu_printf(out, err, "CASE %s %03d\n", id, target);
#endif
jit_insn *jump =
jit_bnei_p(jit_forward(), JIT_RET, jit_forward());
PgfSegmentPatch label_patch;
label_patch.segment = target;
label_patch.ref = jump;
label_patch.is_abs = false;
gu_buf_push(rdr->jit_state->segment_patches, PgfSegmentPatch, label_patch);
jit_insn *ref1 =
jit_movi_p(JIT_R1, jit_forward());
PgfCallPatch call_patch;
call_patch.cid = id;
call_patch.ref = jump-6;
call_patch.ref = ref1;
gu_buf_push(rdr->jit_state->call_patches, PgfCallPatch, call_patch);
jit_insn *ref2 =
jit_bner_p(jit_forward(), JIT_RET, JIT_R1);
PgfSegmentPatch label_patch;
label_patch.segment = target;
label_patch.ref = ref2;
label_patch.is_abs = false;
gu_buf_push(rdr->jit_state->segment_patches, PgfSegmentPatch, label_patch);
break;
}
case PGF_INSTR_CASE_LIT: {

3
src/runtime/c/pgf/lightning/i386/core-64.h
View File

@@ -123,8 +123,7 @@ struct jit_local_state {
/* No. Need value in a register */ \
: (jit_movi_l(JIT_REXTMP, is), \
jit_addr_l(d, rs, JIT_REXTMP))) \
/* No. Do nothing. */ \
: 0)
: jit_movr_l(d, rs))
#define jit_addr_l(d, s1, s2) jit_opo_((d), (s1), (s2), ADDQrr((s2), (d)), ADDQrr((s1), (d)), LEAQmr(0, (s1), (s2), 1, (d)) )
#define jit_addci_l(d, rs, is) jit_qop_ ((d), (rs), (is), ADCQir((is), (d)), ADCQrr(JIT_REXTMP, (d)))
#define jit_addcr_l(d, s1, s2) jit_qopr_((d), (s1), (s2), ADCQrr((s1), (d)), ADCQrr((s2), (d)) )