1berry/ruby
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Chain compilation of adjacent instructions

Browse Source
This commit is contained in:
Maxime Chevalier-Boisvert 2020-09-16 13:52:35 -04:00 committed by Alan Wu
parent 7eb192d644
commit 8a5ced8eb5
1 changed files with 43 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

65
ujit_compile.c
View File

@ -109,40 +109,61 @@ ujit_compile_insn(rb_iseq_t *iseq, size_t insn_idx)
uint8_t *code_ptr = &cb->mem_block[cb->write_pos]; uint8_t *code_ptr = &cb->mem_block[cb->write_pos];
//printf("write pos: %ld\n", cb->write_pos); //printf("write pos: %ld\n", cb->write_pos);
int insn = (int)iseq->body->iseq_encoded[insn_idx]; // Get the first opcode in the sequence
int len = insn_len(insn); int first_opcode = (int)iseq->body->iseq_encoded[insn_idx];
//const char* name = insn_name(insn);
//printf("%s\n", name);
// Lookup the codegen function for this instruction
st_data_t st_gen_fn;
int found = rb_st_lookup(gen_fns, insn, &st_gen_fn);
if (!found)
return 0;
codegen_fn gen_fn = (codegen_fn)st_gen_fn;
// Write the pre call bytes
ujit_instr_entry(cb);
// Create codegen context // Create codegen context
ctx_t ctx; ctx_t ctx;
// Set the current PC // For each instruction to compile
ctx.pc = &iseq->body->iseq_encoded[insn_idx]; size_t num_instrs;
for (num_instrs = 0;; ++num_instrs)
{
// Set the current PC
ctx.pc = &iseq->body->iseq_encoded[insn_idx];
// Call the code generation function // Get the current opcode
gen_fn(cb, &ctx); int opcode = ctx_get_opcode(&ctx);
//const char* name = insn_name(insn);
//printf("%s\n", name);
// Lookup the codegen function for this instruction
st_data_t st_gen_fn;
int found = rb_st_lookup(gen_fns, opcode, &st_gen_fn);
if (!found)
{
break;
}
// Write the pre call bytes before the first instruction
if (num_instrs == 0)
{
ujit_instr_entry(cb);
}
// Call the code generation function
codegen_fn gen_fn = (codegen_fn)st_gen_fn;
gen_fn(cb, &ctx);
// Move to the next instruction
insn_idx += insn_len(opcode);
}
// If no instructions were compiled
if (num_instrs == 0)
{
return NULL;
}
// Directly return the next PC, which is a constant // Directly return the next PC, which is a constant
void *next_pc = &iseq->body->iseq_encoded[insn_idx + len]; void *next_pc = &iseq->body->iseq_encoded[insn_idx];
mov(cb, RAX, const_ptr_opnd(next_pc)); mov(cb, RAX, const_ptr_opnd(next_pc));
// Write the post call bytes // Write the post call bytes
ujit_instr_exit(cb); ujit_instr_exit(cb);
addr2insn_bookkeeping(code_ptr, insn); addr2insn_bookkeeping(code_ptr, first_opcode);
return code_ptr; return code_ptr;
} }