diff options
| author | Robert Dewar <dewar@adacore.com> | 2006-02-15 10:36:57 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2006-02-15 10:36:57 +0100 |
| commit | 1f6a2b51d1d0c2a3a835cc47d34c0c52b0f56945 (patch) | |
| tree | 9648ffa2fef61a47fdbcd90b5f5de65b15f23b2d /gcc/ada/text_io.ads | |
| parent | 61dddae4e72e300597afeff4b081114a25598c5f (diff) | |
| download | gcc-1f6a2b51d1d0c2a3a835cc47d34c0c52b0f56945.zip gcc-1f6a2b51d1d0c2a3a835cc47d34c0c52b0f56945.tar.gz gcc-1f6a2b51d1d0c2a3a835cc47d34c0c52b0f56945.tar.bz2 | |
opt.ads opt.adb: Add Ada_Version_Explicit_Config along with save/restore routines.
2006-02-13 Robert Dewar <dewar@adacore.com>
Serguei Rybin <rybin@adacore.com>
* opt.ads opt.adb: Add Ada_Version_Explicit_Config along with
save/restore routines.
Properly handle Ada_Version_Explicit and Ada_Version_Config, which
were not always properly handled previously.
Since we are changing the tree format anyway, also get rid of the
junk obsolete Immediate_Errors flag.
(Tree_Read): Change the way of reading Tree_Version_String - now we
read the version string from the tree even if its length is not the
same as the length of the version string computed from Gnatvsn.
(Search_Directory_Present): New Boolean flag for the compiler.
Define Tree_Version_String as a dynamic string.
(Default_Stack_Size): new variable, used to handle switch -d.
* par-prag.adb:
For pragma Ada_2005, remove stuff about setting Ada_Version_Explicit
only for main unit.
Add pragma Ada_2005 (synonym for Ada_05)
Properly handle Ada_Version_Explicit and Ada_Version_Config, which
were not always properly handled previously.
* directio.ads, ioexcept.ads, sequenio.ads, text_io.ads: Change
explicit Ada_95 to Ada_2005.
From-SVN: r111054
Diffstat (limited to 'gcc/ada/text_io.ads')
| -rw-r--r-- | gcc/ada/text_io.ads | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/gcc/ada/text_io.ads b/gcc/ada/text_io.ads index 6b5d08c..f51e1c2 100644 --- a/gcc/ada/text_io.ads +++ b/gcc/ada/text_io.ads @@ -13,7 +13,12 @@ -- -- ------------------------------------------------------------------------------ -pragma Ada_95; +pragma Ada_2005; +-- Explicit setting of Ada 2005 mode is required here, since we want to with a +-- child unit (not possible in Ada 83 mode), and Text_IO is not considered to +-- be an internal unit that is automatically compiled in Ada 2005 mode (since +-- a user is allowed to redeclare Text_IO). + with Ada.Text_IO; package Text_IO renames Ada.Text_IO; |