From cb42deba630aa917d269db57f4aaf6e93d9106da Mon Sep 17 00:00:00 2001 From: Andreas Schwab Date: Mon, 5 Jul 2004 18:36:47 +0000 Subject: [PATCH] ada-tree.h (TYPE_LEFT_JUSTIFIED_MODULAR_P): Use RECORD_OR_UNION_CHECK. * ada-tree.h (TYPE_LEFT_JUSTIFIED_MODULAR_P): Use RECORD_OR_UNION_CHECK. (TYPE_CONTAINS_TEMPLATE_P): Likewise. From-SVN: r84127 --- gcc/ada/ChangeLog | 6 ++++++ gcc/ada/ada-tree.h | 4 ++-- 2 files changed, 8 insertions(+), 2 deletions(-) diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 34e35b53f94..ac4e70ab744 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,9 @@ +2004-07-05 Andreas Schwab + + * ada-tree.h (TYPE_LEFT_JUSTIFIED_MODULAR_P): Use + RECORD_OR_UNION_CHECK. + (TYPE_CONTAINS_TEMPLATE_P): Likewise. + 2004-07-04 Kelley Cook * Make-lang.in (doc/gnat_ugn_unw.texi): Eliminate explicit diff --git a/gcc/ada/ada-tree.h b/gcc/ada/ada-tree.h index ca099b8462d..b0126846e8c 100644 --- a/gcc/ada/ada-tree.h +++ b/gcc/ada/ada-tree.h @@ -71,7 +71,7 @@ struct lang_type GTY(()) {union lang_tree_node t; }; /* For RECORD_TYPE, UNION_TYPE, and QUAL_UNION_TYPE, nonzero if this denotes a left-justified modular type (will only be true for RECORD_TYPE). */ #define TYPE_LEFT_JUSTIFIED_MODULAR_P(NODE) \ - TYPE_LANG_FLAG_1 (REC_OR_UNION_CHECK (NODE)) + TYPE_LANG_FLAG_1 (RECORD_OR_UNION_CHECK (NODE)) /* Nonzero in an arithmetic subtype if this is a subtype not known to the front-end. */ @@ -84,7 +84,7 @@ struct lang_type GTY(()) {union lang_tree_node t; }; type for an object whose type includes its template in addition to its value (only true for RECORD_TYPE). */ #define TYPE_CONTAINS_TEMPLATE_P(NODE) \ - TYPE_LANG_FLAG_3 (REC_OR_UNION_CHECK (NODE)) + TYPE_LANG_FLAG_3 (RECORD_OR_UNION_CHECK (NODE)) /* For INTEGER_TYPE, nonzero if this really represents a VAX floating-point type. */ -- 2.30.2