pike.git / src / interpreter.h

version» Context lines:

pike.git/src/interpreter.h:187:    /* Make it look like a function. */    sp[-1].subtype = pike_trampoline_program->lfuns[LFUN_CALL];    sp[-1].type = T_FUNCTION;    print_return_value();    break;    }          /* The not so basic 'push value' instructions */    CASE(F_GLOBAL); +  {    low_object_index_no_free(sp,    fp->current_object,    GET_ARG() + fp->context.identifier_level);    sp++;    print_return_value(); -  +  }    break;       CASE(F_EXTERNAL);    {    struct inherit *inherit;    struct program *p;    struct object *o;    INT32 i,id=GET_ARG();       inherit=&fp->context;
pike.git/src/interpreter.h:241:    i=inherit->parent_identifier;    o=inherit->parent;    }       if(!o)    error("Parent was lost during cloning.\n");       if(!(p=o->prog))    error("Attempting to access variable in destructed object\n");    + #ifdef DEBUG_MALLOC +  if (p->refs == 0x55555555) { +  fprintf(stderr, "The program %p has been zapped!\n", p); +  debug_malloc_dump_references(p); +  fprintf(stderr, "Which taken from the object %p\n", o); +  debug_malloc_dump_references(o); +  fatal("Looks like the program %p has been zapped!\n", p); +  } + #endif /* DEBUG_MALLOC */ +     inherit=INHERIT_FROM_INT(p, i);    -  + #ifdef DEBUG_MALLOC +  if (inherit->storage_offset == 0x55555555) { +  fprintf(stderr, "The inherit %p has been zapped!\n", inherit); +  debug_malloc_dump_references(inherit); +  fprintf(stderr, "It was extracted from the program %p %d\n", p, i); +  debug_malloc_dump_references(p); +  fprintf(stderr, "Which was in turn taken from the object %p\n", o); +  debug_malloc_dump_references(o); +  fatal("Looks like the program %p has been zapped!\n", p); +  } + #endif /* DEBUG_MALLOC */ +     if(!accumulator) break;    --accumulator;    }       low_object_index_no_free(sp,    o,    id + inherit->identifier_level);    sp++;    print_return_value();    break;