From 5a36f3d9b8693e9ec5e153000cc2e9fa40c47cab Mon Sep 17 00:00:00 2001
From: Piotr Trojanek <trojanek@adacore.com>
Date: Thu, 2 Jul 2020 14:05:30 +0200
Subject: [PATCH] [Ada] Simplify membership test for operators

gcc/ada/

	* exp_ch6.adb (May_Fold): Detect all operators, i.e. both binary
	and unary ones.
---
 gcc/ada/exp_ch6.adb | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/gcc/ada/exp_ch6.adb b/gcc/ada/exp_ch6.adb
index 0ad59e8e010..a1e545c6997 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
-- 
2.30.2