Merge "Check in a pristine copy of GCC 4.8.1."

1 files changed, 61 insertions, 0 deletions

diff --git a/gcc-4.8.1/gcc/ada/a-wwunio.ads b/gcc-4.8.1/gcc/ada/a-wwunio.ads
new file mode 100644
index 000000000..de044c580
--- /dev/null
+++ b/gcc-4.8.1/gcc/ada/a-wwunio.ads
@@ -0,0 +1,61 @@
+------------------------------------------------------------------------------
+--                                                                          --
+--                         GNAT RUN-TIME COMPONENTS                         --
+--                                                                          --
+--   A D A . W I D E _ T E X T _ I O . W I D E _ U N B O U N D E D _ I O    --
+--                                                                          --
+--                                 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_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_String.
+
+with Ada.Strings.Wide_Unbounded;
+with Ada.Strings.Wide_Unbounded.Wide_Text_IO;
+
+package Ada.Wide_Text_IO.Wide_Unbounded_IO is
+
+   procedure Put
+     (File : File_Type;
+      Item : Strings.Wide_Unbounded.Unbounded_Wide_String)
+   renames Ada.Strings.Wide_Unbounded.Wide_Text_IO.Put;
+
+   procedure Put
+     (Item : Strings.Wide_Unbounded.Unbounded_Wide_String)
+   renames Ada.Strings.Wide_Unbounded.Wide_Text_IO.Put;
+
+   procedure Put_Line
+     (File : Wide_Text_IO.File_Type;
+      Item : Strings.Wide_Unbounded.Unbounded_Wide_String)
+   renames Ada.Strings.Wide_Unbounded.Wide_Text_IO.Put_Line;
+
+   procedure Put_Line
+     (Item : Strings.Wide_Unbounded.Unbounded_Wide_String)
+   renames Ada.Strings.Wide_Unbounded.Wide_Text_IO.Put_Line;
+
+   function Get_Line
+     (File : File_Type) return Strings.Wide_Unbounded.Unbounded_Wide_String
+   renames Ada.Strings.Wide_Unbounded.Wide_Text_IO.Get_Line;
+
+   function Get_Line return Strings.Wide_Unbounded.Unbounded_Wide_String
+   renames Ada.Strings.Wide_Unbounded.Wide_Text_IO.Get_Line;
+
+   procedure Get_Line
+      (File : File_Type;
+       Item : out Strings.Wide_Unbounded.Unbounded_Wide_String)
+   renames Ada.Strings.Wide_Unbounded.Wide_Text_IO.Get_Line;
+
+   procedure Get_Line
+     (Item : out Strings.Wide_Unbounded.Unbounded_Wide_String)
+   renames Ada.Strings.Wide_Unbounded.Wide_Text_IO.Get_Line;
+
+end Ada.Wide_Text_IO.Wide_Unbounded_IO;