diff options
| author | Mikael Morin <mikael@gcc.gnu.org> | 2012-03-04 20:46:55 +0000 |
|---|---|---|
| committer | Mikael Morin <mikael@gcc.gnu.org> | 2012-03-04 20:46:55 +0000 |
| commit | 9bcf7121b65665d72790132ff071e07a1a634151 (patch) | |
| tree | 9cce6361575bbd4622cd4602cd357413f033a401 /gcc/fortran/trans.h | |
| parent | 904eea2c55c331ba5a836adb5e859ebce9ac9d53 (diff) | |
| download | gcc-9bcf7121b65665d72790132ff071e07a1a634151.zip gcc-9bcf7121b65665d72790132ff071e07a1a634151.tar.gz gcc-9bcf7121b65665d72790132ff071e07a1a634151.tar.bz2 | |
trans.h (struct gfc_ss_info): Move can_be_null_ref component from the data::scalar subcomponent to the toplevel.
fortran/
* trans.h (struct gfc_ss_info): Move can_be_null_ref component from
the data::scalar subcomponent to the toplevel.
* trans-expr.c (gfc_conv_expr): Update component reference.
* trans-array.c (gfc_add_loop_ss_code): Ditto.
(gfc_walk_elemental_function_args): Ditto. Move the conditional setting
the field out of the scalar-only block.
From-SVN: r184893
Diffstat (limited to 'gcc/fortran/trans.h')
| -rw-r--r-- | gcc/fortran/trans.h | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/gcc/fortran/trans.h b/gcc/fortran/trans.h index e685a84..8beefe1 100644 --- a/gcc/fortran/trans.h +++ b/gcc/fortran/trans.h @@ -198,9 +198,6 @@ typedef struct gfc_ss_info struct { tree value; - /* Tells whether the reference can be null in the GFC_SS_REFERENCE case. - Used to handle elemental procedures' optional arguments. */ - bool can_be_null_ref; } scalar; @@ -223,6 +220,11 @@ typedef struct gfc_ss_info /* Suppresses precalculation of scalars in WHERE assignments. */ unsigned where:1; + + /* Tells whether the SS is for an actual argument which can be a NULL + reference. In other words, the associated dummy argument is OPTIONAL. + Used to handle elemental procedures. */ + bool can_be_null_ref; } gfc_ss_info; |