diff options
| author | Bob Duff <duff@adacore.com> | 2022-03-23 14:04:22 -0400 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2022-05-17 08:25:46 +0000 |
| commit | 80d1067508d7cdfa765c93df1737015c07c7f11d (patch) | |
| tree | 30b7469953f1e6805503abb0924700ff14c288d4 | |
| parent | b81c9e4f9f48f6e65d2e7e02d928e31f24a37c63 (diff) | |
| download | gcc-80d1067508d7cdfa765c93df1737015c07c7f11d.zip gcc-80d1067508d7cdfa765c93df1737015c07c7f11d.tar.gz gcc-80d1067508d7cdfa765c93df1737015c07c7f11d.tar.bz2 | |
[Ada] Requires_Cleanup_Actions and N_Protected_Body
This patch disallows N_Protected_Body from being passed to
Requires_Cleanup_Actions. Protected bodies never need cleanup, and are
never passed to Requires_Cleanup_Actions, which is a good thing, because
it would blow up on Handled_Statement_Sequence, which doesn't exist for
N_Protected_Body.
gcc/ada/
* exp_util.adb (Requires_Cleanup_Actions): Remove
N_Protected_Body from the case statement, so that case will be
covered by "raise Program_Error".
| -rw-r--r-- | gcc/ada/exp_util.adb | 1 |
1 files changed, 0 insertions, 1 deletions
diff --git a/gcc/ada/exp_util.adb b/gcc/ada/exp_util.adb index d3fbc4b..32c1ff7 100644 --- a/gcc/ada/exp_util.adb +++ b/gcc/ada/exp_util.adb @@ -12781,7 +12781,6 @@ package body Exp_Util is | N_Block_Statement | N_Entry_Body | N_Package_Body - | N_Protected_Body | N_Subprogram_Body | N_Task_Body => |