-
- e1value = VEC_index (tree, expr_list, 0);
- e2value = VEC_index (tree, expr_list, 1);
-
- mark_exp_read (e1value);
- if (TREE_CODE (e1value) == EXCESS_PRECISION_EXPR)
- e1value = convert (TREE_TYPE (e1value),
- TREE_OPERAND (e1value, 0));
- mark_exp_read (e2value);
- if (TREE_CODE (e2value) == EXCESS_PRECISION_EXPR)
- e2value = convert (TREE_TYPE (e2value),
- TREE_OPERAND (e2value, 0));
- if (!SCALAR_FLOAT_TYPE_P (TREE_TYPE (e1value))
- || DECIMAL_FLOAT_TYPE_P (TREE_TYPE (e1value))
- || !SCALAR_FLOAT_TYPE_P (TREE_TYPE (e2value))
- || DECIMAL_FLOAT_TYPE_P (TREE_TYPE (e2value)))
+
+ e1_p = VEC_index (c_expr_t, cexpr_list, 0);
+ e2_p = VEC_index (c_expr_t, cexpr_list, 1);
+
+ mark_exp_read (e1_p->value);
+ if (TREE_CODE (e1_p->value) == EXCESS_PRECISION_EXPR)
+ e1_p->value = convert (TREE_TYPE (e1_p->value),
+ TREE_OPERAND (e1_p->value, 0));
+ mark_exp_read (e2_p->value);
+ if (TREE_CODE (e2_p->value) == EXCESS_PRECISION_EXPR)
+ e2_p->value = convert (TREE_TYPE (e2_p->value),
+ TREE_OPERAND (e2_p->value, 0));
+ if (!SCALAR_FLOAT_TYPE_P (TREE_TYPE (e1_p->value))
+ || DECIMAL_FLOAT_TYPE_P (TREE_TYPE (e1_p->value))
+ || !SCALAR_FLOAT_TYPE_P (TREE_TYPE (e2_p->value))
+ || DECIMAL_FLOAT_TYPE_P (TREE_TYPE (e2_p->value)))