pike.git/ src/ program.c

2001-04-09

2001-04-09 10:01:49 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

• 51717aa327f1eb54a14fb050484909efbdf58d7d (16 lines) (+12/-4) ^{[ Show | Annotate ]}
  Branch: 7.9

fixed some incompatibilities with the resent prog->parent change..

Rev: src/builtin_functions.c:1.361
Rev: src/encode.c:1.96
Rev: src/program.c:1.311

5:   \*/   /**/   #include "global.h" - RCSID("$Id: program.c,v 1.310 2001/04/08 10:11:40 hubbe Exp $"); + RCSID("$Id: program.c,v 1.311 2001/04/09 10:01:49 hubbe Exp $");   #include "program.h"   #include "object.h"   #include "dynamic_buffer.h"
611:   struct program *gc_internal_program = 0;   static struct program *gc_mark_program_pos = 0;    - int compilation_depth; + int compilation_depth=-1;   dynamic_buffer used_modules;   static struct mapping *resolve_cache=0;   
1175:    {    tmp.u.program=p;    id=add_constant(name, &tmp, flags & ~ID_EXTERN); -  add_ref(p->parent = Pike_compiler->new_program); -  + #if 0 +  fprintf(stderr,"Compiling class %s, depth=%d\n",name->str,compilation_depth); +  }else{ +  fprintf(stderr,"Compiling file %s, depth=%d\n", +  lex.current_file ? lex.current_file->str : "-", +  compilation_depth); + #endif    } -  +  if(compilation_depth >= 1) +  add_ref(p->parent = Pike_compiler->new_program);    e=1;    }else{    tmp.u.program=p;