trans.c (gnat_to_gnu): Do not apply special handling of boolean rvalues to function...

	* gcc-interface/trans.c (gnat_to_gnu): Do not apply special handling
	of boolean rvalues to function calls.

From-SVN: r245706

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index ffa4666d4e9796e096a297d49f01b4e47001b1f5..addb1cb9d158f847aeae69ef143722f8ea22f6e7 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,8 @@
+2017-02-24  Eric Botcazou  <ebotcazou@adacore.com>
+
+       * gcc-interface/trans.c (gnat_to_gnu): Do not apply special handling
+       of boolean rvalues to function calls.
+
 2017-02-24  Eric Botcazou  <ebotcazou@adacore.com>
 
        * gcc-interface/utils.c (fold_bit_position): New function.

diff --git a/gcc/ada/gcc-interface/trans.c b/gcc/ada/gcc-interface/trans.c
index d38a0a9601144100eb3b6867dc23354fc8bc76dd..0a7ddfcfdbb52b8e64516231d41c953605f89a26 100644 (file)
--- a/gcc/ada/gcc-interface/trans.c
+++ b/gcc/ada/gcc-interface/trans.c
@@ -7759,7 +7759,6 @@ gnat_to_gnu (Node_Id gnat_node)
       && (kind == N_Identifier
          || kind == N_Expanded_Name
          || kind == N_Explicit_Dereference
-         || kind == N_Function_Call
          || kind == N_Indexed_Component
          || kind == N_Selected_Component)
       && TREE_CODE (get_base_type (gnu_result_type)) == BOOLEAN_TYPE