diff options
| author | Piotr Trojanek <trojanek@adacore.com> | 2023-12-21 17:31:51 +0100 |
|---|---|---|
| committer | Marc Poulhiès <poulhies@adacore.com> | 2024-05-06 11:11:30 +0200 |
| commit | cc0110cbd86fab6d6cf67742aad53b97fd9eb061 (patch) | |
| tree | 65fee0c2677d33a7ec429376a68e9cd5f04730a3 /gcc/ada/einfo-utils.adb | |
| parent | c8cf8c3fd0793e1d7ba8c6d0e906384f4fd9170c (diff) | |
| download | gcc-cc0110cbd86fab6d6cf67742aad53b97fd9eb061.zip gcc-cc0110cbd86fab6d6cf67742aad53b97fd9eb061.tar.gz gcc-cc0110cbd86fab6d6cf67742aad53b97fd9eb061.tar.bz2 | |
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.
Diffstat (limited to 'gcc/ada/einfo-utils.adb')
| -rw-r--r-- | gcc/ada/einfo-utils.adb | 14 |
1 files changed, 0 insertions, 14 deletions
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 -- -------------------------------- |