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.151 1999/12/26 18:54:57 grubba Exp $"); + RCSID("$Id: las.c,v 1.152 1999/12/27 22:47:13 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:3338: Inside #if defined(SHARED_NODES) && !defined(IN_TPIKE)
      free_node(n);    return n2;   }   #endif /* SHARED_NODES && !IN_TPIKE */      static void optimize(node *n)   {    node *tmp1, *tmp2, *tmp3;    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))    {    CAR(n)->parent = n;    n = CAR(n);    continue;    }    if(cdr_is_node(n) &&
pike.git/src/las.c:3380:   #endif /* !IN_TPIKE */    if (n->node_info & OPT_OPTIMIZED) {    /* No need to check this node any more. */    n = n->parent;    continue;    }    }   #endif /* SHARED_NODES && !IN_TPIKE */       lex.current_line = n->line_number; + #ifdef PIKE_DEBUG +  lex.current_file = n->current_file; + #endif /* PIKE_DEBUG */    -  +     n->tree_info = n->node_info;    if(car_is_node(n)) n->tree_info |= CAR(n)->tree_info;    if(cdr_is_node(n)) n->tree_info |= CDR(n)->tree_info;       if(!n->parent) break;       if(n->tree_info & (OPT_NOT_CONST|    OPT_SIDE_EFFECT|    OPT_EXTERNAL_DEPEND|    OPT_ASSIGNMENT))
pike.git/src/las.c:3516: Inside #if defined(PIKE_DEBUG)
   print_tree(n);    }   #endif    continue;       }   #endif /* !IN_TPIKE */    n->node_info |= OPT_OPTIMIZED;    n=n->parent;    }while(n); +     lex.current_line = save_line; -  + #ifdef PIKE_DEBUG +  lex.current_file = save_file; + #endif /* PIKE_DEBUG */   }      struct timer_oflo   {    INT32 counter;    int yes;   };      static void check_evaluation_time(struct callback *cb,void *tmp,void *ignored)   {