Branch: Tag:

2000-10-01

2000-10-01 08:51:54 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

allow parent access from prog->exit()

Rev: src/interpret.c:1.172
Rev: src/object.c:1.150
Rev: src/object.h:1.55
Rev: src/program.c:1.274

5:   \*/   /**/   #include "global.h" - RCSID("$Id: interpret.c,v 1.171 2000/09/25 23:41:33 hubbe Exp $"); + RCSID("$Id: interpret.c,v 1.172 2000/10/01 08:51:52 hubbe Exp $");   #include "interpret.h"   #include "object.h"   #include "program.h"
441:    struct program *p;    INT32 e,off;    TRACE((4, "-find_external_context(%d, inherit=%ld)\n", arg2, -  DO_NOT_WARN((long)(loc->inherit - loc->o->prog->inherits)))); +  DO_NOT_WARN((long)(loc->o->prog ? loc->inherit - loc->o->prog->inherits : 0))));       if(!loc->o)    error("Current object is destructed\n");
449:    while(--arg2>=0)    {   #ifdef PIKE_DEBUG -  if(t_flag>8) +  if(t_flag>8 && loc->o->prog)    my_describe_inherit_structure(loc->o->prog);   #endif