[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 0ad59e8e0106b2d2e9593fd235c12c49730c3586..a1e545c6997e33fb4176fa857b0eb0c81fb96c78 100644 (file)
--- 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