pike.git/ src/ program.c

2001-06-08

2001-06-08 11:01:27 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

• 001aa5a265d256381be8271013763cccc7a39893 (20 lines) (+19/-1) ^{[ Show | Annotate ]}
  Branch: 7.9

some ways to force objects to save their parents

Rev: src/lexer.h:1.32
Rev: src/program.c:1.328
Rev: src/program.h:1.128

5:   \*/   /**/   #include "global.h" - RCSID("$Id: program.c,v 1.327 2001/06/05 10:15:58 hubbe Exp $"); + RCSID("$Id: program.c,v 1.328 2001/06/08 11:01:26 hubbe Exp $");   #include "program.h"   #include "object.h"   #include "dynamic_buffer.h"
1189:    {    tmp.u.program=p;    id=add_constant(name, &tmp, flags & ~ID_EXTERN); +  if(TEST_COMPAT(7,2) || (lex.pragmas && ID_SAVE_PARENT)) +  { +  p->flags |= PROGRAM_USES_PARENT; +  }else{ +  struct pike_string *tmp=findstring("__pragma_save_parent__"); +  if(tmp) +  { +  struct node_s *n=find_module_identifier(tmp, 0); +  if(n) +  { +  free_node(n); +  p->flags |= PROGRAM_USES_PARENT; +  } +  } +  } +  +    #if 0    fprintf(stderr,"Compiling class %s, depth=%d\n",name->str,compilation_depth);    }else{