BlockEnvironment* BlockEnvironment::dup(STATE) {
BlockEnvironment* be = state->new_object<BlockEnvironment>(G(blokenv));
be->scope(state, scope_);
be->top_scope(state, top_scope_);
be->code(state, code_);
return be;
}
void BlockEnvironment::Info::show(STATE, Object* self, int level) {
BlockEnvironment* be = as<BlockEnvironment>(self);
class_header(state, self);
//indent_attribute(++level, "scope"); be->scope()->show(state, level);
// indent_attribute(level, "top_scope"); be->top_scope()->show(state, level);
indent_attribute(level, "code"); be->code()->show(state, level);
close_body(level);
}
BlockEnvironment* BlockEnvironment::under_call_frame(STATE, CompiledMethod* cm,
VMMethod* caller, CallFrame* call_frame, size_t index)
{
BlockEnvironment* be = state->new_object<BlockEnvironment>(G(blokenv));
VMMethod* vmm = cm->internalize(state);
if(!vmm) {
Exception::internal_error(state, call_frame, "invalid bytecode method");
return 0;
}
vmm->set_parent(caller);
be->scope(state, call_frame->promote_scope(state));
be->top_scope(state, call_frame->top_scope(state));
be->code(state, cm);
be->module(state, call_frame->module());
return be;
}
