diff options
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 90689698..5152b95 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) |