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/sem_util.ads | |
parent | c8cf8c3fd0793e1d7ba8c6d0e906384f4fd9170c (diff) |
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/sem_util.ads')
-rw-r--r-- | gcc/ada/sem_util.ads | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/ada/sem_util.ads b/gcc/ada/sem_util.ads index 384b9a3dac8..db02d39fdee 100644 --- a/gcc/ada/sem_util.ads +++ b/gcc/ada/sem_util.ads @@ -1516,9 +1516,9 @@ package Sem_Util is function Has_Relaxed_Initialization (E : Entity_Id) return Boolean; -- Returns True iff entity E is subject to the Relaxed_Initialization - -- aspect. Entity E can be either type, variable, constant, subprogram, - -- entry or an abstract state. For private types and deferred constants - -- E should be the private view, because aspect can only be attached there. + -- aspect. Entity E can be either type, variable, constant, subprogram or + -- entry. For private types and deferred constants E should be the private + -- view, because aspect can only be attached there. function Has_Signed_Zeros (E : Entity_Id) return Boolean; -- Determines if the floating-point type E supports signed zeros. |