From cc0110cbd86fab6d6cf67742aad53b97fd9eb061 Mon Sep 17 00:00:00 2001 From: Piotr Trojanek Date: Thu, 21 Dec 2023 17:31:51 +0100 Subject: ada: Deconstruct support for abstract states with Relaxed_Initialization GNATprove newer implemented support for abstract states with aspect Relaxed_Initialization, so the frontend support is now deconstructed. gcc/ada/ * einfo-utils.adb (Is_Relaxed_Initialization_State): Remove. * einfo-utils.ads (Is_Relaxed_Initialization_State): Remove. * einfo.ads: Remove description of removed aspect. * fe.h (Is_Relaxed_Initialization_State): Remove. * sem_prag.adb (Analyze_Abstract_State): Remove support for Relaxed_Initialization. * sem_util.adb (Has_Relaxed_Initialization): Likewise. * sem_util.ads (Has_Relaxed_Initialization): Likewise. --- gcc/ada/einfo-utils.adb | 14 -------------- 1 file changed, 14 deletions(-) (limited to 'gcc/ada/einfo-utils.adb') diff --git a/gcc/ada/einfo-utils.adb b/gcc/ada/einfo-utils.adb index 00799eb..438868a 100644 --- a/gcc/ada/einfo-utils.adb +++ b/gcc/ada/einfo-utils.adb @@ -1649,20 +1649,6 @@ package body Einfo.Utils is and then Is_Protected_Type (Corresponding_Concurrent_Type (Id)); end Is_Protected_Record_Type; - ------------------------------------- - -- Is_Relaxed_Initialization_State -- - ------------------------------------- - - function Is_Relaxed_Initialization_State (Id : E) return B is - begin - -- To qualify, the abstract state must appear with simple option - -- "Relaxed_Initialization" (SPARK RM 6.10). - - return - Ekind (Id) = E_Abstract_State - and then Has_Option (Id, Name_Relaxed_Initialization); - end Is_Relaxed_Initialization_State; - -------------------------------- -- Is_Standard_Character_Type -- -------------------------------- -- cgit v1.1