pike.git
/
src
/
program.c
version
»
Context lines:
10
20
40
80
file
none
3
pike.git/src/program.c:10391:
add_ref(new_frame->current_program); new_frame->context = compilation_program->inherits + inherit; new_frame->current_storage = ce->storage + new_frame->context->storage_offset; #ifdef PIKE_DEBUG if (new_frame->context->prog != compilation_program) { Pike_fatal("Invalid inherit for compilation context (%p != %p).\n", new_frame->context->prog, compilation_program); } #endif /* PIKE_DEBUG */ new_frame->fun = new_frame->context->identifier_level + PC_COMPILE_FUN_NUM;
-
new_frame->expendible = Pike_sp;
+
new_frame->locals = Pike_sp;
-
new_frame
->save
_sp
=
Pike_sp;
+
frame_set_expendible(
new_frame
, Pike_sp);
+
frame_set_
save_sp
(new_frame,
Pike_sp
)
;
new_frame->save_mark_sp = Pike_mark_sp; new_frame->args = 0; new_frame->num_args = 0; new_frame->num_locals = 0; new_frame->pc = 0; new_frame->return_addr = 0; new_frame->scope = 0;
-
new_frame->save_sp = Pike_sp;
+
new_frame->type = FRAME_C_FUNCTION; new_frame->ptr = NULL; Pike_fp = new_frame; } PMOD_EXPORT void enter_compiler(struct pike_string *filename, INT_TYPE linenumber) { struct object *ce = parent_clone_object(compilation_program, compilation_environment,