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

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 34e35b53f94c1ff32dec05766bb3a79d7e23658a..ac4e70ab74473a2d66964a043d9bd07a15525e28 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,9 @@
+2004-07-05  Andreas Schwab  <schwab@suse.de>
+
+       * ada-tree.h (TYPE_LEFT_JUSTIFIED_MODULAR_P): Use
+       RECORD_OR_UNION_CHECK.
+       (TYPE_CONTAINS_TEMPLATE_P): Likewise.
+
 2004-07-04  Kelley Cook  <kcook@gcc.gnu.org>
 
        * 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 ca099b8462dd53cbad3c1a582c55ea6492e6f902..b0126846e8cb4c7790fbaa8fb2873dbfc76507c4 100644 (file)
--- 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.  */