From 9880acc19effbc5fa5b1f5cb155a3a6a83f7c978 Mon Sep 17 00:00:00 2001 From: Tamar Christina Date: Wed, 23 Aug 2017 11:32:47 +0000 Subject: [PATCH] re PR middle-end/19706 (Recognize common Fortran usages of copysign.) 2017-08-23 Tamar Christina PR middle-end/19706 * tree-ssa-math-opts.c (convert_expand_mult_copysign): Fix single-use check. From-SVN: r251303 --- gcc/ChangeLog | 6 ++++++ gcc/tree-ssa-math-opts.c | 7 +++---- 2 files changed, 9 insertions(+), 4 deletions(-) diff --git a/gcc/ChangeLog b/gcc/ChangeLog index d5ada51a671..1c7462f7ef2 100644 --- a/gcc/ChangeLog +++ b/gcc/ChangeLog @@ -1,3 +1,9 @@ +2017-08-23 Tamar Christina + + PR middle-end/19706 + * tree-ssa-math-opts.c (convert_expand_mult_copysign): + Fix single-use check. + 2017-08-23 Thomas Preud'homme * gcc.c (execute): Only test for SIGKILL and SIGQUIT if available. diff --git a/gcc/tree-ssa-math-opts.c b/gcc/tree-ssa-math-opts.c index 0d75751f230..073c9dc19ac 100644 --- a/gcc/tree-ssa-math-opts.c +++ b/gcc/tree-ssa-math-opts.c @@ -3200,21 +3200,20 @@ convert_expand_mult_copysign (gimple *stmt, gimple_stmt_iterator *gsi) type = TREE_TYPE (lhs); machine_mode mode = TYPE_MODE (type); - if (HONOR_SNANS (type) || !has_single_use (lhs)) + if (HONOR_SNANS (type)) return false; if (TREE_CODE (treeop0) == SSA_NAME && TREE_CODE (treeop1) == SSA_NAME) { gimple *call0 = SSA_NAME_DEF_STMT (treeop0); - if (!is_copysign_call_with_1 (call0)) + if (!has_single_use (treeop0) || !is_copysign_call_with_1 (call0)) { call0 = SSA_NAME_DEF_STMT (treeop1); - if (!is_copysign_call_with_1 (call0)) + if (!has_single_use (treeop1) || !is_copysign_call_with_1 (call0)) return false; treeop1 = treeop0; } - if (optab_handler (xorsign_optab, mode) == CODE_FOR_nothing) return false; -- 2.30.2