diff options
| author | Piotr Trojanek <trojanek@adacore.com> | 2020-07-02 14:05:30 +0200 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2020-10-19 05:53:34 -0400 |
| commit | 5a36f3d9b8693e9ec5e153000cc2e9fa40c47cab (patch) | |
| tree | c1fb94aaa29970a0af2671cac8e41bb2cb071c48 /gcc | |
| parent | 00bccdf048803a264b4707ac0d23f0bfa0c1edaf (diff) | |
| download | gcc-5a36f3d9b8693e9ec5e153000cc2e9fa40c47cab.zip gcc-5a36f3d9b8693e9ec5e153000cc2e9fa40c47cab.tar.gz gcc-5a36f3d9b8693e9ec5e153000cc2e9fa40c47cab.tar.bz2 | |
[Ada] Simplify membership test for operators
gcc/ada/
* exp_ch6.adb (May_Fold): Detect all operators, i.e. both binary
and unary ones.
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/exp_ch6.adb | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/gcc/ada/exp_ch6.adb b/gcc/ada/exp_ch6.adb index 0ad59e8..a1e545c 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 |