diff options
| author | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-06-08 09:02:54 +0000 |
|---|---|---|
| committer | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-06-08 09:02:54 +0000 |
| commit | 9e3359da54ff7d68b6811c69d68b35a037bc10f3 (patch) | |
| tree | d236987c163df76b8b17aa8e1b4db328dc1ceb37 /gcc/fortran/trans.h | |
| parent | 4cb0c64a22e7e7df9b2e34f4fbd3a17443a61178 (diff) | |
| download | gcc-9e3359da54ff7d68b6811c69d68b35a037bc10f3.tar.gz | |
2009-06-08 Basile Starynkevitch <basile@starynkevitch.net>
MELT branch merged with trunk r148271
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/branches/melt-branch@148272 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/fortran/trans.h')
| -rw-r--r-- | gcc/fortran/trans.h | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/gcc/fortran/trans.h b/gcc/fortran/trans.h index 906896985d1..5152b95f5e8 100644 --- a/gcc/fortran/trans.h +++ b/gcc/fortran/trans.h @@ -624,6 +624,7 @@ struct GTY(()) lang_type { tree dtype; tree dataptr_type; tree span; + tree base_decl[2]; }; struct GTY(()) lang_decl { @@ -676,6 +677,8 @@ struct GTY(()) lang_decl { #define GFC_TYPE_ARRAY_DATAPTR_TYPE(node) \ (TYPE_LANG_SPECIFIC(node)->dataptr_type) #define GFC_TYPE_ARRAY_SPAN(node) (TYPE_LANG_SPECIFIC(node)->span) +#define GFC_TYPE_ARRAY_BASE_DECL(node, internal) \ + (TYPE_LANG_SPECIFIC(node)->base_decl[(internal)]) /* Build an expression with void type. */ #define build1_v(code, arg) fold_build1(code, void_type_node, arg) |