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.
170
2003/01/
15
16
:
01
:
09
nilsson Exp $
+
|| $Id: operators.c,v 1.
171
2003/01/
26
17
:
04
:
03
nilsson Exp $
*/ #include "global.h" #include <math.h>
-
RCSID("$Id: operators.c,v 1.
170
2003/01/
15
16
:
01
:
09
nilsson Exp $");
+
RCSID("$Id: operators.c,v 1.
171
2003/01/
26
17
:
04
:
03
nilsson 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:3727:
tFuncV(tSetvar(3,tMultiset),tSetvar(4,tMultiset),tOr(tVar(3),tVar(4))), \ tFuncV(tSetvar(5,tArray),tSetvar(6,tArray),tOr(tVar(5),tVar(6))), \ tFuncV(tString,tString,tString), \ tFuncV(tOr(tType(tMix),tPrg(tObj)),tOr(tType(tMix),tPrg(tObj)),tType(tMix))) ADD_EFUN2("`|",f_or,LOG_TYPE,OPT_TRY_OPTIMIZE,optimize_binary,generate_or); ADD_EFUN2("`^",f_xor,LOG_TYPE,OPT_TRY_OPTIMIZE,optimize_binary,generate_xor); #define SHIFT_TYPE \
-
tOr(
tOr
(tFuncV(
tMix
tObj,tMix,tMix), \
-
tFuncV
(tObj tMix,tMix
,tMix
)), \
-
tFuncV
(tInt
,
tInt,tInt))
+
tOr(
tAnd
(
tNot(
tFuncV(
tNone,
tNot(
tObj
)
,
tMix
))
,
\
+
tOr(tFunc(
tMix
tObj,tMix
),
\
+
tFunc
(tObj tMix,tMix))
)
, \
+
tFunc
(tInt
tInt,tInt))
ADD_EFUN2("`<<", f_lsh, SHIFT_TYPE, OPT_TRY_OPTIMIZE, may_have_side_effects, generate_lsh); ADD_EFUN2("`>>", f_rsh, SHIFT_TYPE, OPT_TRY_OPTIMIZE, may_have_side_effects, generate_rsh); /* !function(!object...:mixed)&function(mixed...:mixed)|" "function(array(array(1=mixed)),array(1=mixed):array(1))|" "function(int...:int)|" "!function(int...:mixed)&function(float|int...:float)|"