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

trans-array.c (gfc_trans_auto_array_allocation): Replace fold(convert()) by fold_convert().

Browse Source 
* trans-array.c (gfc_trans_auto_array_allocation): Replace
	fold(convert()) by fold_convert().
	(gfc_duplicate_allocatable): Likewise.
	* trans-intrinsic.c (gfc_conv_intrinsic_dot_product): Use
	build_int_cst instead of converting an integer_zero_node
	to the final type.

From-SVN: r122921
This commit is contained in:
Francois-Xavier Coudert 2007-03-14 14:31:09 +01:00 committed by François-Xavier Coudert
parent 28c3de6487
commit 19ee20654b
3 changed files with 12 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
gcc/fortran/ChangeLog
View File

@ -1,3 +1,12 @@
2007-03-14 Francois-Xavier Coudert <coudert@clipper.ens.fr>
* trans-array.c (gfc_trans_auto_array_allocation): Replace
fold(convert()) by fold_convert().
(gfc_duplicate_allocatable): Likewise.
* trans-intrinsic.c (gfc_conv_intrinsic_dot_product): Use
build_int_cst instead of converting an integer_zero_node
to the final type.
2007-03-14 Jakub Jelinek <jakub@redhat.com> 2007-03-14 Jakub Jelinek <jakub@redhat.com>
* module.c (mio_typespec): Don't look at ts->cl if not BT_CHARACTER. * module.c (mio_typespec): Don't look at ts->cl if not BT_CHARACTER.

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

@ -3862,7 +3862,7 @@ gfc_trans_auto_array_allocation (tree decl, gfc_symbol * sym, tree fnbody)
else else
gcc_unreachable (); gcc_unreachable ();
tmp = build_call_expr (fndecl, 1, size); tmp = build_call_expr (fndecl, 1, size);
tmp = fold (convert (TREE_TYPE (decl), tmp)); tmp = fold_convert (TREE_TYPE (decl), tmp);
gfc_add_modify_expr (&block, decl, tmp); gfc_add_modify_expr (&block, decl, tmp);
/* Set offset of the array. */ /* Set offset of the array. */
@ -4918,8 +4918,7 @@ gfc_duplicate_allocatable(tree dest, tree src, tree type, int rank)
tmp = build_call_expr (gfor_fndecl_internal_malloc64, 1, size); tmp = build_call_expr (gfor_fndecl_internal_malloc64, 1, size);
else else
gcc_unreachable (); gcc_unreachable ();
tmp = fold (convert (TREE_TYPE (gfc_conv_descriptor_data_get (src)), tmp = fold_convert (TREE_TYPE (gfc_conv_descriptor_data_get (src)), tmp);
tmp));
gfc_conv_descriptor_data_set (&block, dest, tmp); gfc_conv_descriptor_data_set (&block, dest, tmp);
/* We know the temporary and the value will be the same length, /* We know the temporary and the value will be the same length,

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

@ -1840,7 +1840,7 @@ gfc_conv_intrinsic_dot_product (gfc_se * se, gfc_expr * expr)
/* Initialize the result. */ /* Initialize the result. */
resvar = gfc_create_var (type, "val"); resvar = gfc_create_var (type, "val");
if (expr->ts.type == BT_LOGICAL) if (expr->ts.type == BT_LOGICAL)
tmp = convert (type, integer_zero_node); tmp = build_int_cst (type, 0);
else else
tmp = gfc_build_const (type, integer_zero_node); tmp = gfc_build_const (type, integer_zero_node);