pike.git / src / interpret.h

version» Context lines:

pike.git/src/interpret.h:627:    Pike_interpreter.accounted_time += self_time; \    /* FIXME: Can context->prog be NULL? */ \    function = _fp_->context->prog->identifiers + _fp_->ident; \    if (!--function->recur_depth) \    function->total_time += time_passed; \    function->self_time += self_time; \    }); \    LOW_POP_PIKE_FRAME (_fp_); \    }while(0)    + #define ASSIGN_CURRENT_STORAGE(VAR, TYPE, INH, EXPECTED_PROGRAM) \ +  do { \ +  int inh__ = (INH); \ +  DO_IF_DEBUG( \ +  struct program *prog__ = (EXPECTED_PROGRAM); \ +  if ((inh__ < 0) || \ +  (inh__ >= Pike_fp->context->prog->num_inherits)) \ +  Pike_fatal("Inherit #%d out of range [0..%d]\n", \ +  inh__, Pike_fp->context->prog->num_inherits-1); \ +  if (prog__ && (Pike_fp->context[inh__].prog != prog__)) \ +  Pike_fatal("Inherit #%d has wrong program %p != %p.\n", \ +  Pike_fp->context[inh__].prog, prog__); \ +  ); \ +  VAR = ((TYPE *)(Pike_fp->current_object->storage + \ +  Pike_fp->context[inh__].storage_offset)); \ +  } while(0)    -  +    enum apply_type   {    APPLY_STACK, /* The function is the first argument */    APPLY_SVALUE, /* arg1 points to an svalue containing the function */    APPLY_SVALUE_STRICT, /* Like APPLY_SVALUE, but does not return values for void functions */    APPLY_LOW /* arg1 is the object pointer,(int)arg2 the function */   };      #define APPLY_MASTER(FUN,ARGS) \   do{ \