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.206 2000/09/12 14:02:42 grubba Exp $"); + RCSID("$Id: las.c,v 1.207 2000/09/12 14:24:29 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:141: Inside #if defined(PIKE_DEBUG) and #if defined(PIKE_DEBUG)
   fatal("Type of external node is not matching it's identifier.\n");    }   #endif    }    }    }    }       if(d_flag<2) break;    -  if (!(depth & 63)) { -  /* 512 bytes/stack frame should be enough... */ -  check_c_stack(32768); -  +     if(!(depth & 1023))    {    node *q;    for(q=n->parent;q;q=q->parent)    if(q->parent==n)    fatal("Cyclic node structure found.\n");    } -  } +        if(car_is_node(n))    {    /* Check CAR */   #ifdef SHARED_NODES    CAR(n)->parent = n;   #else /* !SHARED_NODES */    if(CAR(n)->parent != n)    fatal("Parent is wrong.\n");   #endif /* SHARED_NODES */