diff options
Diffstat (limited to 'gcc/ada/expander.adb')
| -rw-r--r-- | gcc/ada/expander.adb | 62 |
1 files changed, 36 insertions, 26 deletions
diff --git a/gcc/ada/expander.adb b/gcc/ada/expander.adb index d6219f4..e0483b7 100644 --- a/gcc/ada/expander.adb +++ b/gcc/ada/expander.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2020, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2021, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -23,31 +23,32 @@ -- -- ------------------------------------------------------------------------------ -with Atree; use Atree; -with Debug; use Debug; -with Debug_A; use Debug_A; -with Exp_Aggr; use Exp_Aggr; -with Exp_SPARK; use Exp_SPARK; -with Exp_Attr; use Exp_Attr; -with Exp_Ch2; use Exp_Ch2; -with Exp_Ch3; use Exp_Ch3; -with Exp_Ch4; use Exp_Ch4; -with Exp_Ch5; use Exp_Ch5; -with Exp_Ch6; use Exp_Ch6; -with Exp_Ch7; use Exp_Ch7; -with Exp_Ch8; use Exp_Ch8; -with Exp_Ch9; use Exp_Ch9; -with Exp_Ch11; use Exp_Ch11; -with Exp_Ch12; use Exp_Ch12; -with Exp_Ch13; use Exp_Ch13; -with Exp_Prag; use Exp_Prag; -with Ghost; use Ghost; -with Opt; use Opt; -with Rtsfind; use Rtsfind; -with Sem; use Sem; -with Sem_Ch8; use Sem_Ch8; -with Sem_Util; use Sem_Util; -with Sinfo; use Sinfo; +with Atree; use Atree; +with Debug; use Debug; +with Debug_A; use Debug_A; +with Exp_Aggr; use Exp_Aggr; +with Exp_SPARK; use Exp_SPARK; +with Exp_Attr; use Exp_Attr; +with Exp_Ch2; use Exp_Ch2; +with Exp_Ch3; use Exp_Ch3; +with Exp_Ch4; use Exp_Ch4; +with Exp_Ch5; use Exp_Ch5; +with Exp_Ch6; use Exp_Ch6; +with Exp_Ch7; use Exp_Ch7; +with Exp_Ch8; use Exp_Ch8; +with Exp_Ch9; use Exp_Ch9; +with Exp_Ch11; use Exp_Ch11; +with Exp_Ch12; use Exp_Ch12; +with Exp_Ch13; use Exp_Ch13; +with Exp_Prag; use Exp_Prag; +with Ghost; use Ghost; +with Opt; use Opt; +with Rtsfind; use Rtsfind; +with Sem; use Sem; +with Sem_Ch8; use Sem_Ch8; +with Sem_Util; use Sem_Util; +with Sinfo; use Sinfo; +with Sinfo.Nodes; use Sinfo.Nodes; with Table; package body Expander is @@ -273,6 +274,9 @@ package body Expander is when N_Generic_Instantiation => Expand_N_Generic_Instantiation (N); + when N_Goto_When_Statement => + Expand_N_Goto_When_Statement (N); + when N_Handled_Sequence_Of_Statements => Expand_N_Handled_Sequence_Of_Statements (N); @@ -420,6 +424,9 @@ package body Expander is when N_Raise_Statement => Expand_N_Raise_Statement (N); + when N_Raise_When_Statement => + Expand_N_Raise_When_Statement (N); + when N_Raise_Constraint_Error => Expand_N_Raise_Constraint_Error (N); @@ -441,6 +448,9 @@ package body Expander is when N_Requeue_Statement => Expand_N_Requeue_Statement (N); + when N_Return_When_Statement => + Expand_N_Return_When_Statement (N); + when N_Simple_Return_Statement => Expand_N_Simple_Return_Statement (N); |