diff options
| author | Robert Dewar <dewar@adacore.com> | 2011-08-02 14:35:51 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-08-02 16:35:51 +0200 |
| commit | 5b1e6aca6a6a9957a08823e04393f50fa2d48150 (patch) | |
| tree | b5e1f2abc5121468e223785e5208e0e3f4d7158a /gcc/ada/sem_aux.adb | |
| parent | 5ad4969daf921f7cd0e395d95f9ff9533b981d2e (diff) | |
| download | gcc-5b1e6aca6a6a9957a08823e04393f50fa2d48150.zip gcc-5b1e6aca6a6a9957a08823e04393f50fa2d48150.tar.gz gcc-5b1e6aca6a6a9957a08823e04393f50fa2d48150.tar.bz2 | |
einfo.ads, einfo.adb (Suppress_Initialization): Replaces Suppress_Init_Procs.
2011-08-02 Robert Dewar <dewar@adacore.com>
* einfo.ads, einfo.adb (Suppress_Initialization): Replaces
Suppress_Init_Procs.
* exp_ch3.adb, exp_disp.adb, freeze.adb: Use
Suppress_Initialization/Initialization_Suppressed.
* gnat_rm.texi: New documentation for pragma Suppress_Initialization
* sem_aux.ads, sem_aux.adb (Initialization_Suppressed): New function
* sem_dist.adb: Use Suppress_Initialization/Initialization_Suppressed
* sem_prag.adb: New processing for pragma Suppress_Initialization.
From-SVN: r177161
Diffstat (limited to 'gcc/ada/sem_aux.adb')
| -rwxr-xr-x | gcc/ada/sem_aux.adb | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/gcc/ada/sem_aux.adb b/gcc/ada/sem_aux.adb index e9a47a3..e46c872 100755 --- a/gcc/ada/sem_aux.adb +++ b/gcc/ada/sem_aux.adb @@ -403,6 +403,16 @@ package body Sem_Aux is return Empty; end First_Tag_Component; + ------------------------------- + -- Initialization_Suppressed -- + ------------------------------- + + function Initialization_Suppressed (Typ : Entity_Id) return Boolean is + begin + return Suppress_Initialization (Typ) + or else Suppress_Initialization (Base_Type (Typ)); + end Initialization_Suppressed; + ---------------- -- Initialize -- ---------------- |