pike.git / src / program.c

version» Context lines:

pike.git/src/program.c:1902:    my_yyerror("Got placeholder %s (resolver problem) "    "when indexing a module with %S.",    get_name_of_type (TYPEOF(Pike_sp[-1])), ident);    ret = 0;    }    else {    if(!*module_index_cache)    *module_index_cache = allocate_mapping(10);    mapping_string_insert(*module_index_cache, ident, Pike_sp-1);    ret = mksvaluenode(Pike_sp-1); - #if 0 && defined (COMPILER_DEBUG) -  safe_pike_fprintf (stderr, "Index %S: %O\n", ident, Pike_sp - 1); - #endif +     }    pop_stack();    return ret;    }    pop_stack();    }    }    UNSETJMP(tmp);    }    - #if 0 && defined (COMPILER_DEBUG) -  safe_pike_fprintf (stderr, "Index %S: undefined\n", ident); - #endif +        return 0;   }      struct node_s *resolve_identifier(struct pike_string *ident);      struct node_s *find_module_identifier(struct pike_string *ident,    int see_inherit)   {    struct compilation *c = THIS_COMPILATION;
pike.git/src/program.c:4617:   static void add_compat_event_handler(void)   {    if(Pike_compiler->new_program->event_handler != compat_event_handler)    {    unsigned int e,d;    unsigned char *tmp=(unsigned char *)&Pike_compiler->new_program->event_handler;       for(d=0;d<NUM_PROG_EVENTS;d++) {    /* FIXME: This looks like it might be broken. */    /* Broken how? -Hubbe */ - #ifdef HAVE_COMPUTED_GOTO -  add_to_program(Pike_compiler->new_program->event_handler); - #else /* !HAVE_COMPUTED_GOTO */ +     for(e=0;e<sizeof(Pike_compiler->new_program->event_handler);e++)    add_to_program(tmp[e]); - #endif /* HAVE_COMPUTED_GOTO */ +     }    Pike_compiler->new_program->event_handler=compat_event_handler;    }   }      /**    * Set a callback to be called when this program is cloned.    *    * This function is obsolete; see pike_set_prog_event_callback for    * details.
pike.git/src/program.c:7591:    id = ID_FROM_INT(loc.o->prog, refid);    } while (IDENTIFIER_IS_ALIAS(id->identifier_flags));       if (fake_object.refs != 1) {    Pike_fatal("Lost track of fake object! refs: %d\n",    fake_object.refs);    }       if (loc.o != &fake_object) {    low_object_index_no_free(to, loc.o, refid); - #if 0 && defined (COMPILER_DEBUG) -  safe_pike_fprintf (stderr, "low_program_index_no_free1 %O->%S: %O\n", -  what, s, to); - #endif +     return 1;    }    }       if (IDENTIFIER_IS_CONSTANT(id->identifier_flags)) {    if (id->func.const_info.offset >= 0) {    struct program *p2 = PROG_FROM_INT(p, e);    struct svalue *val = &p2->constants[id->func.const_info.offset].sval;    assign_svalue_no_free(to, val);    } else {    /* Prototype constant. */    SET_SVAL(*to, T_INT, NUMBER_NUMBER, integer, 0);    } - #if 0 && defined (COMPILER_DEBUG) -  safe_pike_fprintf (stderr, "low_program_index_no_free2 %O->%S: %O\n", -  what, s, to); - #endif +     return 1;    }    return 0;   }      int program_index_no_free(struct svalue *to, struct svalue *what,    struct svalue *ind)   {    int e;    struct object *parent = NULL;