* value.h (value_add, value_sub): Remove.

[deliverable/binutils-gdb.git] / gdb / m2-lang.c

diff --git a/gdb/m2-lang.c b/gdb/m2-lang.c
index 793ae03a64debfa54e621ea11f8f2c42a84315f0..5c3a2840a5c020fac40ff50af6563f4c207d0ceb 100644 (file)
--- a/gdb/m2-lang.c
+++ b/gdb/m2-lang.c
@@ -251,7 +251,7 @@ evaluate_subexp_modula2 (struct type *expect_type, struct expression *exp,
            arg1 = value_cast (type, arg1);
 
          type = check_typedef (value_type (arg1));
-         return value_ind (value_add (arg1, arg2));
+         return value_ind (value_ptradd (arg1, arg2));
        }
       else
        if (TYPE_CODE (type) != TYPE_CODE_ARRAY)