int compile_blit_mono_inv(int retreg, Cell* args) { compile_arg(JIT_R0, car(args), TAG_BYTES); jit_ldr(JIT_R0, JIT_R0); // load bytes addr stack_push(JIT_R0, &stack_ptr); compile_int_arg(); compile_int_arg(); compile_int_arg(); compile_int_arg(); compile_int_arg(); compile_int_arg(); compile_int_arg(); compile_int_arg(); jit_prepare(); push_stack_arg(); push_stack_arg(); push_stack_arg(); push_stack_arg(); push_stack_arg(); push_stack_arg(); push_stack_arg(); push_stack_arg(); push_stack_arg(); // pop bytes addr jit_finishi(blit_vector1_invert); jit_movi(retreg, 0); return 1; }
void jit_ldrw(int reg) { jit_ldr(reg); }
jit_pointer_t compile(const std::vector<Oper>& ops, jit_word_t *memory, const bool flush = true) { jit_prolog(); jit_movi(JIT_V0, reinterpret_cast<jit_word_t>(memory)); jit_movi(JIT_V1, 0); std::stack<Loop> loops; jit_node_t* start = jit_note(__FILE__, __LINE__); for ( size_t n=0; n<ops.size(); ++n ) { switch ( ops[n].code ) { case '<': jit_str(JIT_V0, JIT_V1); jit_subi(JIT_V0, JIT_V0, ops[n].count * sizeof(jit_word_t)); jit_ldr(JIT_V1, JIT_V0); break; case '>': jit_str(JIT_V0, JIT_V1); jit_addi(JIT_V0, JIT_V0, ops[n].count * sizeof(jit_word_t)); jit_ldr(JIT_V1, JIT_V0); break; case 'z': jit_movi(JIT_V1, 0); break; case '+': jit_addi(JIT_V1, JIT_V1, ops[n].count); break; case '-': jit_subi(JIT_V1, JIT_V1, ops[n].count); break; case '.': jit_prepare(); jit_pushargr(JIT_V1); jit_finishi(reinterpret_cast<jit_pointer_t>(putchar)); if ( flush ) { jit_prepare(); jit_pushargi(reinterpret_cast<jit_word_t>(stdout)); jit_finishi(reinterpret_cast<jit_pointer_t>(fflush)); } break; case ',': jit_prepare(); jit_finishi(reinterpret_cast<jit_pointer_t>(getchar)); jit_retval(JIT_V1); break; case '[': { Loop loop; loop.end = jit_forward(); jit_node_t *j = jit_beqi(JIT_V1, 0); jit_patch_at(j, loop.end); loop.body = jit_label(); loops.push(loop); } break; case ']': { Loop loop = loops.top(); jit_node_t *j = jit_bnei(JIT_V1, 0); jit_patch_at(j, loop.body); jit_link(loop.end); loops.pop(); break; } default: break; } } jit_node_t* stop = jit_note(__FILE__, __LINE__); jit_ret(); jit_epilog(); jit_pointer_t r = jit_emit(); fprintf(stderr, "compiled to %zu bytes\n", (char*)jit_address(stop) - (char*)jit_address(start)); return r; }