struct quotation_jit : public jit {
	gc_root<F_ARRAY> array;
	bool compiling, relocate;

	quotation_jit(CELL quot, bool compiling_, bool relocate_)
		: jit(QUOTATION_TYPE,quot),
		  array(owner.as<F_QUOTATION>().untagged()->array),
		  compiling(compiling_),
		  relocate(relocate_) {};

	void emit_mega_cache_lookup(CELL methods, F_FIXNUM index, CELL cache);
	bool primitive_call_p(CELL i);
	bool fast_if_p(CELL i);
	bool fast_dip_p(CELL i);
	bool fast_2dip_p(CELL i);
	bool fast_3dip_p(CELL i);
	bool mega_lookup_p(CELL i);
	bool stack_frame_p();
	void iterate_quotation();
};

void set_quot_xt(F_QUOTATION *quot, F_CODE_BLOCK *code);
void jit_compile(CELL quot, bool relocate);
F_FIXNUM quot_code_offset_to_scan(CELL quot, CELL offset);

PRIMITIVE(jit_compile);

void compile_all_words(void);

PRIMITIVE(array_to_quotation);
PRIMITIVE(quotation_xt);

VM_ASM_API CELL lazy_jit_compile_impl(CELL quot, F_STACK_FRAME *stack);