pike.git / src / las.c

version» Context lines:

pike.git/src/las.c:1:   /*\   ||| This file a part of Pike, and is copyright by Fredrik Hubinette   ||| Pike is distributed as GPL (General Public License)   ||| See the files COPYING and DISCLAIMER for more information.   \*/   /**/   #include "global.h" - RCSID("$Id: las.c,v 1.173 2000/04/01 14:47:16 grubba Exp $"); + RCSID("$Id: las.c,v 1.174 2000/04/06 09:03:59 hubbe Exp $");      #include "language.h"   #include "interpret.h"   #include "las.h"   #include "array.h"   #include "object.h"   #include "stralloc.h"   #include "dynamic_buffer.h"   #include "lex.h"   #include "pike_types.h"
pike.git/src/las.c:3899: Inside #if defined(SHARED_NODES) && !defined(IN_TPIKE) && 0
   /* Try optimizing some more. */    optimize(n);   #endif /* SHARED_NODES && !IN_TPIKE */    n = mknode(F_ARG_LIST,check_node_hash(n),0);       if((foo=is_stupid_func(check_node_hash(n), args, vargs, type)))    {    if(foo->type == T_FUNCTION && foo->subtype==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) +  {    ret=define_function(name,    type,    modifiers,    IDENTIFIER_C_FUNCTION | vargs,    &tmp);    free_node(n);   #ifdef PIKE_DEBUG    if(a_flag > 1) -  fprintf(stderr,"Identifer (C) = %d\n",ret); +  fprintf(stderr,"%s:%d: IDENTIFIER OPTIMIZATION %s == %s\n", +  lex.current_file->str, +  lex.current_line, +  name->str, +  foo->u.efun->name->str);   #endif    return ret;    }    } -  +  }       tmp.offset=PC;    add_to_program(compiler_frame->max_number_of_locals);    add_to_program(args);      #ifdef PIKE_DEBUG    if(a_flag > 2)    {    fprintf(stderr,"Coding: ");    print_tree(check_node_hash(n));