Branch: Tag:

1999-09-10

1999-09-10 00:10:00 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

bugfix for -d<a lot>

Rev: src/program.c:1.137

5:   \*/   /**/   #include "global.h" - RCSID("$Id: program.c,v 1.136 1999/09/06 12:24:59 hubbe Exp $"); + RCSID("$Id: program.c,v 1.137 1999/09/10 00:10:00 hubbe Exp $");   #include "program.h"   #include "object.h"   #include "dynamic_buffer.h"
889: Inside #if defined(PIKE_DEBUG)
   if(p->identifier_references[e].inherit_offset > p->num_inherits)    fatal("Inherit offset is wrong!\n");    +  if(!p->inherits[p->identifier_references[e].inherit_offset].prog) +  { +  if(!(p->flags & PROGRAM_FINISHED)) +  continue; +  +  fatal("p->inherit[%d].prog = NULL!\n",p->identifier_references[e].inherit_offset); +  } +     if(p->identifier_references[e].identifier_offset >    p->inherits[p->identifier_references[e].inherit_offset].prog->num_identifiers)    fatal("Identifier offset is wrong!\n");