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.308 2002/11/19 14:00:18 mast Exp $ + || $Id: las.c,v 1.309 2002/11/21 11:36:30 grubba Exp $   */      #include "global.h" - RCSID("$Id: las.c,v 1.308 2002/11/19 14:00:18 mast Exp $"); + RCSID("$Id: las.c,v 1.309 2002/11/21 11:36:30 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:574:       for(tmp2=node_s_blocks;tmp2;tmp2=tmp2->next) e+=tmp2->used;    if(e)    {    int e2=e;    struct node_s_block *nextblk;    for(tmp2=node_s_blocks;tmp2;tmp2=nextblk)    {    int n = tmp2->used;    nextblk = tmp2->next; +  /* We want to be able to access the token field of all +  * the blocks... +  */ +  PIME_MEM_RW(&tmp2->x, sizeof(tmp2->x));    for(e=0;n && e<NODES;e++)    {    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,