From: Eric Botcazou Date: Sat, 17 Jun 2023 21:19:19 +0000 (+0200) Subject: ada: Make the identification of case expressions more robust X-Git-Tag: basepoints/gcc-15~8009 X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=388f22b92fe2218427e1b5ab5d29f51d037f2969;p=thirdparty%2Fgcc.git ada: Make the identification of case expressions more robust gcc/ada/ * gcc-interface/trans.cc (Case_Statement_to_gnu): Rename boolean constant and use From_Conditional_Expression flag for its value. --- diff --git a/gcc/ada/gcc-interface/trans.cc b/gcc/ada/gcc-interface/trans.cc index ddc7b6dde1e9..b74bb0683bf5 100644 --- a/gcc/ada/gcc-interface/trans.cc +++ b/gcc/ada/gcc-interface/trans.cc @@ -2700,11 +2700,9 @@ Case_Statement_to_gnu (Node_Id gnat_node) never been problematic, but not for case expressions in Ada 2012. */ if (choices_added_p) { - const bool is_case_expression - = (Nkind (Parent (gnat_node)) == N_Expression_With_Actions); - tree group - = build_stmt_group (Statements (gnat_when), !is_case_expression); - bool group_may_fallthru = block_may_fallthru (group); + const bool case_expr_p = From_Conditional_Expression (gnat_node); + tree group = build_stmt_group (Statements (gnat_when), !case_expr_p); + const bool group_may_fallthru = block_may_fallthru (group); add_stmt (group); if (group_may_fallthru) {