1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
/*
B A N D . C
*/
#include "iccomp.h"
ESTRUC_ *band (ESTRUC_ *lval, ESTRUC_ *rval)
{
if (test_binop(op_band, lval, rval))
return (lval); /* test for correct types */
btoi(lval); /* convert pending booleans */
btoi(rval);
if (conflict(lval, rval, op_band)) /* test type conflict */
return(lval);
if ((lval->type & rval->type & (size_t)~ALLTYPES) == e_const)
lval->evalue &= rval->evalue;
else
defcode(lval, rval, op_band);
return (lval); /* return new expression */
}
|
