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.
121
2001
/
09
/
25
17:
40
:
45
grubba Exp $");
+
RCSID("$Id: operators.c,v 1.
122
2002
/
06
/
17
16
:
44:
40 grubba 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:1534:
return 1; default: return 0; } } PMOD_EXPORT void o_lsh(void) { #ifdef AUTO_BIGNUM
-
if(INT_TYPE_LSH_OVERFLOW(sp[-2].u.integer, sp[-1].u.integer))
+
if(
(sp[-1].type == T_
INT
) && (sp[-2].type == T
_
INT) &&
+
INT_
TYPE_LSH_OVERFLOW(sp[-2].u.integer, sp[-1].u.integer))
convert_stack_top_to_bignum(); #endif /* AUTO_BIGNUM */ if(sp[-1].type != T_INT || sp[-2].type != T_INT) { int args = 2; if(call_lfun(LFUN_LSH, LFUN_RLSH)) return; if(sp[-2].type != T_INT)