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

fortran: Remove redundant argument in get_var_descr

Browse source 
get_var_descr get passed as argument both expr and expr->ts.
Remove the type argument which can be retrieved from the other
argument.

gcc/fortran/ChangeLog:

	* trans.cc (get_var_descr): Remove argument ts.  Use var->ts
	instead.
	(gfc_add_finalizer_call): Update caller.
This commit is contained in:
Mikael Morin 2023-07-17 14:14:03 +02:00
parent 268fda4b42
commit 7b02a61794
1 changed files with 4 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
gcc/fortran/trans.cc
View file

@ -1140,11 +1140,10 @@ get_elem_size (gfc_se *se, gfc_expr *expr)
/* Generate the data reference (array) descriptor corresponding to the
expression passed as argument in VAR. Use type in TS to pilot code
generation. */
expression passed as argument in VAR. */
static void
get_var_descr (gfc_se *se, gfc_typespec *ts, gfc_expr *var)
get_var_descr (gfc_se *se, gfc_expr *var)
{
gfc_se tmp_se;
symbol_attribute attr;
@ -1153,7 +1152,7 @@ get_var_descr (gfc_se *se, gfc_typespec *ts, gfc_expr *var)
gfc_init_se (&tmp_se, NULL);
if (ts->type == BT_DERIVED)
if (var->ts.type == BT_DERIVED)
{
tmp_se.want_pointer = 1;
if (var->rank)
@ -1380,7 +1379,7 @@ gfc_add_finalizer_call (stmtblock_t *block, gfc_expr *expr2)
gfc_se desc_se;
gfc_init_se (&desc_se, NULL);
get_var_descr (&desc_se, &expr->ts, expr);
get_var_descr (&desc_se, expr);
gfc_add_block_to_block (&tmp_block, &desc_se.pre);
tmp = build_call_expr_loc (input_location, final_se.expr, 3,