Branch: Tag:

2002-06-11

2002-06-11 22:16:17 by Martin Stjernholm <mast@lysator.liu.se>

Fixed a bug in the last check in.

Rev: src/program.c:1.436

5:   \*/   /**/   #include "global.h" - RCSID("$Id: program.c,v 1.435 2002/06/11 17:48:11 mast Exp $"); + RCSID("$Id: program.c,v 1.436 2002/06/11 22:16:17 mast Exp $");   #include "program.h"   #include "object.h"   #include "dynamic_buffer.h"
1698:    compilation_depth, " ", Pike_compiler->new_program->id, Pike_compiler->compiler_pass);   #endif    +  if (compilation_depth >= 1) {    if(TEST_COMPAT(7,2) || (lex.pragmas & ID_SAVE_PARENT))    {    p->flags |= PROGRAM_USES_PARENT;
1714:    }    }    } +  }       debug_malloc_touch(Pike_compiler->fake_object);    debug_malloc_touch(Pike_compiler->fake_object->storage);