pike.git / src / program.c

version» Context lines:

pike.git/src/program.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: program.c,v 1.551 2004/01/19 12:07:01 grubba Exp $ + || $Id: program.c,v 1.552 2004/01/19 12:15:40 grubba Exp $   */      #include "global.h" - RCSID("$Id: program.c,v 1.551 2004/01/19 12:07:01 grubba Exp $"); + RCSID("$Id: program.c,v 1.552 2004/01/19 12:15:40 grubba Exp $");   #include "program.h"   #include "object.h"   #include "dynamic_buffer.h"   #include "pike_types.h"   #include "stralloc.h"   #include "las.h"   #include "language.h"   #include "lex.h"   #include "pike_macros.h"   #include "fsort.h"
pike.git/src/program.c:1197:      /* Funny guys use the uppermost value for nonexistant variables and    the like. Hence -2 and not -1. Y2K. */   #define FOO(NUMTYPE,TYPE,ARGTYPE,NAME) \   void PIKE_CONCAT(low_add_to_,NAME) (struct program_state *state, \    TYPE ARG) { \    NUMTYPE m = state->malloc_size_program->PIKE_CONCAT(num_,NAME); \    CHECK_FOO(NUMTYPE,TYPE,NAME); \    if(m == state->new_program->PIKE_CONCAT(num_,NAME)) { \    TYPE *tmp; \ -  if(m==MAXVARS(NUMTYPE)) \ -  Pike_error("Too many " #NAME ".\n"); \ -  m = MINIMUM(m*2+1,MAXVARS(NUMTYPE)); \ +  if(m==MAXVARS(NUMTYPE)) { \ +  yyerror("Too many " #NAME ".\n"); \ +  return; \ +  } \ +  m = MINIMUM(m*2+1,MAXVARS(NUMTYPE)); \    tmp = realloc((void *)state->new_program->NAME, \    sizeof(TYPE) * m); \    if(!tmp) Pike_fatal("Out of memory.\n"); \    PIKE_CONCAT(RELOCATE_,NAME)(state->new_program, tmp); \    state->malloc_size_program->PIKE_CONCAT(num_,NAME)=m; \    state->new_program->NAME=tmp; \    } \    state->new_program-> \    NAME[state->new_program->PIKE_CONCAT(num_,NAME)++]=(ARG); \   } \