diff options
author | Arnaud Charlet <charlet@gcc.gnu.org> | 2013-10-10 12:37:53 +0200 |
---|---|---|
committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2013-10-10 12:37:53 +0200 |
commit | cd38efa560f565cb02cba62fe919e591dc110b74 (patch) | |
tree | 4eae409e43f75727ce132480e1c6fc7592638197 /gcc/ada/s-stopoo.ads | |
parent | d6394e2bbc175f53f60e71fccc5a9be4542ce68e (diff) | |
download | gcc-cd38efa560f565cb02cba62fe919e591dc110b74.zip gcc-cd38efa560f565cb02cba62fe919e591dc110b74.tar.gz gcc-cd38efa560f565cb02cba62fe919e591dc110b74.tar.bz2 |
[multiple changes]
2013-10-10 Robert Dewar <dewar@adacore.com>
* sem_ch3.adb: Minor reformatting.
2013-10-10 Robert Dewar <dewar@adacore.com>
* sinput-c.adb (Load_File): Ensure Source_Align alignment.
* sinput-d.adb (Create_Debug_Source): Ensure Source_Align alignment.
* sinput-l.adb (Create_Instantiation_Source): Ensure Source_Align
alignment.
(Load_File): Ditto.
* sinput.ads, sinput.adb (Get_Source_File_Index): New optimized (single
line) version.
* types.ads (Source_Align): New definition.
(Source_Buffer): Document new alignment requirement.
2013-10-10 Robert Dewar <dewar@adacore.com>
* sem_prag.adb (Analyze_Pragma, case Linker_Section): Allow
this for types.
2013-10-10 Robert Dewar <dewar@adacore.com>
* gnat_rm.texi: Minor adjustment to doc for To_Address attribute.
2013-10-10 Vadim Godunko <godunko@adacore.com>
* s-stopoo.ads (Root_Storage_Pool): Add pragma
Preelaborable_Initialization.
From-SVN: r203343
Diffstat (limited to 'gcc/ada/s-stopoo.ads')
-rw-r--r-- | gcc/ada/s-stopoo.ads | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/gcc/ada/s-stopoo.ads b/gcc/ada/s-stopoo.ads index e2d66ff..d6153ac 100644 --- a/gcc/ada/s-stopoo.ads +++ b/gcc/ada/s-stopoo.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1992-2011, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2013, Free Software Foundation, Inc. -- -- -- -- This specification is derived from the Ada Reference Manual for use with -- -- GNAT. The copyright notice above, and the license provisions that follow -- @@ -41,6 +41,7 @@ package System.Storage_Pools is type Root_Storage_Pool is abstract new Ada.Finalization.Limited_Controlled with private; + pragma Preelaborable_Initialization (Root_Storage_Pool); procedure Allocate (Pool : in out Root_Storage_Pool; |