From: Piotr Trojanek <troja...@adacore.com> Trivial mistakes in copied code.
gcc/ada/ * sem_prag.adb (Analyze_Pragma): Fix references to Exceptional_Cases in code copied from handling of Subprogram_Variant. Tested on x86_64-pc-linux-gnu, committed on master. --- gcc/ada/sem_prag.adb | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/gcc/ada/sem_prag.adb b/gcc/ada/sem_prag.adb index 963c6dea238..40636f21fc7 100644 --- a/gcc/ada/sem_prag.adb +++ b/gcc/ada/sem_prag.adb @@ -16688,7 +16688,7 @@ package body Sem_Prag is Ensure_Aggregate_Form (Get_Argument (N, Spec_Id)); -- Chain the pragma on the contract for further processing by - -- Analyze_Subprogram_Variant_In_Decl_Part. + -- Analyze_Exceptional_Cases_In_Decl_Part. Add_Contract_Item (N, Defining_Entity (Subp_Decl)); @@ -16698,13 +16698,13 @@ package body Sem_Prag is if Nkind (Subp_Decl) in N_Subprogram_Body | N_Subprogram_Body_Stub then - -- The legality checks of pragma Subprogram_Variant are + -- The legality checks of pragma Exceptional_Cases are -- affected by the SPARK mode in effect and the volatility -- of the context. Analyze all pragmas in a specific order. Analyze_If_Present (Pragma_SPARK_Mode); Analyze_If_Present (Pragma_Volatile_Function); - Analyze_Subprogram_Variant_In_Decl_Part (N); + Analyze_Exceptional_Cases_In_Decl_Part (N); end if; end Exceptional_Cases; -- 2.40.0