diff options
| author | Piotr Trojanek <trojanek@adacore.com> | 2021-12-16 21:04:40 +0100 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2022-01-07 16:24:09 +0000 |
| commit | 69a6631a6ff0074083da528e3eec7dbf4997a609 (patch) | |
| tree | f1ae2fa70e5b5b3c92366ae7bf877ea130386b51 /gcc/ada | |
| parent | b2a99abba9b34f5ce81375f431772d6bd83bb0a0 (diff) | |
| download | gcc-69a6631a6ff0074083da528e3eec7dbf4997a609.zip gcc-69a6631a6ff0074083da528e3eec7dbf4997a609.tar.gz gcc-69a6631a6ff0074083da528e3eec7dbf4997a609.tar.bz2 | |
[Ada] Remove explicit expansion of block with general case statement
gcc/ada/
* exp_ch5.adb (Expand_N_Case_Statement): Remove explicit
expansion.
Diffstat (limited to 'gcc/ada')
| -rw-r--r-- | gcc/ada/exp_ch5.adb | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/gcc/ada/exp_ch5.adb b/gcc/ada/exp_ch5.adb index f9a9e7e..0adf9f07 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; |