gdb/gdb/eval.c

393   struct value *arg2 = NULL;
679 	  arg2 = evaluate_subexp (NULL_TYPE, exp, pos, noside);
681 	  return arg2;
983 	  /* First, evaluate the structure into arg2 */
991 	      arg2 = evaluate_subexp_for_address (exp, pos, noside);
995 	      arg2 = evaluate_subexp (NULL_TYPE, exp, pos, noside);
1015 	      basetype = TYPE_TARGET_TYPE (VALUE_TYPE (arg2));
1017 		arg2 = value_cast (lookup_pointer_type (domain_type), arg2);
1027 			  struct value *temp = value_ind (arg2);
1029 			  arg2 = value_addr (temp);
1051 	  /* First, evaluate the structure into arg2 */
1074 	      arg2 = evaluate_subexp_for_address (exp, pos, noside);
1078 	      arg2 = evaluate_subexp (NULL_TYPE, exp, pos, noside);
1120 	  argvec[1] = arg2;
1136 					  &arg2 /* the object */ , NULL,
1140 	      argvec[1] = arg2;	/* the ``this'' pointer */
1146 	      struct value *temp = arg2;
1154 	      arg2 = value_from_longest (lookup_pointer_type(VALUE_TYPE (temp)),
1157 	      argvec[1] = arg2;	/* the ``this'' pointer */
1169 	  argvec[1] = arg2;
1284       arg2 = evaluate_subexp_with_coercion (exp, pos, noside);
1287 	return value_subscript (arg1, arg2);
1294       tem2 = value_as_long (arg2);
1303       arg2 = evaluate_subexp (NULL_TYPE, exp, pos, noside);
1305       return value_literal_complex (arg1, arg2, builtin_type_f_complex_s16);
1370       arg2 = evaluate_subexp (NULL_TYPE, exp, pos, noside);
1374 	  (TYPE_CODE (VALUE_TYPE (arg2)) == TYPE_CODE_PTR) &&
1375       (TYPE_CODE (TYPE_TARGET_TYPE (VALUE_TYPE (arg2))) == TYPE_CODE_METHOD))
1378       mem_offset = value_as_long (arg2);
1383       arg2 = evaluate_subexp (NULL_TYPE, exp, pos, noside);
1387 	  (TYPE_CODE (VALUE_TYPE (arg2)) == TYPE_CODE_PTR) &&
1388       (TYPE_CODE (TYPE_TARGET_TYPE (VALUE_TYPE (arg2))) == TYPE_CODE_METHOD))
1391       mem_offset = value_as_long (arg2);
1404       type = check_typedef (VALUE_TYPE (arg2));
1423       arg2 = evaluate_subexp_with_coercion (exp, pos, noside);
1426       if (binop_user_defined_p (op, arg1, arg2))
1427 	return value_x_binop (arg1, arg2, op, OP_NULL, noside);
1429 	return value_concat (arg1, arg2);
1433       arg2 = evaluate_subexp (VALUE_TYPE (arg1), exp, pos, noside);
1450 	      unsigned int *ptr = (unsigned int *) VALUE_CONTENTS (arg2);	/* forces evaluation */
1457       if (binop_user_defined_p (op, arg1, arg2))
1458 	return value_x_binop (arg1, arg2, op, OP_NULL, noside);
1460 	return value_assign (arg1, arg2);
1465       arg2 = evaluate_subexp (VALUE_TYPE (arg1), exp, pos, noside);
1469       if (binop_user_defined_p (op, arg1, arg2))
1470 	return value_x_binop (arg1, arg2, BINOP_ASSIGN_MODIFY, op, noside);
1472 	arg2 = value_add (arg1, arg2);
1474 	arg2 = value_sub (arg1, arg2);
1476 	arg2 = value_binop (arg1, arg2, op);
1477       return value_assign (arg1, arg2);
1481       arg2 = evaluate_subexp_with_coercion (exp, pos, noside);
1484       if (binop_user_defined_p (op, arg1, arg2))
1485 	return value_x_binop (arg1, arg2, op, OP_NULL, noside);
1487 	return value_add (arg1, arg2);
1491       arg2 = evaluate_subexp_with_coercion (exp, pos, noside);
1494       if (binop_user_defined_p (op, arg1, arg2))
1495 	return value_x_binop (arg1, arg2, op, OP_NULL, noside);
1497 	return value_sub (arg1, arg2);
1509       arg2 = evaluate_subexp (NULL_TYPE, exp, pos, noside);
1512       if (binop_user_defined_p (op, arg1, arg2))
1513 	return value_x_binop (arg1, arg2, op, OP_NULL, noside);
1518 	return value_binop (arg1, arg2, op);
1522       arg2 = evaluate_subexp (NULL_TYPE, exp, pos, noside);
1529       arg2 = evaluate_subexp_with_coercion (exp, pos, noside);
1532       if (binop_user_defined_p (op, arg1, arg2))
1533 	return value_x_binop (arg1, arg2, op, OP_NULL, noside);
1555 	    return value_subscript (arg1, arg2);
1560       arg2 = evaluate_subexp_with_coercion (exp, pos, noside);
1563       return value_in (arg1, arg2);
1571 	  arg2 = evaluate_subexp_with_coercion (exp, pos, noside);
1605 	  if (binop_user_defined_p (op, arg1, arg2))
1607 	      arg1 = value_x_binop (arg1, arg2, op, OP_NULL, noside);
1611 	      arg1 = value_subscript (arg1, arg2);
1641 	    arg2 = evaluate_subexp_with_coercion (exp, pos, noside);
1645 	    subscript_array[i] = value_as_long (arg2);
1683 	arg2 = value_from_longest (builtin_type_f_integer, offset_item);
1693 	return value_ind (value_add (value_coerce_array (arg1), arg2));
1700 	  arg2 = evaluate_subexp (NULL_TYPE, exp, pos, noside);
1705       arg2 = evaluate_subexp (NULL_TYPE, exp, pos, EVAL_AVOID_SIDE_EFFECTS);
1708       if (binop_user_defined_p (op, arg1, arg2))
1710 	  arg2 = evaluate_subexp (NULL_TYPE, exp, pos, noside);
1711 	  return value_x_binop (arg1, arg2, op, OP_NULL, noside);
1716 	  arg2 = evaluate_subexp (NULL_TYPE, exp, pos,
1719 			     (LONGEST) (!tem && !value_logical_not (arg2)));
1726 	  arg2 = evaluate_subexp (NULL_TYPE, exp, pos, noside);
1731       arg2 = evaluate_subexp (NULL_TYPE, exp, pos, EVAL_AVOID_SIDE_EFFECTS);
1734       if (binop_user_defined_p (op, arg1, arg2))
1736 	  arg2 = evaluate_subexp (NULL_TYPE, exp, pos, noside);
1737 	  return value_x_binop (arg1, arg2, op, OP_NULL, noside);
1742 	  arg2 = evaluate_subexp (NULL_TYPE, exp, pos,
1745 			     (LONGEST) (!tem || !value_logical_not (arg2)));
1750       arg2 = evaluate_subexp (VALUE_TYPE (arg1), exp, pos, noside);
1753       if (binop_user_defined_p (op, arg1, arg2))
1755 	  return value_x_binop (arg1, arg2, op, OP_NULL, noside);
1759 	  tem = value_equal (arg1, arg2);
1765       arg2 = evaluate_subexp (VALUE_TYPE (arg1), exp, pos, noside);
1768       if (binop_user_defined_p (op, arg1, arg2))
1770 	  return value_x_binop (arg1, arg2, op, OP_NULL, noside);
1774 	  tem = value_equal (arg1, arg2);
1780       arg2 = evaluate_subexp (VALUE_TYPE (arg1), exp, pos, noside);
1783       if (binop_user_defined_p (op, arg1, arg2))
1785 	  return value_x_binop (arg1, arg2, op, OP_NULL, noside);
1789 	  tem = value_less (arg1, arg2);
1795       arg2 = evaluate_subexp (VALUE_TYPE (arg1), exp, pos, noside);
1798       if (binop_user_defined_p (op, arg1, arg2))
1800 	  return value_x_binop (arg1, arg2, op, OP_NULL, noside);
1804 	  tem = value_less (arg2, arg1);
1810       arg2 = evaluate_subexp (VALUE_TYPE (arg1), exp, pos, noside);
1813       if (binop_user_defined_p (op, arg1, arg2))
1815 	  return value_x_binop (arg1, arg2, op, OP_NULL, noside);
1819 	  tem = value_less (arg2, arg1) || value_equal (arg1, arg2);
1825       arg2 = evaluate_subexp (VALUE_TYPE (arg1), exp, pos, noside);
1828       if (binop_user_defined_p (op, arg1, arg2))
1830 	  return value_x_binop (arg1, arg2, op, OP_NULL, noside);
1834 	  tem = value_less (arg1, arg2) || value_equal (arg1, arg2);
1840       arg2 = evaluate_subexp (NULL_TYPE, exp, pos, noside);
1843       type = check_typedef (VALUE_TYPE (arg2));
1849 				     longest_to_int (value_as_long (arg2)));
1852 	return value_repeat (arg1, longest_to_int (value_as_long (arg2)));
1989 	  arg2 = value_add (arg1, value_from_longest (builtin_type_char,
1991 	  return value_assign (arg1, arg2);
2004 	  arg2 = value_sub (arg1, value_from_longest (builtin_type_char,
2006 	  return value_assign (arg1, arg2);
2019 	  arg2 = value_add (arg1, value_from_longest (builtin_type_char,
2021 	  value_assign (arg1, arg2);
2035 	  arg2 = value_sub (arg1, value_from_longest (builtin_type_char,
2037 	  value_assign (arg1, arg2);