From: Piotr Trojanek <trojanek@adacore.com>
Date: Thu, 16 Dec 2021 20:04:40 +0000 (+0100)
Subject: [Ada] Remove explicit expansion of block with general case statement
X-Git-Tag: basepoints/gcc-13~1957
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=69a6631a6ff0074083da528e3eec7dbf4997a609;p=thirdparty%2Fgcc.git

[Ada] Remove explicit expansion of block with general case statement

gcc/ada/

	* exp_ch5.adb (Expand_N_Case_Statement): Remove explicit
	expansion.
---

diff --git a/gcc/ada/exp_ch5.adb b/gcc/ada/exp_ch5.adb
index f9a9e7e3125c..0adf9f07410d 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;