diff options
Diffstat (limited to 'gcc/ada/exp_util.adb')
| -rw-r--r-- | gcc/ada/exp_util.adb | 12 |
1 files changed, 5 insertions, 7 deletions
diff --git a/gcc/ada/exp_util.adb b/gcc/ada/exp_util.adb index c8d41cb0e7c..fbf7fe92038 100644 --- a/gcc/ada/exp_util.adb +++ b/gcc/ada/exp_util.adb @@ -5468,7 +5468,6 @@ package body Exp_Util is function Are_Wrapped (L : List_Id) return Boolean is Stmt : constant Node_Id := First (L); - begin return Present (Stmt) @@ -5494,15 +5493,14 @@ package body Exp_Util is begin case Nkind (N) is - when N_Elsif_Part | - N_If_Statement | - N_Conditional_Entry_Call | - N_Selective_Accept => + when N_Elsif_Part | + N_If_Statement | + N_Conditional_Entry_Call | + N_Selective_Accept => -- Check the "then statements" for elsif parts and if statements - if Nkind_In (N, N_Elsif_Part, - N_If_Statement) + if Nkind_In (N, N_Elsif_Part, N_If_Statement) and then not Is_Empty_List (Then_Statements (N)) and then not Are_Wrapped (Then_Statements (N)) and then Requires_Cleanup_Actions |