pike.git/ src/ program.c

1998-01-27

1998-01-27 20:02:15 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

• 2416d84a4fe52a9ff2dea3972ee0721c5bfabea9 (12 lines) (+9/-3) ^{[ Show | Annotate ]}
  Branch: 7.9

core-dumping bug fixed

Rev: src/language.yacc:1.56
Rev: src/program.c:1.57

4:   ||| See the files COPYING and DISCLAIMER for more information.   \*/   #include "global.h" - RCSID("$Id: program.c,v 1.56 1998/01/27 18:11:35 hubbe Exp $"); + RCSID("$Id: program.c,v 1.57 1998/01/27 20:02:15 hubbe Exp $");   #include "program.h"   #include "object.h"   #include "dynamic_buffer.h"
1011:    INT32 flags,    struct pike_string *name)   { +  if(!n) +  { +  yyerror("Unable to inherit"); +  return; +  }    switch(n->token)    {    case F_EXTERNAL:
1029:       if(IDENTIFIER_IS_CONSTANT(i->identifier_flags))    { -  struct svalue *s=PROG_FROM_INT(new_program, numid)->constants + i->func.offset; +  struct svalue *s=PROG_FROM_INT(p, numid)->constants + i->func.offset;    if(s->type != T_PROGRAM)    { -  yyerror("Inherit identifier is not a program"); +  do_inherit(s,flags,name);    return;    }else{    p=s->u.program;