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.104 1999/11/12 18:19:42 grubba Exp $"); + RCSID("$Id: las.c,v 1.105 1999/11/12 18:34:56 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:2226: Inside #if defined(PIKE_DEBUG)
   fprintf(stderr,"Optimizing (tree info=%x):",n->tree_info);    print_tree(n);    }   #endif      #ifndef IN_TPIKE    switch(n->token)    {   #include "treeopt.h"    use_car: -  tmp1 = CAR(n); -  ADD_NODE_REF(CAR(n)); +  ADD_NODE_REF2(CAR(n), tmp1 = CAR(n));    goto use_tmp1;       use_cdr: -  tmp1 = CDR(n); -  ADD_NODE_REF(CDR(n)); +  ADD_NODE_REF2(CDR(n), tmp1 = CDR(n));    goto use_tmp1;       zap_node:    tmp1 = 0;    goto use_tmp1;       use_tmp1:   #ifdef PIKE_DEBUG    if (l_flag > 4) {    fprintf(stderr, "Optimized: ");