pike.git
/
src
/
docode.c
version
»
Context lines:
10
20
40
80
file
none
3
pike.git/src/docode.c:1:
/* || 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: docode.c,v 1.
156
2002/11/
15
13
:
26
:
43
grubba Exp $
+
|| $Id: docode.c,v 1.
157
2002/11/
18
16
:
41
:
11
grubba Exp $
*/ #include "global.h"
-
RCSID("$Id: docode.c,v 1.
156
2002/11/
15
13
:
26
:
43
grubba Exp $");
+
RCSID("$Id: docode.c,v 1.
157
2002/11/
18
16
:
41
:
11
grubba Exp $");
#include "las.h" #include "program.h" #include "pike_types.h" #include "stralloc.h" #include "interpret.h" #include "constants.h" #include "array.h" #include "pike_macros.h" #include "pike_error.h" #include "pike_memory.h"
pike.git/src/docode.c:2060:
for(;state->fake_object!=n->u.sval.u.object;state=state->previous) x++; #endif emit2(F_EXTERNAL, n->u.sval.subtype, x); Pike_compiler->new_program->flags |= PROGRAM_USES_PARENT | PROGRAM_NEEDS_PARENT; return 1; } } /* FALL_THROUGH */
+
default:
#ifdef PIKE_DEBUG
-
case
T_OBJECT
:
-
if
(n->u.sval.u.object->next == n->u.sval.u.object)
+
if((n->type ==
T_OBJECT
) &&
+
(n->u.sval.u.object->next == n->u.sval.u.object)
)
Pike_fatal("Internal error: Pointer to parent cannot be a compile time constant!\n"); #endif
-
/* FALL_THROUGH */
-
default:
+
tmp1=store_constant(&(n->u.sval), !(n->tree_info & OPT_EXTERNAL_DEPEND), n->name); emit1(F_CONSTANT, DO_NOT_WARN((INT32)tmp1)); return 1; case T_TYPE: tmp1 = store_constant(&(n->u.sval), 0, n->name); emit1(F_CONSTANT, DO_NOT_WARN((INT32)tmp1)); return 1;