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.265 2001/08/16 04:38:51 mast Exp $"); + RCSID("$Id: las.c,v 1.266 2001/09/24 16:50:58 grubba 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:4685: Inside #if defined(SHARED_NODES) && !defined(IN_TPIKE)
   }   #endif /* PIKE_DEBUG */       free_node(n);    return n2;   }   #endif /* SHARED_NODES && !IN_TPIKE */      static void optimize(node *n)   { + #ifndef IN_TPIKE    node *tmp1, *tmp2, *tmp3; -  + #endif /* !IN_TPIKE */    INT32 save_line = lex.current_line;   #ifdef PIKE_DEBUG    struct pike_string *save_file = lex.current_file;   #endif /* PIKE_DEBUG */       do    {    if(car_is_node(n) &&    ((CAR(n)->node_info & (OPT_OPTIMIZED|OPT_DEFROSTED)) != OPT_OPTIMIZED))    {
pike.git/src/las.c:5161:    if(n->token==F_ARG_LIST)    return is_null_branch(CAR(n)) && is_null_branch(CDR(n));    return 0;   }      static struct svalue *is_stupid_func(node *n,    int args,    int vargs,    struct pike_type *type)   { -  node *a,*b; +     int tmp;    while(1)    {    if(!n) return 0;       if(n->token == F_ARG_LIST)    {    if(is_null_branch(CAR(n)))    n=CDR(n);    else