FreeChainXenon/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

trans-array.c (dim_ok, [...]): Rename the former to the latter.

Browse source 
* trans-array.c (dim_ok, transposed_dims): Rename the former to the
	latter.  Change argument type.  Invert return value.
	(gfc_conv_expr_descriptor): Update calls.

From-SVN: r180862
This commit is contained in:
Mikael Morin 2011-11-03 21:35:35 +00:00
parent 820d5e68fb
commit a7fb208d57
2 changed files with 14 additions and 5 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-11-03 Mikael Morin <mikael@gcc.gnu.org>
* trans-array.c (dim_ok, transposed_dims): Rename the former to the
latter. Change argument type. Invert return value.
(gfc_conv_expr_descriptor): Update calls.
2011-11-03 Mikael Morin <mikael@gcc.gnu.org>
* trans-array.c (get_array_ref_dim): Change argument type and name.

13
gcc/fortran/trans-array.c
View file

@ -5659,13 +5659,16 @@ get_array_charlen (gfc_expr *expr, gfc_se *se)
/* Helper function to check dimensions. */
static bool
dim_ok (gfc_ss_info *info)
transposed_dims (gfc_ss *ss)
{
gfc_ss_info *info;
int n;
info = &ss->data.info;
for (n = 0; n < info->dimen; n++)
if (info->dim[n] != n)
return false;
return true;
return true;
return false;
}
/* Convert an array for passing as an actual argument. Expressions and
@ -5752,7 +5755,7 @@ gfc_conv_expr_descriptor (gfc_se * se, gfc_expr * expr, gfc_ss * ss)
else
full = gfc_full_array_ref_p (info->ref, NULL);
if (full && dim_ok (info))
if (full && !transposed_dims (ss))
{
if (se->direct_byref && !se->byref_noassign)
{
@ -5949,7 +5952,7 @@ gfc_conv_expr_descriptor (gfc_se * se, gfc_expr * expr, gfc_ss * ss)
desc = loop.temp_ss->data.info.descriptor;
}
else if (expr->expr_type == EXPR_FUNCTION && dim_ok (info))
else if (expr->expr_type == EXPR_FUNCTION && !transposed_dims (ss))
{
desc = info->descriptor;
se->string_length = ss->string_length;