* gcc-interface/trans.c (addressable_p) <COMPONENT_REF>: Fix thinko.

From-SVN: r183027

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index c38eda581d78e5cff219223acf88daead77011d7..c9bca727e143940198180f771f00a99fe46eb549 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,7 @@
+2012-01-09  Eric Botcazou  <ebotcazou@adacore.com>
+
+       * gcc-interface/trans.c (addressable_p) <COMPONENT_REF>: Fix thinko.
+
 2011-07-14  John David Anglin  <dave.anglin@nrc-cnrc.gc.ca>
 
        PR ada/46350

diff --git a/gcc/ada/gcc-interface/trans.c b/gcc/ada/gcc-interface/trans.c
index d9fb3f1946e6cdb58bb46a7f9fc9a336f95d1399..69a50c713b948d272019477a5f4019434e023efb 100644 (file)
--- a/gcc/ada/gcc-interface/trans.c
+++ b/gcc/ada/gcc-interface/trans.c
@@ -7017,7 +7017,7 @@ addressable_p (tree gnu_expr, tree gnu_type)
                    || DECL_ALIGN (TREE_OPERAND (gnu_expr, 1))
                       >= TYPE_ALIGN (TREE_TYPE (gnu_expr))))
               /* The field of a padding record is always addressable.  */
-              || TYPE_PADDING_P (TREE_TYPE (TREE_OPERAND (gnu_expr, 0))))
+              || TYPE_IS_PADDING_P (TREE_TYPE (TREE_OPERAND (gnu_expr, 0))))
              && addressable_p (TREE_OPERAND (gnu_expr, 0), NULL_TREE));
 
     case ARRAY_REF:  case ARRAY_RANGE_REF: