* ada-lang.c (ada_evaluate_subexp) [OP_ATR_MODULUS]: Use check_typdef

        to make sure we try to get the modulus of the actual type, not the
        associated typedef.

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index 732054527987f78d4f785de779da4f394e36233b..f6f8c29ce333b5fd24df547e2ebbe87a0824fc60 100644 (file)
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,3 +1,9 @@
+2009-03-23  Joel Brobecker  <brobecker@adacore.com>
+
+       * ada-lang.c (ada_evaluate_subexp) [OP_ATR_MODULUS]: Use check_typdef
+       to make sure we try to get the modulus of the actual type, not the
+       associated typedef.
+
 2009-03-23  Joel Brobecker  <brobecker@adacore.com>
 
        * ada-lang.c (ada_evaluate_subexp): [OP_ATR_FIRST, OP_ATR_LAST]

diff --git a/gdb/ada-lang.c b/gdb/ada-lang.c
index b9a0a3d3b114b040899ef9736330b1e9103c031d..38902af35e6cb19add8146062be69b548b6a24b2 100644 (file)
--- a/gdb/ada-lang.c
+++ b/gdb/ada-lang.c
@@ -9010,7 +9010,7 @@ ada_evaluate_subexp (struct type *expect_type, struct expression *exp,
 
     case OP_ATR_MODULUS:
       {
-        struct type *type_arg = exp->elts[pc + 2].type;
+        struct type *type_arg = check_typedef (exp->elts[pc + 2].type);
         evaluate_subexp (NULL_TYPE, exp, pos, EVAL_SKIP);
 
         if (noside == EVAL_SKIP)