ada-tree.h (TYPE_RETURNS_BY_TARGET_PTR_P): Move around.

	* ada-tree.h (TYPE_RETURNS_BY_TARGET_PTR_P): Move around.

From-SVN: r130757

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index cf8b613..ecea4ac 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,7 @@
+2007-12-10  Eric Botcazou  <ebotcazou@adacore.com>
+
+       * ada-tree.h (TYPE_RETURNS_BY_TARGET_PTR_P): Move around.
+
 2007-12-09  Samuel Tardieu  <sam@rfc1149.net>
 
        PR ada/34366

diff --git a/gcc/ada/ada-tree.h b/gcc/ada/ada-tree.h
index a7f48aa..27f9ef6 100644 (file)
--- a/gcc/ada/ada-tree.h
+++ b/gcc/ada/ada-tree.h
@@ -136,11 +136,6 @@ struct lang_type GTY(()) {tree t; };
 #define TYPE_RETURNS_BY_REF_P(NODE) \
   TYPE_LANG_FLAG_4 (FUNCTION_TYPE_CHECK (NODE))
 
-/* For FUNCTION_TYPEs, nonzero if function returns by being passed a pointer
-   to a place to store its result.  */
-#define TYPE_RETURNS_BY_TARGET_PTR_P(NODE) \
-  TYPE_LANG_FLAG_5 (FUNCTION_TYPE_CHECK (NODE))
-
 /* For VOID_TYPE, ENUMERAL_TYPE, UNION_TYPE, and RECORD_TYPE, nonzero if this
    is a dummy type, made to correspond to a private or incomplete type.  */
 #define TYPE_DUMMY_P(NODE) TYPE_LANG_FLAG_4 (NODE)
@@ -151,6 +146,11 @@ struct lang_type GTY(()) {tree t; };
     || TREE_CODE (NODE) == UNION_TYPE || TREE_CODE (NODE) == ENUMERAL_TYPE) \
    && TYPE_DUMMY_P (NODE))
 
+/* For FUNCTION_TYPEs, nonzero if function returns by being passed a pointer
+   to a place to store its result.  */
+#define TYPE_RETURNS_BY_TARGET_PTR_P(NODE) \
+  TYPE_LANG_FLAG_5 (FUNCTION_TYPE_CHECK (NODE))
+
 /* For an INTEGER_TYPE, nonzero if TYPE_ACTUAL_BOUNDS is present.  */
 #define TYPE_HAS_ACTUAL_BOUNDS_P(NODE) \
   TYPE_LANG_FLAG_5 (INTEGER_TYPE_CHECK (NODE))