diff options
author | schwab <schwab@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-07-05 18:36:47 +0000 |
---|---|---|
committer | schwab <schwab@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-07-05 18:36:47 +0000 |
commit | a240ec3ec76279501c7f2d1699a1d3232c06a088 (patch) | |
tree | 2825d325a0fec7e2c2ed4e95b99c1d912f1dda85 /gcc/ada/ada-tree.h | |
parent | b55af61c907d6ac852d6e1bfd33e8d8df7948d37 (diff) | |
download | ppe42-gcc-a240ec3ec76279501c7f2d1699a1d3232c06a088.tar.gz ppe42-gcc-a240ec3ec76279501c7f2d1699a1d3232c06a088.zip |
* 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
Diffstat (limited to 'gcc/ada/ada-tree.h')
-rw-r--r-- | gcc/ada/ada-tree.h | 4 |
1 files changed, 2 insertions, 2 deletions
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. */ |