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 = caller->blocks.at(index); if(!vmm) { vmm = cm->formalize(state); if(caller->type) { vmm->specialize(state, caller->type); } caller->blocks[index] = vmm; vmm->set_parent(caller); } be->scope(state, call_frame->promote_scope(state)); be->top_scope(state, call_frame->top_scope(state)); be->method(state, cm); be->module(state, call_frame->module()); be->local_count(state, cm->local_count()); be->vmm = vmm; BlockExecutor native = reinterpret_cast<BlockExecutor>(vmm->native_function); if(native) { be->execute = native; } else { be->execute = &BlockEnvironment::execute_interpreter; } return be; }
BlockEnvironment* BlockEnvironment::under_call_frame(STATE, CompiledCode* ccode, MachineCode* caller) { MachineCode* mcode = ccode->machine_code(); if(!mcode) { OnStack<1> os(state, ccode); mcode = ccode->internalize(state); if(!mcode) { Exception::internal_error(state, "invalid bytecode method"); return 0; } } BlockEnvironment* be = state->memory()->new_object<BlockEnvironment>(state, G(blokenv)); CallFrame* call_frame = state->vm()->call_frame(); be->scope(state, call_frame->promote_scope(state)); be->top_scope(state, call_frame->top_scope(state)); be->compiled_code(state, ccode); be->constant_scope(state, call_frame->constant_scope()); be->module(state, call_frame->module()); return be; }
BlockEnvironment* BlockEnvironment::under_call_frame(STATE, GCToken gct, CompiledCode* ccode, MachineCode* caller, CallFrame* call_frame) { MachineCode* mcode = ccode->machine_code(); if(!mcode) { OnStack<1> os(state, ccode); state->set_call_frame(call_frame); mcode = ccode->internalize(state, gct); if(!mcode) { Exception::internal_error(state, call_frame, "invalid bytecode method"); return 0; } } mcode->set_parent(caller); BlockEnvironment* be = state->new_object_dirty<BlockEnvironment>(G(blokenv)); be->scope(state, call_frame->promote_scope(state)); be->top_scope(state, call_frame->top_scope(state)); be->compiled_code(state, ccode); be->module(state, call_frame->module()); be->metadata_container(state, nil<Tuple>()); return be; }
BlockEnvironment* BlockEnvironment::dup(STATE) { BlockEnvironment* be = state->new_object_dirty<BlockEnvironment>(G(blokenv)); be->scope(state, scope_); be->top_scope(state, top_scope_); be->compiled_code(state, compiled_code_); be->module(state, nil<Module>()); return be; }
BlockEnvironment* BlockEnvironment::dup(STATE) { BlockEnvironment* be = state->memory()->new_object<BlockEnvironment>(state, G(blokenv)); be->scope(state, scope()); be->top_scope(state, top_scope()); be->compiled_code(state, compiled_code()); be->constant_scope(state, constant_scope()); be->module(state, nil<Module>()); return be; }
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; }