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.
174
2004/
01
/
22
23:
17
:
27
nilsson Exp $
+
|| $Id: docode.c,v 1.
175
2004/
05
/
13
23:
29
:
49
nilsson Exp $
*/ #include "global.h"
-
RCSID("$Id: docode.c,v 1.
174
2004/
01
/
22
23:
17
:
27
nilsson Exp $");
+
RCSID("$Id: docode.c,v 1.
175
2004/
05
/
13
23:
29
:
49
nilsson 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:2139:
emit1(F_CONSTANT, DO_NOT_WARN((INT32)tmp1)); /* copy now or later ? */ if(!(flags & DO_NOT_COPY) && !(n->tree_info & OPT_EXTERNAL_DEPEND)) { if(flags & DO_NOT_COPY_TOPLEVEL) { switch(n->u.sval.type) { case T_ARRAY:
-
array_fix_type_field(n->u.sval.u.array)
;
-
if(n->u.sval.u.array -> type_field
& BIT_COMPLEX)
+
if(
array_fix_type_field(n->u.sval.u.array) & BIT_COMPLEX)
emit0(F_COPY_VALUE); break; case T_MAPPING: mapping_fix_type_field(n->u.sval.u.mapping); if((n->u.sval.u.mapping->data->ind_types | n->u.sval.u.mapping->data->val_types) & BIT_COMPLEX) emit0(F_COPY_VALUE); break;