pike.git
/
src
/
docode.c
version
»
Context lines:
10
20
40
80
file
none
3
pike.git/src/docode.c:1:
/*\ ||| This file a part of Pike, and is copyright by Fredrik Hubinette ||| Pike is distributed as GPL (General Public License) ||| See the files COPYING and DISCLAIMER for more information. \*/ /**/ #include "global.h"
-
RCSID("$Id: docode.c,v 1.
65
2000/03/
07
21
:
22
:
08
hubbe Exp $");
+
RCSID("$Id: docode.c,v 1.
66
2000/03/
09
20
:
37
:
15
hubbe Exp $");
#include "las.h" #include "program.h" #include "language.h" #include "pike_types.h" #include "stralloc.h" #include "interpret.h" #include "constants.h" #include "array.h" #include "pike_macros.h" #include "error.h"
pike.git/src/docode.c:1176:
if(n->u.sval.u.object->next == n->u.sval.u.object) { int x=0; struct object *o; for(o=fake_object->parent;o!=n->u.sval.u.object;o=o->parent) x++; emit(F_LDA, x); emit(F_EXTERNAL, n->u.sval.subtype);
+
new_program->flags |= PROGRAM_USES_PARENT;
return 1; } } #ifdef PIKE_DEBUG case T_OBJECT: if(n->u.sval.u.object->next == n->u.sval.u.object) fatal("Internal error: Pointer to parent cannot be a compile time constant!\n"); #endif