pike.git / src / interpret.c

version» Context lines:

pike.git/src/interpret.c:546: Inside #if defined(PIKE_DEBUG)
   p->parent ? p->parent->id : -1);    for(e=0;e<p->num_identifier_references;e++)    {    in=INHERIT_FROM_INT(p,e);    while(last < in)    {    last++;    fprintf(stderr,    "[%ld]%*s parent{ offset=%d ident=%d id=%d } "    "id{ level=%d } prog=%d\n", -  DO_NOT_WARN((long)(last - p->inherits)), +  (long)(last - p->inherits),    last->inherit_level*2,"",    last->parent_offset,    last->parent_identifier,    last->prog->parent ? last->prog->parent->id : -1,    last->identifier_level,    last->prog->id);    i=0;    }       fprintf(stderr," %*s %d,%d: %s\n",
pike.git/src/interpret.c:595:    * struct object *o // object containing the scope.    * struct inherit *inherit // inherit in o->prog being the scope.    * int parent_identifier // identifier in o from the inherit.    */   PMOD_EXPORT void find_external_context(struct external_variable_context *loc,    int depth)   {    struct program *p;       TRACE((4, "-find_external_context(%d, inherit=%ld)\n", depth, -  DO_NOT_WARN((long)(loc->o->prog ? loc->inherit - loc->o->prog->inherits : 0)))); +  (long)(loc->o->prog ? loc->inherit - loc->o->prog->inherits : 0)));      #ifdef PIKE_DEBUG    if(!loc->o)    Pike_fatal("No object\n");   #endif       if (!(p = loc->o->prog)) {    /* magic fallback */    p = get_program_for_object_being_destructed(loc->o);    if(!p)
pike.git/src/interpret.c:770:    }    else    /* Return a valid pointer to a dummy inherit for the convenience    * of the caller. Identifier offsets will be bogus but it'll    * never get to that since the object is destructed. */    loc->inherit = &dummy_inherit;       TRACE((5,"- Parent identifier = %d (%s), inherit # = %ld\n",    loc->parent_identifier,    p ? ID_FROM_INT(p, loc->parent_identifier)->name->str : "N/A", -  p ? DO_NOT_WARN((long)(loc->inherit - p->inherits)) : -1)); +  p ? (long)(loc->inherit - p->inherits) : -1));      #ifdef DEBUG_MALLOC    if (p && loc->inherit->storage_offset == 0x55555555) {    fprintf(stderr, "The inherit %p has been zapped!\n", loc->inherit);    debug_malloc_dump_references(loc->inherit,0,2,0);    fprintf(stderr, "It was extracted from the program %p %d\n", p, loc->parent_identifier);    describe(p);    fprintf(stderr, "Which was in turn taken from the object %p\n", loc->o);    describe(loc->o);    Pike_fatal("Looks like the program %p has been zapped!\n", p);
pike.git/src/interpret.c:1061:    (long)backlog[e].arg2);    }    else if(instrs[backlog[e].instruction].flags & I_POINTER)    {    fprintf(stderr,"(%+ld)", (long)backlog[e].arg);    }    else if(instrs[backlog[e].instruction].flags & I_HASARG)    {    fprintf(stderr,"(%ld)", (long)backlog[e].arg);    } -  fprintf(stderr," %ld, %ld\n", -  DO_NOT_WARN((long)backlog[e].stack), -  DO_NOT_WARN((long)backlog[e].mark_stack)); +  fprintf(stderr," %ld, %ld\n", (long)backlog[e].stack, +  (long)backlog[e].mark_stack);   #endif /* HAVE_COMPUTED_GOTO */    free_string(file);    }    }while(e!=backlogp);   }      #else /* PIKE_DEBUG */      #define DEBUG_LOG_ARG(arg) 0   #define DEBUG_LOG_ARG2(arg2) 0
pike.git/src/interpret.c:1843:   }      static void do_trace_func_return (int got_retval, struct object *o, int fun)   {    dynamic_buffer save_buf;    init_buf (&save_buf);    if (o) {    if (o->prog) {    struct identifier *id = ID_FROM_INT (o->prog, fun);    char buf[50]; -  sprintf(buf, "%lx->", DO_NOT_WARN((long) PTR_TO_INT (o))); +  sprintf(buf, "%lx->", (long) PTR_TO_INT (o));    my_strcat(buf);    if (id->name->size_shift)    my_strcat ("[widestring function name]");    else    my_strcat(id->name->str);    my_strcat ("() ");    }    else    my_strcat ("function in destructed object ");    }
pike.git/src/interpret.c:2072: Inside #if defined(PROFILING)
   fprintf(stderr, "%p{: Push at %" PRINT_CPU_TIME    " %" PRINT_CPU_TIME "\n",    Pike_interpreter.thread_state, new_frame->start_time,    new_frame->children_base);    });   #endif    new_frame->next = Pike_fp;    add_ref(new_frame->current_object = o);    add_ref(new_frame->current_program = p);    new_frame->context = context; -  new_frame->fun = DO_NOT_WARN((unsigned INT16)fun); +  new_frame->fun = (unsigned INT16)fun;    new_frame->expendible = new_frame->locals = save_sp;    new_frame->args = args;    new_frame->save_sp = save_sp;      #ifdef PIKE_DEBUG    if (Pike_in_gc > GC_PASS_PREPARE && Pike_in_gc < GC_PASS_FREE)    Pike_fatal("Pike code called within gc.\n");   #endif       Pike_fp = new_frame;
pike.git/src/interpret.c:2117:    PIKE_FN_START(function->name->size_shift == 0 ?    function->name->str : "[widestring fn name]",    obj_name.str);    }    if(UNLIKELY(Pike_interpreter.trace_level))    {    dynamic_buffer save_buf;    char buf[50];       init_buf(&save_buf); -  sprintf(buf, "%lx->", DO_NOT_WARN((long) PTR_TO_INT (o))); +  sprintf(buf, "%lx->", (long) PTR_TO_INT (o));    my_strcat(buf);    if (function->name->size_shift)    my_strcat ("[widestring function name]");    else    my_strcat(function->name->str);    do_trace_call(args, &save_buf);    }    if( type == IDENTIFIER_C_FUNCTION )    {    new_frame->num_args = args;