diff options
| author | Mikael Morin <mikael@gcc.gnu.org> | 2011-11-03 22:10:25 +0000 |
|---|---|---|
| committer | Mikael Morin <mikael@gcc.gnu.org> | 2011-11-03 22:10:25 +0000 |
| commit | 99dd5a299012fdf2c236bef659d13323f00199e3 (patch) | |
| tree | d8a32fbcba1fbace247eca6d8b5f47cd2780b1a0 /gcc/fortran/trans.h | |
| parent | a0add3be3e216ad8e7cbf02c684b70c13928500b (diff) | |
| download | gcc-99dd5a299012fdf2c236bef659d13323f00199e3.zip gcc-99dd5a299012fdf2c236bef659d13323f00199e3.tar.gz gcc-99dd5a299012fdf2c236bef659d13323f00199e3.tar.bz2 | |
trans.h (struct gfc_ss, [...]): Move member struct gfc_ss::data::scalar into newly created union...
* trans.h (struct gfc_ss, struct gfc_ss_info): Move member struct
gfc_ss::data::scalar into newly created union gfc_ss_info::data,
and rename subfield expr to value.
* trans-array.c (gfc_add_loop_ss_code, gfc_conv_array_index_offset,
gfc_conv_expr_descriptor): Update reference chains.
* trans-const.c (gfc_conv_constant): Ditto.
* trans-expr.c (gfc_conv_expr): Ditto.
From-SVN: r180870
Diffstat (limited to 'gcc/fortran/trans.h')
| -rw-r--r-- | gcc/fortran/trans.h | 18 |
1 files changed, 11 insertions, 7 deletions
diff --git a/gcc/fortran/trans.h b/gcc/fortran/trans.h index f1b109a..567e5a3 100644 --- a/gcc/fortran/trans.h +++ b/gcc/fortran/trans.h @@ -188,6 +188,17 @@ typedef struct gfc_ss_info gfc_ss_type type; gfc_expr *expr; tree string_length; + + union + { + /* If type is GFC_SS_SCALAR or GFC_SS_REFERENCE. */ + struct + { + tree value; + } + scalar; + } + data; } gfc_ss_info; @@ -208,13 +219,6 @@ typedef struct gfc_ss union { - /* If type is GFC_SS_SCALAR or GFC_SS_REFERENCE. */ - struct - { - tree expr; - } - scalar; - /* GFC_SS_TEMP. */ struct { |