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.
107
2000/
09
/
26
10
:
04
:
33
hedda
Exp $");
+
RCSID("$Id: operators.c,v 1.
108
2000/
10
/
03
13
:
42
:
44
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:587:
fatal("Couldn't find argument!\n"); #endif if((*second_arg)->type == (*first_arg)->type && compile_type_to_runtime_type((*second_arg)->type) != T_MIXED) { if((*first_arg)->token == F_APPLY && CAR(*first_arg)->token == F_CONSTANT && is_eq(& CAR(*first_arg)->u.sval, & CAR(n)->u.sval)) {
-
ret=mknode(F_APPLY,
+
ADD_NODE_REF2(CAR(n),
+
ADD_NODE_REF2(CDR(*first_arg),
+
ADD_NODE_REF2(*second_arg,
+
ret
=
mknode(F_APPLY,
CAR(n), mknode(F_ARG_LIST, CDR(*first_arg),
-
*second_arg));
-
ADD_NODE_REF(CAR(n));
-
ADD_NODE_REF(CDR(
*
first
_arg))
;
-
ADD_NODE_REF(*second_arg
);
+
*
second
_arg))
+
)
))
;
return ret; } if((*second_arg)->token == F_APPLY && CAR(*second_arg)->token == F_CONSTANT && is_eq(& CAR(*second_arg)->u.sval, & CAR(n)->u.sval)) {
-
ret=mknode(F_APPLY,
+
ADD_NODE_REF2(CAR(n),
+
ADD_NODE_REF2(*first_arg,
+
ADD_NODE_REF2(CDR(*second_arg),
+
ret
=
mknode(F_APPLY,
CAR(n), mknode(F_ARG_LIST, *first_arg,
-
CDR(*second_arg)));
-
ADD_NODE_REF(CAR(n));
-
ADD_NODE_REF
(*
first
_arg)
;
-
ADD_NODE_REF(CDR(*second_arg
));
+
CDR
(*
second
_arg)
))
+
))
)
;
return ret; } } } return 0; } static int generate_comparison(node *n) {