pike.git / src / program.c

version» Context lines:

pike.git/src/program.c:10218: Inside #if defined(PROFILING)
   new_frame->start_time = get_cpu_time() - Pike_interpreter.unlocked_time;    new_frame->ident = PC_COMPILE_FUN_NUM; /* Fake call of compile(). */   #endif /* PROFILING */    new_frame->next = Pike_fp;    new_frame->current_object = ce;    /* Note: The compilation environment object hangs on this frame,    * so that it will be freed when the frame dies.    */    new_frame->current_program = ce->prog;    add_ref(new_frame->current_program); -  new_frame->context = compilation_program->inherits + inherit; +  new_frame->context = ce->prog->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;
pike.git/src/program.c:10267:    if (linenumber) {    c->lex.current_line = linenumber;    }   }      /* Reverse the effect of enter_compiler().    */   PMOD_EXPORT void exit_compiler(void)   {   #ifdef PIKE_DEBUG -  if ((Pike_fp->current_program != compilation_program) || -  (Pike_fp->fun != PC_COMPILE_FUN_NUM)) { +  if ((Pike_fp->context->prog != compilation_program) || +  (Pike_fp->fun != Pike_fp->context->identifier_level + PC_COMPILE_FUN_NUM)) {    Pike_fatal("exit_compiler(): Frame stack out of whack!\n");    }   #endif /* PIKE_DEBUG */    POP_PIKE_FRAME();   }      /*! @class CompilerState    *!    *! Keeps the state of a single program/class during compilation.    *!