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.



git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@111054 138bc75d-0d04-0410-961f-82ee72b054a4

1 files changed, 6 insertions, 1 deletions

diff --git a/gcc/ada/sequenio.ads b/gcc/ada/sequenio.ads
index f4a2726608f..8ea18905851 100644
--- a/gcc/ada/sequenio.ads
+++ b/gcc/ada/sequenio.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 Sequential_IO).
+
 with Ada.Sequential_IO;
 
 generic package Sequential_IO renames Ada.Sequential_IO;