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
37
38
|
/*
D I V I D E . C
*/
#include "iccomp.h"
ESTRUC_ *divide (lval, rval)
ESTRUC_
*lval,
*rval;
{
if (test_binop(op_div, lval, rval))
return (lval); /* test for correct types */
btoi(lval); /* convert pending booleans */
btoi(rval);
if (conflict(lval, rval, op_div)) /* test type conflict */
return(lval);
if (test_type(rval, e_const))
{
if (!rval->evalue) /* expression / 0: not allowed */
{
semantic("division by 0: undefined");
clearbin(lval, rval);
return (lval);
}
if (test_type(lval, e_const))
{
lval->evalue /= rval->evalue;
return (lval);
}
}
defcode(lval, rval, op_div);
return (lval); /* return new expression */
}
|
