pike.git
/
src
/
operators.c
version
»
Context lines:
10
20
40
80
file
none
3
pike.git/src/operators.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: operators.c,v 1.
166
2003/
05
/
15
15
:
10
:
14
mast Exp $
+
|| $Id: operators.c,v 1.
167
2003/
11
/
10
01
:
22
:
15
mast Exp $
*/ #include "global.h" #include <math.h>
-
RCSID("$Id: operators.c,v 1.
166
2003/
05
/
15
15
:
10
:
14
mast Exp $");
+
RCSID("$Id: operators.c,v 1.
167
2003/
11
/
10
01
:
22
:
15
mast Exp $");
#include "interpret.h" #include "svalue.h" #include "multiset.h" #include "mapping.h" #include "array.h" #include "stralloc.h" #include "opcodes.h" #include "operators.h" #include "language.h" #include "pike_memory.h"
pike.git/src/operators.c:1563:
struct mapping *m; m=merge_mappings(sp[-2].u.mapping, sp[-1].u.mapping, PIKE_ARRAY_OP_OR); pop_n_elems(2); push_mapping(m); return; } case T_MULTISET: { struct multiset *l;
-
l=merge_multisets(sp[-2].u.multiset, sp[-1].u.multiset, PIKE_ARRAY_OP_OR);
+
l=merge_multisets(sp[-2].u.multiset, sp[-1].u.multiset, PIKE_ARRAY_OP_OR
_LEFT
);
pop_n_elems(2); push_multiset(l); return; } case T_ARRAY: { struct array *a;
-
a=merge_array_with_order(sp[-2].u.array, sp[-1].u.array, PIKE_ARRAY_OP_OR);
+
a=merge_array_with_order(sp[-2].u.array, sp[-1].u.array, PIKE_ARRAY_OP_OR
_LEFT
);
pop_n_elems(2); push_array(a); return; } case T_TYPE: { struct pike_type *t; t = or_pike_types(sp[-2].u.type, sp[-1].u.type, 0); pop_n_elems(2);