Branch: Tag:

2000-09-29

2000-09-29 19:03:00 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

added parent_storage (should fix oracle problems)

Rev: src/modules/Oracle/oracle.c:1.39
Rev: src/program.c:1.227
Rev: src/program.h:1.88

5:   \*/   /**/   #include "global.h" - RCSID("$Id: program.c,v 1.226 2000/08/28 19:37:40 hubbe Exp $"); + RCSID("$Id: program.c,v 1.227 2000/09/29 19:02:59 hubbe Exp $");   #include "program.h"   #include "object.h"   #include "dynamic_buffer.h"
4053:    }    return 1;   } +  + void *parent_storage(int depth) + { +  struct external_variable_context loc; +  +  loc.o=Pike_fp->current_object; +  if(!loc.o->prog) +  error("Cannot access parent of destructed object.\n"); +  +  loc.parent_identifier=Pike_fp->fun; +  loc.inherit=INHERIT_FROM_INT(loc.o->prog, Pike_fp->fun); +  +  find_external_context(&loc, depth); +  +  return loc.o->storage + loc.inherit->storage_offset; + } +