From e74a122eaec330defa20a85d742886aba30f7140 Mon Sep 17 00:00:00 2001 From: Eric Botcazou Date: Mon, 10 Dec 2007 23:15:17 +0000 Subject: [PATCH] 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 --- gcc/ada/ChangeLog | 4 ++++ gcc/ada/ada-tree.h | 10 +++++----- 2 files changed, 9 insertions(+), 5 deletions(-) diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index cf8b613d0ae7..ecea4acf817d 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,7 @@ +2007-12-10 Eric Botcazou + + * ada-tree.h (TYPE_RETURNS_BY_TARGET_PTR_P): Move around. + 2007-12-09 Samuel Tardieu PR ada/34366 diff --git a/gcc/ada/ada-tree.h b/gcc/ada/ada-tree.h index a7f48aaa6135..27f9ef6ab422 100644 --- 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)) -- 2.47.2