pike.git/ src/ interpret.c

2003-08-08

2003-08-08 15:47:52 by Henrik Grubbström (Grubba) <grubba@grubba.org>

• b98a67b77b1b8a0781c282ed1cc767f1d9e96f60 (9 lines) (+7/-2) ^{[ Show | Annotate ]}
  Branch: 7.9

Running with high debug level should now work again.

Rev: src/interpret.c:1.326

2:   || This file is part of Pike. For copyright information see COPYRIGHT.   || Pike is distributed under GPL, LGPL and MPL. See the file COPYING   || for more information. - || $Id: interpret.c,v 1.325 2003/08/08 13:21:49 mast Exp $ + || $Id: interpret.c,v 1.326 2003/08/08 15:47:52 grubba Exp $   */      #include "global.h" - RCSID("$Id: interpret.c,v 1.325 2003/08/08 13:21:49 mast Exp $"); + RCSID("$Id: interpret.c,v 1.326 2003/08/08 15:47:52 grubba Exp $");   #include "interpret.h"   #include "object.h"   #include "program.h"
1945:    struct pike_frame *new_frame=alloc_pike_frame();    int ret;    int use_dummy_reference = !o->prog->num_identifier_references; +  int p_flags = o->prog->flags;       /* This is needed for opcodes that use INHERIT_FROM_*    * (eg F_EXTERN) to work.
1953:    struct reference dummy_ref = {    0, 0, ID_HIDDEN,    }; +  /* check_program() doesn't like our identifier... */ +  o->prog->flags |= PROGRAM_AVOID_CHECK;    add_to_identifier_references(dummy_ref);    }   
1994:       if (use_dummy_reference) {    Pike_compiler->new_program->num_identifier_references--; +  o->prog->flags = p_flags;    }       POP_PIKE_FRAME();