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
|
/*
S H R . C
*/
#include "iccomp.h"
ESTRUC_ *shr (lval, rval)
ESTRUC_
*lval,
*rval;
{
if (test_binop(op_shr, lval, rval))
return (lval); /* test for correct types */
btoi(lval); /* convert pending booleans */
btoi(rval);
if (conflict(lval, rval, op_shr)) /* test type conflict */
return(lval);
if ((lval->type & rval->type & (size_t)~ALLTYPES) == e_const)
lval->evalue >>= rval->evalue;
else
defcode(lval, rval, op_shr);
return (lval); /* return new expression */
}
|
