diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2007-12-10 23:15:17 +0000 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2007-12-10 23:15:17 +0000 |
| commit | e74a122eaec330defa20a85d742886aba30f7140 (patch) | |
| tree | 701f283931b939ab61a4523c915efe41bb8809c7 /gcc | |
| parent | 4f1f33aa8255271e5504ca6a0dcdea0f4f9b0b79 (diff) | |
| download | gcc-e74a122eaec330defa20a85d742886aba30f7140.zip gcc-e74a122eaec330defa20a85d742886aba30f7140.tar.gz gcc-e74a122eaec330defa20a85d742886aba30f7140.tar.bz2 | |
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
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/ada/ada-tree.h | 10 |
2 files changed, 9 insertions, 5 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index cf8b613..ecea4ac 100644 --- 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..27f9ef6a 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)) |