From: Eric Botcazou <ebotcazou@adacore.com>
Date: Mon, 9 Jan 2012 19:31:30 +0000 (+0000)
Subject: * gcc-interface/trans.c (addressable_p) <COMPONENT_REF>: Fix thinko.
X-Git-Tag: releases/gcc-4.5.4~279
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=6541145092d6a6078e0dbb46156654538bcd4ca6;p=thirdparty%2Fgcc.git

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

From-SVN: r183027
---

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index c38eda581d78..c9bca727e143 100644
--- 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 d9fb3f1946e6..69a50c713b94 100644
--- 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: