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.292 2002/06/03 12:25:18 grubba Exp $"); + RCSID("$Id: las.c,v 1.293 2002/06/06 16:26:00 mast 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:365:    }    return 1;   }         #define NODES 128 /* 256 */      #undef BLOCK_ALLOC_NEXT   #define BLOCK_ALLOC_NEXT u.node.a    + #undef PRE_INIT_BLOCK + #define PRE_INIT_BLOCK(NODE) do { \ +  NODE->token = USHRT_MAX; \ +  } while (0) +    BLOCK_ALLOC(node_s, NODES)      #undef BLOCK_ALLOC_NEXT   #define BLOCK_ALLOC_NEXT next      #ifdef SHARED_NODES      struct node_hash_table node_hash;      static INLINE size_t hash_node(node *n)
pike.git/src/las.c:568:       for(tmp2=node_s_blocks;tmp2;tmp2=tmp2->next) e+=NODES;    for(tmp=free_node_ss;tmp;tmp=_CAR(tmp)) e--;    if(e)    {    int e2=e;    for(tmp2=node_s_blocks;tmp2;tmp2=tmp2->next)    {    for(e=0;e<NODES;e++)    { -  for(tmp=free_node_ss;tmp;tmp=_CAR(tmp)) -  if(tmp==tmp2->x+e) -  break; -  -  if(!tmp) +  if (tmp2->x[e].token != USHRT_MAX)    {    tmp=tmp2->x+e;   #ifdef PIKE_DEBUG    if(!cumulative_parse_error)    {    fprintf(stderr,"Free node at %p, (%s:%d) (token=%d).\n",    (void *)tmp, tmp->current_file->str, tmp->line_number,    tmp->token);       debug_malloc_dump_references(tmp,0,2,0);