diff options
| author | Tristan Gingold <gingold@adacore.com> | 2012-10-29 10:52:28 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2012-10-29 11:52:28 +0100 |
| commit | c18e9f65faeb5ea78af6d703c2e5b4e60de0485c (patch) | |
| tree | c984dd33ef86b98862cf158e113906ed181216b1 /gcc/ada/bindgen.adb | |
| parent | c607e6d50ef2dee78cdbf008f763c4098acb185a (diff) | |
| download | gcc-c18e9f65faeb5ea78af6d703c2e5b4e60de0485c.zip gcc-c18e9f65faeb5ea78af6d703c2e5b4e60de0485c.tar.gz gcc-c18e9f65faeb5ea78af6d703c2e5b4e60de0485c.tar.bz2 | |
bindgen.adb (Gen_Output_File_Ada): Do not emit declaration for Is_Elaborated if not referenced.
2012-10-29 Tristan Gingold <gingold@adacore.com>
* bindgen.adb (Gen_Output_File_Ada): Do not emit declaration for
Is_Elaborated if not referenced.
2012-10-29 Tristan Gingold <gingold@adacore.com>
* exp_ch9.adb (Build_Activation_Chain_Entity): Punt in restricted
profile.
* exp_ch3.adb (Build_Initialization_Call): Do no append _Chain
parameter in restricted profile.
(Build_Init_Call_Thru): Likewise.
(Init_Formals): Likewise.
* exp_ch3.adb: Minor reformatting.
From-SVN: r192925
Diffstat (limited to 'gcc/ada/bindgen.adb')
| -rw-r--r-- | gcc/ada/bindgen.adb | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/gcc/ada/bindgen.adb b/gcc/ada/bindgen.adb index f29e2da..e178a57 100644 --- a/gcc/ada/bindgen.adb +++ b/gcc/ada/bindgen.adb @@ -2394,8 +2394,13 @@ package body Bindgen is -- The B.1 (39) implementation advice says that the adainit/adafinal -- routines should be idempotent. Generate a flag to ensure that. + -- This is not needed if we are suppressing the standard library + -- since it would never be referenced. + + if not Suppress_Standard_Library_On_Target then + WBI (" Is_Elaborated : Boolean := False;"); + end if; - WBI (" Is_Elaborated : Boolean := False;"); WBI (""); end if; |