* ada-lang.c (ada_evaluate_subexp) [BINOP_ADD, BINOP_SUB]:

        Add special handling for pointer types.

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index 05db26505b9ea72f41732983e71f744e32c56df1..deec62d95e80d0dea6dbf72a85232be99ee09d5d 100644 (file)
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,3 +1,8 @@
+2008-09-10  Joel Brobecker  <brobecker@adacore.com>
+
+       * ada-lang.c (ada_evaluate_subexp) [BINOP_ADD, BINOP_SUB]:
+       Add special handling for pointer types.
+
 2008-09-10  Pedro Alves  <pedro@codesourcery.com>
 
        * inf-ttrace.c (inf_ttrace_follow_fork): Declare locals at the

diff --git a/gdb/ada-lang.c b/gdb/ada-lang.c
index 8845433061f6c4385c093b6bae4f360990d0138b..fa163c4b54c102d9ac1d79c623adc663e72403a5 100644 (file)
--- a/gdb/ada-lang.c
+++ b/gdb/ada-lang.c
@@ -8497,6 +8497,10 @@ ada_evaluate_subexp (struct type *expect_type, struct expression *exp,
       arg2 = evaluate_subexp_with_coercion (exp, pos, noside);
       if (noside == EVAL_SKIP)
         goto nosideret;
+      if (TYPE_CODE (value_type (arg1)) == TYPE_CODE_PTR)
+        return (value_from_longest
+                 (value_type (arg1),
+                  value_as_long (arg1) + value_as_long (arg2)));
       if ((ada_is_fixed_point_type (value_type (arg1))
            || ada_is_fixed_point_type (value_type (arg2)))
           && value_type (arg1) != value_type (arg2))
@@ -8514,6 +8518,10 @@ ada_evaluate_subexp (struct type *expect_type, struct expression *exp,
       arg2 = evaluate_subexp_with_coercion (exp, pos, noside);
       if (noside == EVAL_SKIP)
         goto nosideret;
+      if (TYPE_CODE (value_type (arg1)) == TYPE_CODE_PTR)
+        return (value_from_longest
+                 (value_type (arg1),
+                  value_as_long (arg1) - value_as_long (arg2)));
       if ((ada_is_fixed_point_type (value_type (arg1))
            || ada_is_fixed_point_type (value_type (arg2)))
           && value_type (arg1) != value_type (arg2))