OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

trans.h (gfc_ss): Remove data.temp.codimen field. 

* trans.h (gfc_ss): Remove data.temp.codimen field.
	* trans-array.c (gfc_conv_resolve_dependencies,
	gfc_conv_expr_descriptor): Don't set temp's codimen field.

From-SVN: r179686
This commit is contained in:
Mikael Morin 2011-10-07 22:05:35 +02:00 committed by Mikael Morin
parent 5551a54eda
commit 8e50858e07
3 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/fortran/ChangeLog
View File

@ -1,3 +1,9 @@
2011-10-07 Mikael Morin <mikael.morin@sfr.fr>
* trans.h (gfc_ss): Remove data.temp.codimen field.
* trans-array.c (gfc_conv_resolve_dependencies,
gfc_conv_expr_descriptor): Don't set temp's codimen field.
2011-10-07 Mikael Morin <mikael.morin@sfr.fr> 2011-10-07 Mikael Morin <mikael.morin@sfr.fr>
* resolve.c (resolve_array_ref): Set array_ref's dimen field (and the * resolve.c (resolve_array_ref): Set array_ref's dimen field (and the

2
gcc/fortran/trans-array.c
View File

@ -3861,7 +3861,6 @@ temporary:
base_type = gfc_get_element_type (base_type); base_type = gfc_get_element_type (base_type);
loop->temp_ss = gfc_get_temp_ss (base_type, dest->string_length, loop->temp_ss = gfc_get_temp_ss (base_type, dest->string_length,
loop->dimen); loop->dimen);
loop->temp_ss->data.temp.codimen = loop->codimen;
gfc_add_ss_to_loop (loop, loop->temp_ss); gfc_add_ss_to_loop (loop, loop->temp_ss);
} }
else else
@ -5920,7 +5919,6 @@ gfc_conv_expr_descriptor (gfc_se * se, gfc_expr * expr, gfc_ss * ss)
se->string_length = loop.temp_ss->string_length; se->string_length = loop.temp_ss->string_length;
gcc_assert (loop.temp_ss->data.temp.dimen == loop.dimen); gcc_assert (loop.temp_ss->data.temp.dimen == loop.dimen);
loop.temp_ss->data.temp.codimen = loop.codimen;
gfc_add_ss_to_loop (&loop, loop.temp_ss); gfc_add_ss_to_loop (&loop, loop.temp_ss);
} }

2
gcc/fortran/trans.h
View File

@ -212,7 +212,7 @@ typedef struct gfc_ss
{ {
/* The rank of the temporary. May be less than the rank of the /* The rank of the temporary. May be less than the rank of the
assigned expression. */ assigned expression. */
int dimen, codimen; int dimen;
tree type; tree type;
} }
temp; temp;