pike.git / src / las.c

version» Context lines:

pike.git/src/las.c:1:   /*   || This file is part of Pike. For copyright information see COPYRIGHT.   || Pike is distributed under GPL, LGPL and MPL. See the file COPYING   || for more information. - || $Id: las.c,v 1.428 2008/07/14 21:44:25 grubba Exp $ + || $Id: las.c,v 1.429 2008/07/15 09:05:07 grubba Exp $   */      #include "global.h"   #include "interpret.h"   #include "las.h"   #include "array.h"   #include "object.h"   #include "stralloc.h"   #include "dynamic_buffer.h"   #include "lex.h"
pike.git/src/las.c:46:      int cumulative_parse_error=0;   extern char *get_type_name(int);      #define MAX_GLOBAL 2048      /* #define yywarning my_yyerror */      int car_is_node(node *n)   { +  if (!_CAR(n)) return 0;    switch(n->token)    {    case F_EXTERNAL:    case F_GET_SET:    case F_IDENTIFIER:    case F_TRAMPOLINE:    case F_CONSTANT:    case F_LOCAL:    case F_THIS:    case F_VERSION:    return 0;       default: -  return !!_CAR(n); +  return 1;    }   }      int cdr_is_node(node *n)   { -  +  if (!_CDR(n)) return 0;    switch(n->token)    {    case F_EXTERNAL:    case F_GET_SET:    case F_IDENTIFIER:    case F_TRAMPOLINE:    case F_CONSTANT:    case F_LOCAL:    case F_THIS:    case F_VERSION:    return 0;       default: -  return !!_CDR(n); +  return 1;    }   }      int node_is_leaf(node *n)   {    switch(n->token)    {    case F_EXTERNAL:    case F_GET_SET:    case F_IDENTIFIER:
pike.git/src/las.c:352:    free_type(b);    }    return a;    }    return b;   }      int check_tailrecursion(void)   {    int e; -  if (Pike_compiler->compiler_frame->lexical_scope & SCOPE_SCOPE_USED)) { +  if (Pike_compiler->compiler_frame->lexical_scope & SCOPE_SCOPE_USED) {    /* There might be a lambda around that has references to the old context    * in which case we can't reuse it with a tail-recursive call.    */    return 0;    }    if(debug_options & NO_TAILRECURSION) return 0;    for(e=0;e<Pike_compiler->compiler_frame->max_number_of_locals;e++)    {    if(!pike_type_allow_premature_toss(    Pike_compiler->compiler_frame->variable[e].type))