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.171 2000/03/30 08:43:07 hubbe Exp $"); + RCSID("$Id: las.c,v 1.172 2000/03/31 01:54:12 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:1626:   }         static void low_print_tree(node *foo,int needlval)   {    if(!foo) return;    if(l_flag>9)    {    fprintf(stderr, "/*%x*/",foo->tree_info);    } -  switch(foo->token) +  switch(l_flag > 99 ? -1 : foo->token)    {    case USHRT_MAX:    fprintf(stderr, "FREED_NODE");    break;    case F_LOCAL:    if(needlval) fputc('&', stderr);    if(foo->u.integer.b)    {    fprintf(stderr, "$<%ld>%ld",(long)foo->u.integer.b,(long)foo->u.integer.a);    }else{