diff options
author | rus <rus@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-10-02 23:25:15 +0000 |
---|---|---|
committer | rus <rus@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-10-02 23:25:15 +0000 |
commit | 611349f0ec42a37591db2cd02974a11a48d10edb (patch) | |
tree | 2a5c3eecca5f0b75352af30aad7f366c69281c2c /gcc/ada/gcc-interface/ada-tree.h | |
parent | 0012f4fdae066f73c9f38cb33d3a338c3e356cdf (diff) | |
download | gcc-611349f0ec42a37591db2cd02974a11a48d10edb.tar.gz |
merge from trunk
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/branches/profile-stdlib@152425 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/gcc-interface/ada-tree.h')
-rw-r--r-- | gcc/ada/gcc-interface/ada-tree.h | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/gcc/ada/gcc-interface/ada-tree.h b/gcc/ada/gcc-interface/ada-tree.h index 18eb41657cf..94b18bde6b5 100644 --- a/gcc/ada/gcc-interface/ada-tree.h +++ b/gcc/ada/gcc-interface/ada-tree.h @@ -195,6 +195,10 @@ do { \ refer to the routine gnat_to_gnu_entity. */ #define TYPE_CI_CO_LIST(NODE) TYPE_LANG_SLOT_1 (FUNCTION_TYPE_CHECK (NODE)) +/* For a VECTOR_TYPE, this is the representative array type. */ +#define TYPE_REPRESENTATIVE_ARRAY(NODE) \ + TYPE_LANG_SLOT_1 (VECTOR_TYPE_CHECK (NODE)) + /* For numerical types, this holds various RM-defined values. */ #define TYPE_RM_VALUES(NODE) TYPE_LANG_SLOT_1 (NUMERICAL_TYPE_CHECK (NODE)) @@ -210,8 +214,7 @@ do { \ TYPE_RM_VALUES (NODE) = make_tree_vec (3); \ /* ??? The field is not visited by the generic \ code so we need to mark it manually. */ \ - if (!TREE_CONSTANT (tmp)) \ - mark_visited (&tmp); \ + MARK_VISITED (tmp); \ TREE_VEC_ELT (TYPE_RM_VALUES (NODE), (N)) = tmp; \ } while (0) |