pike.git / src / program.c

version» Context lines:

pike.git/src/program.c:3087:    yywarning("%S is private but not used anywhere.",    ID_FROM_PTR(p, ref)->name);    }    }       /* Set the PROGRAM_LIVE_OBJ flag by looking for _destruct() and    * inherited PROGRAM_LIVE_OBJ flags. This is done at fixation time    * to allow the user to set and clear that flag while the program is    * being built. */    if (!(p->flags & PROGRAM_LIVE_OBJ)) { -  int e, destruct = p->lfuns[LFUN__DESTRUCT]; +  int e, destruct = QUICK_FIND_LFUN(p, LFUN__DESTRUCT);    if (destruct > -1) {    struct identifier *id = ID_FROM_INT (p, destruct);    if (!IDENTIFIER_IS_PIKE_FUNCTION (id->identifier_flags) ||    id->func.offset != -1) {    /* Got a _destruct function that isn't a prototype. */    p->flags |= PROGRAM_LIVE_OBJ;    goto program_live_obj_set;    }    }   
pike.git/src/program.c:4631:    debug_malloc_touch(Pike_compiler->fake_object->storage);       init_name = lfun_strings[LFUN___INIT];       /* Collect references to inherited __INIT functions */    if (!(Pike_compiler->new_program->flags & PROGRAM_AVOID_CHECK)) {    for(e=Pike_compiler->new_program->num_inherits-1;e;e--)    {    int id;    if(Pike_compiler->new_program->inherits[e].inherit_level!=1) continue; -  id = Pike_compiler->new_program->inherits[e].prog->lfuns[LFUN___INIT]; +  id = QUICK_FIND_LFUN(Pike_compiler->new_program->inherits[e].prog, +  LFUN___INIT);    id = really_low_reference_inherited_identifier(0, e, id);    if(id!=-1)    {    Pike_compiler->init_node=mknode(F_COMMA_EXPR,    mkcastnode(void_type_string,    mkapplynode(mkidentifiernode(id),0)),    Pike_compiler->init_node);    }    }    }