From 38c2f655ffa5cf2f335c2772ec484702d891a7c3 Mon Sep 17 00:00:00 2001 From: Maroua Maalej Date: Tue, 9 Oct 2018 15:06:30 +0000 Subject: [Ada] SPARK: fix bug related to non access object permissions 2018-10-09 Maroua Maalej gcc/ada/ * sem_spark.adb (Check_Declaration): fix bug related to non access object permissions. From-SVN: r264979 --- gcc/ada/sem_spark.adb | 20 ++------------------ 1 file changed, 2 insertions(+), 18 deletions(-) (limited to 'gcc/ada/sem_spark.adb') diff --git a/gcc/ada/sem_spark.adb b/gcc/ada/sem_spark.adb index 9a22092..0fe7c1b 100644 --- a/gcc/ada/sem_spark.adb +++ b/gcc/ada/sem_spark.adb @@ -1052,22 +1052,6 @@ package body Sem_SPARK is end if; end if; - elsif Nkind_In (Expression (Decl), - N_Attribute_Reference, - N_Attribute_Reference, - N_Expanded_Name, - N_Explicit_Dereference, - N_Indexed_Component, - N_Reference, - N_Selected_Component, - N_Slice) - then - if Is_Access_Type (Etype (Prefix (Expression (Decl)))) - or else Is_Deep (Etype (Prefix (Expression (Decl)))) - then - Current_Checking_Mode := Observe; - Check := True; - end if; end if; end if; @@ -1075,7 +1059,7 @@ package body Sem_SPARK is Check_Node (Expression (Decl)); end if; - -- If lhs is not a pointer, we still give it the appropriate + -- If lhs is not a pointer, we still give it the unrestricted -- state which is useless but not harmful. declare @@ -1215,7 +1199,7 @@ package body Sem_SPARK is when N_Attribute_Reference => case Attribute_Name (Expr) is when Name_Access => - Error_Msg_N ("access attribute not allowed in SPARK", Expr); + Error_Msg_N ("access attribute not allowed", Expr); when Name_Last | Name_First -- cgit v1.1