Initial checkin of GCC 4.9.0 from trunk (r208799).

Change-Id: I48a3c08bb98542aa215912a75f03c0890e497dba

1 files changed, 63 insertions, 0 deletions

diff --git a/gcc-4.9/gcc/ada/a-zzunio.ads b/gcc-4.9/gcc/ada/a-zzunio.ads
new file mode 100644
index 000000000..1695b0629
--- /dev/null
+++ b/gcc-4.9/gcc/ada/a-zzunio.ads
@@ -0,0 +1,63 @@
+------------------------------------------------------------------------------
+--                                                                          --
+--                         GNAT RUN-TIME COMPONENTS                         --
+--                                                                          --
+--               ADA.WIDE_WIDE_TEXT_IO.WIDE_WIDE_UNBOUNDED_IO               --
+--                                                                          --
+--                                 S p e c                                  --
+--                                                                          --
+-- This specification is derived from the Ada Reference Manual for use with --
+-- GNAT.  In accordance with the copyright of that document, you can freely --
+-- copy and modify this specification,  provided that if you redistribute a --
+-- modified version,  any changes that you have made are clearly indicated. --
+--                                                                          --
+------------------------------------------------------------------------------
+
+--  Note: historically GNAT provided these subprograms as a child of the
+--  package Ada.Strings.Wide_Wide_Unbounded. So we implement this new Ada 2005
+--  package by renaming the subprograms in that child. This is a more
+--  straightforward implementation anyway, since we need access to the
+--  internal representation of Unbounded_Wide_Wide_String.
+
+with Ada.Strings.Wide_Wide_Unbounded;
+with Ada.Strings.Wide_Wide_Unbounded.Wide_Wide_Text_IO;
+
+package Ada.Wide_Wide_Text_IO.Wide_Wide_Unbounded_IO is
+
+   procedure Put
+     (File : File_Type;
+      Item : Strings.Wide_Wide_Unbounded.Unbounded_Wide_Wide_String)
+   renames Ada.Strings.Wide_Wide_Unbounded.Wide_Wide_Text_IO.Put;
+
+   procedure Put
+     (Item : Strings.Wide_Wide_Unbounded.Unbounded_Wide_Wide_String)
+   renames Ada.Strings.Wide_Wide_Unbounded.Wide_Wide_Text_IO.Put;
+
+   procedure Put_Line
+     (File : Wide_Wide_Text_IO.File_Type;
+      Item : Strings.Wide_Wide_Unbounded.Unbounded_Wide_Wide_String)
+   renames Ada.Strings.Wide_Wide_Unbounded.Wide_Wide_Text_IO.Put_Line;
+
+   procedure Put_Line
+     (Item : Strings.Wide_Wide_Unbounded.Unbounded_Wide_Wide_String)
+   renames Ada.Strings.Wide_Wide_Unbounded.Wide_Wide_Text_IO.Put_Line;
+
+   function Get_Line
+     (File : File_Type)
+      return Strings.Wide_Wide_Unbounded.Unbounded_Wide_Wide_String
+   renames Ada.Strings.Wide_Wide_Unbounded.Wide_Wide_Text_IO.Get_Line;
+
+   function Get_Line
+     return Strings.Wide_Wide_Unbounded.Unbounded_Wide_Wide_String
+   renames Ada.Strings.Wide_Wide_Unbounded.Wide_Wide_Text_IO.Get_Line;
+
+   procedure Get_Line
+      (File : File_Type;
+       Item : out Strings.Wide_Wide_Unbounded.Unbounded_Wide_Wide_String)
+   renames Ada.Strings.Wide_Wide_Unbounded.Wide_Wide_Text_IO.Get_Line;
+
+   procedure Get_Line
+     (Item : out Strings.Wide_Wide_Unbounded.Unbounded_Wide_Wide_String)
+   renames Ada.Strings.Wide_Wide_Unbounded.Wide_Wide_Text_IO.Get_Line;
+
+end Ada.Wide_Wide_Text_IO.Wide_Wide_Unbounded_IO;