CompiledCode* UnMarshaller::get_compiled_code() {
size_t ver;
stream >> ver;
CompiledCode* code = CompiledCode::create(state);
code->metadata(state, unmarshal());
code->primitive(state, force_as<Symbol>(unmarshal()));
code->name(state, force_as<Symbol>(unmarshal()));
code->iseq(state, force_as<InstructionSequence>(unmarshal()));
code->stack_size(state, force_as<Fixnum>(unmarshal()));
code->local_count(state, force_as<Fixnum>(unmarshal()));
code->required_args(state, force_as<Fixnum>(unmarshal()));
code->post_args(state, force_as<Fixnum>(unmarshal()));
code->total_args(state, force_as<Fixnum>(unmarshal()));
code->splat(state, force_as<Fixnum>(unmarshal()));
code->literals(state, force_as<Tuple>(unmarshal()));
code->lines(state, force_as<Tuple>(unmarshal()));
code->file(state, force_as<Symbol>(unmarshal()));
code->local_names(state, force_as<Tuple>(unmarshal()));
code->post_marshal(state);
return code;
}
CompiledCode* UnMarshaller::get_cmethod() {
size_t ver;
stream >> ver;
CompiledCode* cm = CompiledCode::create(state);
cm->metadata(state, unmarshal());
cm->primitive(state, (Symbol*)unmarshal());
cm->name(state, (Symbol*)unmarshal());
cm->iseq(state, (InstructionSequence*)unmarshal());
cm->stack_size(state, (Fixnum*)unmarshal());
cm->local_count(state, (Fixnum*)unmarshal());
cm->required_args(state, (Fixnum*)unmarshal());
cm->post_args(state, (Fixnum*)unmarshal());
cm->total_args(state, (Fixnum*)unmarshal());
cm->splat(state, unmarshal());
cm->literals(state, (Tuple*)unmarshal());
cm->lines(state, (Tuple*)unmarshal());
cm->file(state, (Symbol*)unmarshal());
cm->local_names(state, (Tuple*)unmarshal());
cm->post_marshal(state);
return cm;
}
CompiledCode* create_compiled_code() {
CompiledCode* code = CompiledCode::create(state);
code->iseq(state, InstructionSequence::create(state, 1));
code->iseq()->opcodes()->put(state, 0, Fixnum::from(InstructionSequence::insn_ret));
code->stack_size(state, Fixnum::from(10));
code->total_args(state, Fixnum::from(0));
code->required_args(state, code->total_args());
code->formalize(state);
return code;
}
void CompiledCode::Info::show(STATE, Object* self, int level) {
CompiledCode* code = as<CompiledCode>(self);
class_header(state, self);
indent_attribute(++level, "file"); code->file()->show(state, level);
indent_attribute(level, "iseq"); code->iseq()->show(state, level);
indent_attribute(level, "lines"); code->lines()->show_simple(state, level);
indent_attribute(level, "literals"); code->literals()->show_simple(state, level);
indent_attribute(level, "local_count"); code->local_count()->show(state, level);
indent_attribute(level, "local_names"); code->local_names()->show_simple(state, level);
indent_attribute(level, "name"); code->name()->show(state, level);
indent_attribute(level, "required_args"); code->required_args()->show(state, level);
indent_attribute(level, "scope"); code->scope()->show(state, level);
indent_attribute(level, "splat"); code->splat()->show(state, level);
indent_attribute(level, "stack_size"); code->stack_size()->show(state, level);
indent_attribute(level, "total_args"); code->total_args()->show(state, level);
indent_attribute(level, "internalized");
if(!code->machine_code_) {
std::cout << "no\n";
} else {
std::cout << "yes\n";
#ifdef ENABLE_LLVM
MachineCode* v = code->machine_code();
for(int i = 0; i < MachineCode::cMaxSpecializations; i++) {
if(!v->specializations[i].jit_data) continue;
llvm::Function* func = v->specializations[i].jit_data->llvm_function();
llvm::outs() << "<LLVM>\n"
<< *func
<< "</LLVM>\n<MachineCode>\n";
LLVMState::show_machine_code(
v->specializations[i].jit_data->native_func(),
v->specializations[i].jit_data->native_size());
llvm::outs() << "</MachineCode>\n";
}
#endif
}
close_body(level);
}
