From: Eric Botcazou Date: Mon, 10 Dec 2007 23:15:17 +0000 (+0000) Subject: ada-tree.h (TYPE_RETURNS_BY_TARGET_PTR_P): Move around. X-Git-Tag: releases/gcc-4.3.0~1108 X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=e74a122eaec330defa20a85d742886aba30f7140;p=thirdparty%2Fgcc.git 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 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))