[gcc r12-6356] [Ada] Remove explicit expansion of block with general case statement

[gcc r12-6356] [Ada] Remove explicit expansion of block with general case statement

[Pierre-Marie de Rodat]

https://gcc.gnu.org/g:69a6631a6ff0074083da528e3eec7dbf4997a609

commit r12-6356-g69a6631a6ff0074083da528e3eec7dbf4997a609
Author: Piotr Trojanek <trojanek@adacore.com>
Date:   Thu Dec 16 21:04:40 2021 +0100

    [Ada] Remove explicit expansion of block with general case statement
    
    gcc/ada/
    
            * exp_ch5.adb (Expand_N_Case_Statement): Remove explicit
            expansion.

Diff:
---
 gcc/ada/exp_ch5.adb | 2 --
 1 file changed, 2 deletions(-)

diff --git a/gcc/ada/exp_ch5.adb b/gcc/ada/exp_ch5.adb
index f9a9e7e3125..0adf9f07410 100644
--- a/gcc/ada/exp_ch5.adb
+++ b/gcc/ada/exp_ch5.adb
@@ -39,7 +39,6 @@ with Exp_Dbug;       use Exp_Dbug;
 with Exp_Pakd;       use Exp_Pakd;
 with Exp_Tss;        use Exp_Tss;
 with Exp_Util;       use Exp_Util;
-with Expander;       use Expander;
 with Inline;         use Inline;
 with Namet;          use Namet;
 with Nlists;         use Nlists;
@@ -3876,7 +3875,6 @@ package body Exp_Ch5 is
       if Extensions_Allowed and then not Is_Discrete_Type (Etype (Expr)) then
          Rewrite (N, Expand_General_Case_Statement);
          Analyze (N);
-         Expand (N);
          return;
       end if;