From 5b1e6aca6a6a9957a08823e04393f50fa2d48150 Mon Sep 17 00:00:00 2001 From: Robert Dewar Date: Tue, 2 Aug 2011 14:35:51 +0000 Subject: einfo.ads, einfo.adb (Suppress_Initialization): Replaces Suppress_Init_Procs. 2011-08-02 Robert Dewar * 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 --- gcc/ada/sem_aux.adb | 10 ++++++++++ 1 file changed, 10 insertions(+) (limited to 'gcc/ada/sem_aux.adb') 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 -- ---------------- -- cgit v1.1