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.68 1998/11/07 06:32:18 hubbe Exp $"); + RCSID("$Id: las.c,v 1.69 1998/11/17 22:57:50 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:264:    free((char *)tmp2);    }    free_nodes=0;    cumulative_parse_error=0;    }   }      void free_node(node *n)   {    if(!n) return; + #ifdef DEBUG +  if(l_flag>9) +  print_tree(n); + #endif +     switch(n->token)    {    case USHRT_MAX:    fatal("Freeing node again!\n");    break;       case F_CONSTANT:    free_svalue(&(n->u.sval));    break;   
pike.git/src/las.c:2406:    if(args < 0)    {    args=~args;    vargs=IDENTIFIER_VARARGS;    }else{    vargs=0;    }    if(compiler_pass==1)    {    tmp.offset=-1; + #ifdef DEBUG +  if(a_flag > 4) +  { +  fprintf(stderr,"Making prototype (pass 1) for: "); +  print_tree(n); +  } + #endif    }else{    n=mknode(F_ARG_LIST,n,0);       if((foo=is_stupid_func(n, args, vargs)))    {    if(foo->type == T_FUNCTION && foo->subtype==FUNCTION_BUILTIN)    {    tmp.c_fun=foo->u.efun->function;    ret=define_function(name,    type,