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.358 2005/02/18 13:49:33 grubba Exp $ + || $Id: las.c,v 1.359 2005/02/18 15:20:20 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:3308:    int ret;       /* Make a temporary node (lval = 0), so that we can use depend_p(). */    ADD_NODE_REF2(lval,    tmp = mknode(F_ASSIGN, mkintnode(0), lval));    ret = depend_p(n, tmp);    free_node(tmp);    return ret;   }    - #if 0 - /* Not used anywhere. */ - /* FIXME: Ought to use parent pointer to avoid recursion. */ - static int cntargs(node *n) - { -  if(!n) return 0; -  switch(n->token) -  { -  case F_CAST: -  case F_SOFT_CAST: -  case F_APPLY: -  return n->type != void_type_string; -  -  case F_POP_VALUE: -  case F_FOREACH: -  case F_LOOP: -  case F_INC_NEQ_LOOP: -  case F_DEC_NEQ_LOOP: -  case F_INC_LOOP: -  case F_DEC_LOOP: return 0; -  -  case F_COMMA_EXPR: -  case F_VAL_LVAL: -  case F_LVALUE_LIST: -  case F_ARG_LIST: -  -  fatal_check_c_stack(16384); -  -  return cntargs(CAR(n))+cntargs(CDR(n)); -  -  /* this might not be true, but it doesn't matter very much */ -  default: return 1; -  } - } - #endif -  +    static int function_type_max=0;      /* FIXME: Ought to use parent pointer to avoid recursion. */   static void low_build_function_type(node *n)   {    if(!n) return;    if(function_type_max++ > 999)    {    reset_type_stack();