1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
|
/*
E Q U A L . C
*/
#include "iccomp.h"
ESTRUC_ *equal (ESTRUC_ *lval, ESTRUC_ *rval)
{
btoi(lval); /* convert boolean to i */
btoi(rval);
if (conflict(lval, rval, op_eq)) /* test type conflict */
return(lval);
if ((lval->type & rval->type & (size_t)~ALLTYPES) == e_const)
{
if (test_type(lval, e_int))
lval->evalue = (lval->evalue == rval->evalue);
else
{
lval->evalue = !
(
strcmp
(
stringtab[lval->evalue].string,
stringtab[rval->evalue].string
)
);
set_type(lval, e_int | e_const);
}
}
else
defcode(lval, rval, op_eq);
return (lval); /* return new expression */
}
|
