pike.git / src / program.c

version» Context lines:

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,