7 growable_byte_array code;
8 growable_byte_array relocation;
9 growable_array literals;
10 bool computing_offset_p;
15 explicit jit(cell jit_type, cell owner, factor_vm *vm);
16 void compute_position(cell offset);
18 void emit_relocation(cell code_template);
19 void emit(cell code_template);
21 void literal(cell literal) { literals.add(literal); }
22 void emit_with(cell code_template_, cell literal_);
24 void push(cell literal) {
25 emit_with(parent->userenv[JIT_PUSH_IMMEDIATE],literal);
28 void word_jump(cell word_) {
29 gc_root<word> word(word_,parent);
30 literal(tag_fixnum(xt_tail_pic_offset));
31 literal(word.value());
32 emit(parent->userenv[JIT_WORD_JUMP]);
35 void word_call(cell word) {
36 emit_with(parent->userenv[JIT_WORD_CALL],word);
39 void word_special(cell word) {
40 emit_with(parent->userenv[JIT_WORD_SPECIAL],word);
43 void emit_subprimitive(cell word_) {
44 gc_root<word> word(word_,parent);
45 gc_root<array> code_pair(word->subprimitive,parent);
46 literals.append(parent->untag<array>(array_nth(code_pair.untagged(),0)));
47 emit(array_nth(code_pair.untagged(),1));
50 void emit_class_lookup(fixnum index, cell type);
52 fixnum get_position() {
53 if(computing_offset_p)
55 /* If this is still on, emit() didn't clear it,
56 so the offset was out of bounds */
63 void set_position(fixnum position_) {
64 if(computing_offset_p)
69 code_block *to_code_block();