From 80d1067508d7cdfa765c93df1737015c07c7f11d Mon Sep 17 00:00:00 2001 From: Bob Duff Date: Wed, 23 Mar 2022 14:04:22 -0400 Subject: [PATCH] [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". --- gcc/ada/exp_util.adb | 1 - 1 file changed, 1 deletion(-) diff --git a/gcc/ada/exp_util.adb b/gcc/ada/exp_util.adb index d3fbc4bc644..32c1ff7b7fd 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 => -- 2.47.2