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.
56
1999/08/
14
09
:
00
:
14
hubbe Exp $");
+
RCSID("$Id: operators.c,v 1.
57
1999/08/
16
18
:
35
:
22
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:943:
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_with_order(sp[-2].u.array, sp[-1].u.array, PIKE_ARRAY_OP_OR);
-
sp-=
2;
/* Refs are eaten by function above */
+
pop_n_elems(
2
)
;
push_array(a); return; } STRING_BITOP(|,"OR") default: PIKE_ERROR("`|", "Bitwise or on illegal type.\n", sp, 2); } }
pike.git/src/operators.c:1036:
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_with_order(sp[-2].u.array, sp[-1].u.array, PIKE_ARRAY_OP_XOR);
-
sp-=
2;
/* Refs are eaten by function above */
+
pop_n_elems(
2
)
;
push_array(a); return; } STRING_BITOP(^,"XOR") default: PIKE_ERROR("`^", "Bitwise XOR on illegal type.\n", sp, 2); } }