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.   \*/   /**/   #include "global.h" - RCSID("$Id: las.c,v 1.295 2002/06/25 14:26:40 grubba Exp $"); + RCSID("$Id: las.c,v 1.296 2002/08/12 20:19:08 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:899:    return res;       case 2:    res=mkefuncallnode("column",mknode(F_ARG_LIST,copy_node(CAR(a)),b));    free_node(a);    return res;       case 3:    return mkefuncallnode("`[]",mknode(F_ARG_LIST,a,b));    } +  break; +  + #ifdef PIKE_DEBUG +  case F_CAST: +  case F_SOFT_CAST: +  fatal("Attempt to create a cast-node with mknode()!\n"); +  case F_CONSTANT: +  fatal("Attempt to create an F_CONSTANT-node with mknode()!\n"); +  case F_LOCAL: +  fatal("Attempt to create an F_LOCAL-node with mknode()!\n"); +  case F_IDENTIFIER: +  fatal("Attempt to create an F_IDENTIFIER-node with mknode()!\n"); +  case F_TRAMPOLINE: +  fatal("Attempt to create an F_TRAMPOLINE-node with mknode()!\n"); +  case F_EXTERNAL: +  fatal("Attempt to create an F_EXTERNAL-node with mknode()!\n"); + #endif /* PIKE_DEBUG */    }      #if defined(PIKE_DEBUG) && !defined(SHARED_NODES)    if(b && a==b)    fatal("mknode: a and be are the same!\n"); -  if ((token == F_CAST) || (token == F_SOFT_CAST)) -  fatal("Attempt to create a cast-node with mknode()!\n"); +    #endif       check_tree(a,0);    check_tree(b,0);       res = mkemptynode();    _CAR(res) = dmalloc_touch(node *, a);    _CDR(res) = dmalloc_touch(node *, b);    res->node_info = 0;    res->tree_info = 0;