From: Piotr Trojanek <trojanek@adacore.com>
Date: Thu, 2 Jul 2020 12:05:30 +0000 (+0200)
Subject: [Ada] Simplify membership test for operators
X-Git-Tag: basepoints/gcc-12~4220
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=5a36f3d9b8693e9ec5e153000cc2e9fa40c47cab;p=thirdparty%2Fgcc.git

[Ada] Simplify membership test for operators

gcc/ada/

	* exp_ch6.adb (May_Fold): Detect all operators, i.e. both binary
	and unary ones.
---

diff --git a/gcc/ada/exp_ch6.adb b/gcc/ada/exp_ch6.adb
index 0ad59e8e0106..a1e545c6997e 100644
--- a/gcc/ada/exp_ch6.adb
+++ b/gcc/ada/exp_ch6.adb
@@ -2971,9 +2971,7 @@ package body Exp_Ch6 is
          function May_Fold (N : Node_Id) return Traverse_Result is
          begin
             case Nkind (N) is
-               when N_Binary_Op
-                  | N_Unary_Op
-               =>
+               when N_Op =>
                   return OK;
 
                when N_Expanded_Name