pike.git / src / las.c

version» Context lines:

pike.git/src/las.c:5158:   }      int dooptcode(struct pike_string *name,    node *n,    struct pike_type *type,    int modifiers)   {    union idptr tmp;    int args, vargs, ret;    struct svalue *foo; + #ifdef PIKE_DEBUG +  struct compilation *c = THIS_COMPILATION; + #endif       CHECK_COMPILER();       optimize_node(n);       check_tree(n, 0);      #ifdef PIKE_DEBUG -  if(a_flag > 1) +  if((a_flag > 1) || (c->lex.pragmas & ID_DISASSEMBLE))    fprintf(stderr, "Doing function '%s' at %lx\n", name->str,    DO_NOT_WARN((unsigned long)PIKE_PC));   #endif       args=count_arguments(type);    if(args < 0)    {    args=~args;    vargs=IDENTIFIER_VARARGS;    }else{
pike.git/src/las.c:5220:    if((foo=is_stupid_func(n, args, vargs, type)))    {    if(TYPEOF(*foo) == T_FUNCTION && SUBTYPEOF(*foo) == FUNCTION_BUILTIN)    {    tmp.c_fun=foo->u.efun->function;    if(tmp.c_fun != f_destruct &&    tmp.c_fun != f_this_object &&    tmp.c_fun != f_backtrace)    {   #ifdef PIKE_DEBUG -  struct compilation *c = THIS_COMPILATION; -  +     if(a_flag > 1)    fprintf(stderr,"%s:%ld: IDENTIFIER OPTIMIZATION %s == %s\n",    c->lex.current_file->str,    (long)c->lex.current_line,    name->str,    foo->u.efun->name->str);   #endif    ret=define_function(name,    type,    (unsigned INT16)modifiers,