pike.git
/
src
/
operators.c
version
»
Context lines:
10
20
40
80
file
none
3
pike.git/src/operators.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" #include <math.h>
-
RCSID("$Id: operators.c,v 1.
49
1999/03/
02
03
:
22
:
13
hubbe Exp $");
+
RCSID("$Id: operators.c,v 1.
50
1999/03/
05
02:
15
:
01
hubbe 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:877:
struct multiset *l; l=merge_multisets(sp[-2].u.multiset, sp[-1].u.multiset, PIKE_ARRAY_OP_OR); pop_n_elems(2); push_multiset(l); return; } case T_ARRAY: { struct array *a;
-
a=merge_array_without_
order
(sp[-2].u.array, sp[-1].u.array, PIKE_ARRAY_OP_OR);
-
pop_n_elems(
2
)
;
+
a=merge_array_without_
order2
(sp[-2].u.array, sp[-1].u.array, PIKE_ARRAY_OP_OR);
+
sp-=
2;
/* Refs are eaten by function above */
push_array(a); return; } STRING_BITOP(|,"OR") default: PIKE_ERROR("`|", "Bitwise or on illegal type.\n", sp, 2); } }
pike.git/src/operators.c:967:
struct multiset *l; l=merge_multisets(sp[-2].u.multiset, sp[-1].u.multiset, PIKE_ARRAY_OP_XOR); pop_n_elems(2); push_multiset(l); return; } case T_ARRAY: { struct array *a;
-
a=merge_array_without_
order
(sp[-2].u.array, sp[-1].u.array, PIKE_ARRAY_OP_XOR);
-
pop_n_elems(
2
)
;
+
a=merge_array_without_
order2
(sp[-2].u.array, sp[-1].u.array, PIKE_ARRAY_OP_XOR);
+
sp-=
2;
/* Refs are eaten by function above */
push_array(a); return; } STRING_BITOP(^,"XOR") default: PIKE_ERROR("`^", "Bitwise XOR on illegal type.\n", sp, 2); } }