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.
157
2002/11/
18
16
:
41
:
11
grubba Exp $
+
|| $Id: docode.c,v 1.
158
2002/11/
22
14
:
47
:
43
grubba Exp $
*/ #include "global.h"
-
RCSID("$Id: docode.c,v 1.
157
2002/11/
18
16
:
41
:
11
grubba Exp $");
+
RCSID("$Id: docode.c,v 1.
158
2002/11/
22
14
:
47
:
43
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:2062:
#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
-
if((n->type == T_OBJECT) &&
+
if((n->
u.sval.
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 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: