From a240ec3ec76279501c7f2d1699a1d3232c06a088 Mon Sep 17 00:00:00 2001 From: schwab Date: Mon, 5 Jul 2004 18:36:47 +0000 Subject: * ada-tree.h (TYPE_LEFT_JUSTIFIED_MODULAR_P): Use RECORD_OR_UNION_CHECK. (TYPE_CONTAINS_TEMPLATE_P): Likewise. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@84127 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/ada/ada-tree.h | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'gcc/ada/ada-tree.h') 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. */ -- cgit v1.2.1