diff options
| author | Martin Liska <mliska@suse.cz> | 2019-07-03 10:34:20 +0200 |
|---|---|---|
| committer | Martin Liska <marxin@gcc.gnu.org> | 2019-07-03 08:34:20 +0000 |
| commit | 8ba6ea878fd0965606ba6cfd74cf7097a40ed6c1 (patch) | |
| tree | 2fcd128b29308fd9264fcad903970fa1cdcdb84a /gcc/fortran/trans-expr.c | |
| parent | 6aa2e42cb4be16ee0937ba872b297b11d8f0a18b (diff) | |
| download | gcc-8ba6ea878fd0965606ba6cfd74cf7097a40ed6c1.zip gcc-8ba6ea878fd0965606ba6cfd74cf7097a40ed6c1.tar.gz gcc-8ba6ea878fd0965606ba6cfd74cf7097a40ed6c1.tar.bz2 | |
Remove another bunch of dead assignment.
2019-07-03 Martin Liska <mliska@suse.cz>
* lra-eliminations.c (eliminate_regs_in_insn): Remove
dead assignemts.
* reg-stack.c (check_asm_stack_operands): Likewise.
* tree-ssa-structalias.c (create_function_info_for): Likewise.
* tree-vect-generic.c (expand_vector_operations_1): Likewise.
* config/i386/i386-expand.c (ix86_expand_sse2_mulvxdi3): Use
force_expand_binop.
2019-07-03 Martin Liska <mliska@suse.cz>
* c-common.c (try_to_locate_new_include_insertion_point): Remove
dead assignemts.
2019-07-03 Martin Liska <mliska@suse.cz>
* call.c (build_new_op_1): Remove
dead assignemts.
* typeck.c (cp_build_binary_op): Likewise.
2019-07-03 Martin Liska <mliska@suse.cz>
* check.c (gfc_check_c_funloc): Remove
dead assignemts.
* decl.c (variable_decl): Likewise.
* resolve.c (resolve_typebound_function): Likewise.
* simplify.c (gfc_simplify_matmul): Likewise.
(gfc_simplify_scan): Likewise.
* trans-array.c (gfc_could_be_alias): Likewise.
* trans-common.c (add_equivalences): Likewise.
* trans-expr.c (trans_class_vptr_len_assignment): Likewise.
(gfc_trans_array_constructor_copy): Likewise.
(gfc_trans_assignment_1): Likewise.
* trans-intrinsic.c (conv_intrinsic_atomic_op): Likewise.
* trans-openmp.c (gfc_omp_finish_clause): Likewise.
* trans-types.c (gfc_get_array_descriptor_base): Likewise.
* trans.c (gfc_build_final_call): Likewise.
2019-07-03 Martin Liska <mliska@suse.cz>
* line-map.c (linemap_get_expansion_filename): Remove
dead assignemts.
* mkdeps.c (make_write): Likewise.
From-SVN: r272994
Diffstat (limited to 'gcc/fortran/trans-expr.c')
| -rw-r--r-- | gcc/fortran/trans-expr.c | 6 |
1 files changed, 0 insertions, 6 deletions
diff --git a/gcc/fortran/trans-expr.c b/gcc/fortran/trans-expr.c index 074568a..a4e8351 100644 --- a/gcc/fortran/trans-expr.c +++ b/gcc/fortran/trans-expr.c @@ -8912,7 +8912,6 @@ trans_class_vptr_len_assignment (stmtblock_t *block, gfc_expr * le, from_len = rse->string_length; else if (re->ts.type == BT_CHARACTER && re->ts.u.cl->length) { - from_len = gfc_get_expr_charlen (re); gfc_init_se (&se, NULL); gfc_conv_expr (&se, re->ts.u.cl->length); gfc_add_block_to_block (block, &se.pre); @@ -10171,10 +10170,6 @@ gfc_trans_array_constructor_copy (gfc_expr * expr1, gfc_expr * expr2) stype = gfc_typenode_for_spec (&expr2->ts); src = gfc_build_constant_array_constructor (expr2, stype); - stype = TREE_TYPE (src); - if (POINTER_TYPE_P (stype)) - stype = TREE_TYPE (stype); - return gfc_build_memcpy_call (dst, src, len); } @@ -10924,7 +10919,6 @@ gfc_trans_assignment_1 (gfc_expr * expr1, gfc_expr * expr2, bool init_flag, && (gfc_is_class_array_function (expr2) || gfc_is_alloc_class_scalar_function (expr2))) { - tmp = rse.expr; tmp = gfc_nullify_alloc_comp (expr1->ts.u.derived, rse.expr, 0); gfc_prepend_expr_to_block (&rse.post, tmp); if (lss != gfc_ss_terminator && rss == gfc_ss_terminator) |