pike.git/
src/
interpret.c
Branch:
Tag:
Non-build tags
All tags
No tags
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();