diff options
author | Hristian Kirtchev <kirtchev@adacore.com> | 2006-02-15 10:34:21 +0100 |
---|---|---|
committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2006-02-15 10:34:21 +0100 |
commit | e1458816e144304839f515e2c324763615f71020 (patch) | |
tree | 07fea6d78eec6306b0ae738e2edc259ec50a550b /gcc | |
parent | 31d7a8bd3d322870543d960e7f8e7b909d7e4950 (diff) | |
download | gcc-e1458816e144304839f515e2c324763615f71020.zip gcc-e1458816e144304839f515e2c324763615f71020.tar.gz gcc-e1458816e144304839f515e2c324763615f71020.tar.bz2 |
a-tiboio.adb, [...]: New files.
2006-02-13 Hristian Kirtchev <kirtchev@adacore.com>
* a-tiboio.adb, a-tiboio.ads, a-wwboio.adb,
a-wwboio.ads, a-zzboio.adb, a-zzboio.ads: New files.
* impunit.adb, Makefile.rtl: Added new Ada 2005 units.
From-SVN: r111041
Diffstat (limited to 'gcc')
-rw-r--r-- | gcc/ada/Makefile.rtl | 15 | ||||
-rw-r--r-- | gcc/ada/a-tiboio.adb | 181 | ||||
-rw-r--r-- | gcc/ada/a-tiboio.ads | 52 | ||||
-rw-r--r-- | gcc/ada/a-wwboio.adb | 181 | ||||
-rw-r--r-- | gcc/ada/a-wwboio.ads | 52 | ||||
-rw-r--r-- | gcc/ada/a-zzboio.adb | 182 | ||||
-rw-r--r-- | gcc/ada/a-zzboio.ads | 52 | ||||
-rw-r--r-- | gcc/ada/impunit.adb | 17 |
8 files changed, 731 insertions, 1 deletions
diff --git a/gcc/ada/Makefile.rtl b/gcc/ada/Makefile.rtl index def747d..063fb1e 100644 --- a/gcc/ada/Makefile.rtl +++ b/gcc/ada/Makefile.rtl @@ -32,6 +32,7 @@ GNATRTL_TASKING_OBJS= \ a-intnam$(objext) \ a-reatim$(objext) \ a-retide$(objext) \ + a-rttiev$(objext) \ a-sytaco$(objext) \ a-tasatt$(objext) \ a-taside$(objext) \ @@ -108,6 +109,7 @@ GNATRTL_NONTASKING_OBJS= \ a-coormu$(objext) \ a-coorse$(objext) \ a-coprnu$(objext) \ + a-coteio$(objext) \ a-crbltr$(objext) \ a-crbtgk$(objext) \ a-crbtgo$(objext) \ @@ -120,6 +122,7 @@ GNATRTL_NONTASKING_OBJS= \ a-dirval$(objext) \ a-einuoc$(objext) \ a-elchha$(objext) \ + a-envvar$(objext) \ a-except$(objext) \ a-exctra$(objext) \ a-filico$(objext) \ @@ -129,7 +132,9 @@ GNATRTL_NONTASKING_OBJS= \ a-inteio$(objext) \ a-ioexce$(objext) \ a-iwteio$(objext) \ + a-lcteio$(objext) \ a-lfteio$(objext) \ + a-llctio$(objext) \ a-lfwtio$(objext) \ a-lfztio$(objext) \ a-liteio$(objext) \ @@ -161,6 +166,7 @@ GNATRTL_NONTASKING_OBJS= \ a-numaux$(objext) \ a-numeri$(objext) \ a-rbtgso$(objext) \ + a-scteio$(objext) \ a-secain$(objext) \ a-sequio$(objext) \ a-sfteio$(objext) \ @@ -176,6 +182,8 @@ GNATRTL_NONTASKING_OBJS= \ a-ssitio$(objext) \ a-ssiwti$(objext) \ a-ssizti$(objext) \ + a-stboha$(objext) \ + a-stfiha$(objext) \ a-stmaco$(objext) \ a-storio$(objext) \ a-strbou$(objext) \ @@ -205,10 +213,14 @@ GNATRTL_NONTASKING_OBJS= \ a-stzsup$(objext) \ a-stzunb$(objext) \ a-suteio$(objext) \ + a-swbwha$(objext) \ + a-swfwha$(objext) \ a-swmwco$(objext) \ a-swunau$(objext) \ a-swuwha$(objext) \ a-swuwti$(objext) \ + a-szbzha$(objext) \ + a-szfzha$(objext) \ a-szmzco$(objext) \ a-szunau$(objext) \ a-szuzha$(objext) \ @@ -217,6 +229,7 @@ GNATRTL_NONTASKING_OBJS= \ a-tgdico$(objext) \ a-teioed$(objext) \ a-textio$(objext) \ + a-tiboio$(objext) \ a-ticoau$(objext) \ a-ticoio$(objext) \ a-tideau$(objext) \ @@ -256,6 +269,7 @@ GNATRTL_NONTASKING_OBJS= \ a-wtmoau$(objext) \ a-wtmoio$(objext) \ a-wttest$(objext) \ + a-wwboio$(objext) \ a-wwunio$(objext) \ a-zchara$(objext) \ a-zchuni$(objext) \ @@ -277,6 +291,7 @@ GNATRTL_NONTASKING_OBJS= \ a-ztmoau$(objext) \ a-ztmoio$(objext) \ a-zttest$(objext) \ + a-zzboio$(objext) \ a-zzunio$(objext) \ ada$(objext) \ calendar$(objext) \ diff --git a/gcc/ada/a-tiboio.adb b/gcc/ada/a-tiboio.adb new file mode 100644 index 0000000..a7b91be --- /dev/null +++ b/gcc/ada/a-tiboio.adb @@ -0,0 +1,181 @@ +------------------------------------------------------------------------------ +-- -- +-- GNAT RUN-TIME COMPONENTS -- +-- -- +-- A D A . T E X T _ I O . B O U N D E D _ I O -- +-- -- +-- B o d y -- +-- -- +-- Copyright (C) 1997-2005, Free Software Foundation, Inc. -- +-- -- +-- GNAT is free software; you can redistribute it and/or modify it under -- +-- terms of the GNU General Public License as published by the Free Soft- -- +-- ware Foundation; either version 2, or (at your option) any later ver- -- +-- sion. GNAT is distributed in the hope that it will be useful, but WITH- -- +-- OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY -- +-- or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License -- +-- for more details. You should have received a copy of the GNU General -- +-- Public License distributed with GNAT; see file COPYING. If not, write -- +-- to the Free Software Foundation, 51 Franklin Street, Fifth Floor, -- +-- Boston, MA 02110-1301, USA. -- +-- -- +-- As a special exception, if other files instantiate generics from this -- +-- unit, or you link this unit with other files to produce an executable, -- +-- this unit does not by itself cause the resulting executable to be -- +-- covered by the GNU General Public License. This exception does not -- +-- however invalidate any other reasons why the executable file might be -- +-- covered by the GNU Public License. -- +-- -- +-- GNAT was originally developed by the GNAT team at New York University. -- +-- Extensive contributions were provided by Ada Core Technologies Inc. -- +-- -- +------------------------------------------------------------------------------ + +with Ada.Text_IO; use Ada.Text_IO; +with Ada.Unchecked_Deallocation; + +package body Ada.Text_IO.Bounded_IO is + + type String_Access is access all String; + + procedure Free (SA : in out String_Access); + -- Perform an unchecked deallocation of a non-null string + + ---------- + -- Free -- + ---------- + + procedure Free (SA : in out String_Access) is + Null_String : constant String := ""; + + procedure Deallocate is + new Ada.Unchecked_Deallocation (String, String_Access); + + begin + -- Do not try to free statically allocated null string + + if SA.all /= Null_String then + Deallocate (SA); + end if; + end Free; + + -------------- + -- Get_Line -- + -------------- + + function Get_Line return Bounded.Bounded_String is + begin + return Bounded.To_Bounded_String (Get_Line); + end Get_Line; + + -------------- + -- Get_Line -- + -------------- + + function Get_Line + (File : File_Type) return Bounded.Bounded_String + is + begin + return Bounded.To_Bounded_String (Get_Line (File)); + end Get_Line; + + -------------- + -- Get_Line -- + -------------- + + procedure Get_Line + (Item : out Bounded.Bounded_String) + is + Buffer : String (1 .. 1000); + Last : Natural; + Str1 : String_Access; + Str2 : String_Access; + + begin + Get_Line (Buffer, Last); + Str1 := new String'(Buffer (1 .. Last)); + + while Last = Buffer'Last loop + Get_Line (Buffer, Last); + Str2 := new String'(Str1.all & Buffer (1 .. Last)); + Free (Str1); + Str1 := Str2; + end loop; + + Item := Bounded.To_Bounded_String (Str1.all); + end Get_Line; + + -------------- + -- Get_Line -- + -------------- + + procedure Get_Line + (File : File_Type; + Item : out Bounded.Bounded_String) + is + Buffer : String (1 .. 1000); + Last : Natural; + Str1 : String_Access; + Str2 : String_Access; + + begin + Get_Line (File, Buffer, Last); + Str1 := new String'(Buffer (1 .. Last)); + + while Last = Buffer'Last loop + Get_Line (File, Buffer, Last); + Str2 := new String'(Str1.all & Buffer (1 .. Last)); + Free (Str1); + Str1 := Str2; + end loop; + + Item := Bounded.To_Bounded_String (Str1.all); + end Get_Line; + + --------- + -- Put -- + --------- + + procedure Put + (Item : Bounded.Bounded_String) + is + begin + Put (Bounded.To_String (Item)); + end Put; + + --------- + -- Put -- + --------- + + procedure Put + (File : File_Type; + Item : Bounded.Bounded_String) + is + begin + Put (File, Bounded.To_String (Item)); + end Put; + + -------------- + -- Put_Line -- + -------------- + + procedure Put_Line + (Item : Bounded.Bounded_String) + is + begin + Put_Line (Bounded.To_String (Item)); + end Put_Line; + + -------------- + -- Put_Line -- + -------------- + + procedure Put_Line + (File : File_Type; + Item : Bounded.Bounded_String) + is + begin + Put_Line (File, Bounded.To_String (Item)); + end Put_Line; + +end Ada.Text_IO.Bounded_IO; diff --git a/gcc/ada/a-tiboio.ads b/gcc/ada/a-tiboio.ads new file mode 100644 index 0000000..4f23c7e --- /dev/null +++ b/gcc/ada/a-tiboio.ads @@ -0,0 +1,52 @@ +------------------------------------------------------------------------------ +-- -- +-- GNAT RUN-TIME COMPONENTS -- +-- -- +-- A D A . T E X T _ I O . B O U N D E D _ I O -- +-- -- +-- S p e c -- +-- -- +-- Copyright (C) 1997-2005, Free Software Foundation, Inc. -- +-- -- +-- This specification is adapted 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. -- +-- -- +------------------------------------------------------------------------------ + +with Ada.Strings.Bounded; + +generic + with package Bounded is + new Ada.Strings.Bounded.Generic_Bounded_Length (<>); + +package Ada.Text_IO.Bounded_IO is + + function Get_Line return Bounded.Bounded_String; + + function Get_Line + (File : File_Type) return Bounded.Bounded_String; + + procedure Get_Line + (Item : out Bounded.Bounded_String); + + procedure Get_Line + (File : File_Type; + Item : out Bounded.Bounded_String); + + procedure Put + (Item : Bounded.Bounded_String); + + procedure Put + (File : File_Type; + Item : Bounded.Bounded_String); + + procedure Put_Line + (Item : Bounded.Bounded_String); + + procedure Put_Line + (File : File_Type; + Item : Bounded.Bounded_String); + +end Ada.Text_IO.Bounded_IO; diff --git a/gcc/ada/a-wwboio.adb b/gcc/ada/a-wwboio.adb new file mode 100644 index 0000000..2d3e20f --- /dev/null +++ b/gcc/ada/a-wwboio.adb @@ -0,0 +1,181 @@ +------------------------------------------------------------------------------ +-- -- +-- GNAT RUN-TIME COMPONENTS -- +-- -- +-- A D A . W I D E _ T E X T _ I O . W I D E _ B O U N D E D _ I O -- +-- -- +-- B o d y -- +-- -- +-- Copyright (C) 1997-2005, Free Software Foundation, Inc. -- +-- -- +-- GNAT is free software; you can redistribute it and/or modify it under -- +-- terms of the GNU General Public License as published by the Free Soft- -- +-- ware Foundation; either version 2, or (at your option) any later ver- -- +-- sion. GNAT is distributed in the hope that it will be useful, but WITH- -- +-- OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY -- +-- or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License -- +-- for more details. You should have received a copy of the GNU General -- +-- Public License distributed with GNAT; see file COPYING. If not, write -- +-- to the Free Software Foundation, 51 Franklin Street, Fifth Floor, -- +-- Boston, MA 02110-1301, USA. -- +-- -- +-- As a special exception, if other files instantiate generics from this -- +-- unit, or you link this unit with other files to produce an executable, -- +-- this unit does not by itself cause the resulting executable to be -- +-- covered by the GNU General Public License. This exception does not -- +-- however invalidate any other reasons why the executable file might be -- +-- covered by the GNU Public License. -- +-- -- +-- GNAT was originally developed by the GNAT team at New York University. -- +-- Extensive contributions were provided by Ada Core Technologies Inc. -- +-- -- +------------------------------------------------------------------------------ + +with Ada.Wide_Text_IO; use Ada.Wide_Text_IO; +with Ada.Unchecked_Deallocation; + +package body Ada.Wide_Text_IO.Wide_Bounded_IO is + + type Wide_String_Access is access all Wide_String; + + procedure Free (WSA : in out Wide_String_Access); + -- Perform an unchecked deallocation of a non-null string + + ---------- + -- Free -- + ---------- + + procedure Free (WSA : in out Wide_String_Access) is + Null_Wide_String : constant Wide_String := ""; + + procedure Deallocate is + new Ada.Unchecked_Deallocation (Wide_String, Wide_String_Access); + + begin + -- Do not try to free statically allocated null string + + if WSA.all /= Null_Wide_String then + Deallocate (WSA); + end if; + end Free; + + -------------- + -- Get_Line -- + -------------- + + function Get_Line return Wide_Bounded.Bounded_Wide_String is + begin + return Wide_Bounded.To_Bounded_Wide_String (Get_Line); + end Get_Line; + + -------------- + -- Get_Line -- + -------------- + + function Get_Line + (File : File_Type) return Wide_Bounded.Bounded_Wide_String + is + begin + return Wide_Bounded.To_Bounded_Wide_String (Get_Line (File)); + end Get_Line; + + -------------- + -- Get_Line -- + -------------- + + procedure Get_Line + (Item : out Wide_Bounded.Bounded_Wide_String) + is + Buffer : Wide_String (1 .. 1000); + Last : Natural; + Str1 : Wide_String_Access; + Str2 : Wide_String_Access; + + begin + Get_Line (Buffer, Last); + Str1 := new Wide_String'(Buffer (1 .. Last)); + + while Last = Buffer'Last loop + Get_Line (Buffer, Last); + Str2 := new Wide_String'(Str1.all & Buffer (1 .. Last)); + Free (Str1); + Str1 := Str2; + end loop; + + Item := Wide_Bounded.To_Bounded_Wide_String (Str1.all); + end Get_Line; + + -------------- + -- Get_Line -- + -------------- + + procedure Get_Line + (File : File_Type; + Item : out Wide_Bounded.Bounded_Wide_String) + is + Buffer : Wide_String (1 .. 1000); + Last : Natural; + Str1 : Wide_String_Access; + Str2 : Wide_String_Access; + + begin + Get_Line (File, Buffer, Last); + Str1 := new Wide_String'(Buffer (1 .. Last)); + + while Last = Buffer'Last loop + Get_Line (File, Buffer, Last); + Str2 := new Wide_String'(Str1.all & Buffer (1 .. Last)); + Free (Str1); + Str1 := Str2; + end loop; + + Item := Wide_Bounded.To_Bounded_Wide_String (Str1.all); + end Get_Line; + + --------- + -- Put -- + --------- + + procedure Put + (Item : Wide_Bounded.Bounded_Wide_String) + is + begin + Put (Wide_Bounded.To_Wide_String (Item)); + end Put; + + --------- + -- Put -- + --------- + + procedure Put + (File : File_Type; + Item : Wide_Bounded.Bounded_Wide_String) + is + begin + Put (File, Wide_Bounded.To_Wide_String (Item)); + end Put; + + -------------- + -- Put_Line -- + -------------- + + procedure Put_Line + (Item : Wide_Bounded.Bounded_Wide_String) + is + begin + Put_Line (Wide_Bounded.To_Wide_String (Item)); + end Put_Line; + + -------------- + -- Put_Line -- + -------------- + + procedure Put_Line + (File : File_Type; + Item : Wide_Bounded.Bounded_Wide_String) + is + begin + Put_Line (File, Wide_Bounded.To_Wide_String (Item)); + end Put_Line; + +end Ada.Wide_Text_IO.Wide_Bounded_IO; diff --git a/gcc/ada/a-wwboio.ads b/gcc/ada/a-wwboio.ads new file mode 100644 index 0000000..634a265 --- /dev/null +++ b/gcc/ada/a-wwboio.ads @@ -0,0 +1,52 @@ +------------------------------------------------------------------------------ +-- -- +-- GNAT RUN-TIME COMPONENTS -- +-- -- +-- A D A . W I D E _ T E X T _ I O . W I D E _ B O U N D E D _ I O -- +-- -- +-- S p e c -- +-- -- +-- Copyright (C) 1997-2005, Free Software Foundation, Inc. -- +-- -- +-- This specification is adapted 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. -- +-- -- +------------------------------------------------------------------------------ + +with Ada.Strings.Wide_Bounded; + +generic + with package Wide_Bounded is + new Ada.Strings.Wide_Bounded.Generic_Bounded_Length (<>); + +package Ada.Wide_Text_IO.Wide_Bounded_IO is + + function Get_Line return Wide_Bounded.Bounded_Wide_String; + + function Get_Line + (File : File_Type) return Wide_Bounded.Bounded_Wide_String; + + procedure Get_Line + (Item : out Wide_Bounded.Bounded_Wide_String); + + procedure Get_Line + (File : File_Type; + Item : out Wide_Bounded.Bounded_Wide_String); + + procedure Put + (Item : Wide_Bounded.Bounded_Wide_String); + + procedure Put + (File : File_Type; + Item : Wide_Bounded.Bounded_Wide_String); + + procedure Put_Line + (Item : Wide_Bounded.Bounded_Wide_String); + + procedure Put_Line + (File : File_Type; + Item : Wide_Bounded.Bounded_Wide_String); + +end Ada.Wide_Text_IO.Wide_Bounded_IO; diff --git a/gcc/ada/a-zzboio.adb b/gcc/ada/a-zzboio.adb new file mode 100644 index 0000000..e10fda6 --- /dev/null +++ b/gcc/ada/a-zzboio.adb @@ -0,0 +1,182 @@ +------------------------------------------------------------------------------ +-- -- +-- GNAT RUN-TIME COMPONENTS -- +-- -- +-- ADA.WIDE_WIDE_TEXT_IO.WIDE_WIDE_BOUNDED_IO -- +-- -- +-- B o d y -- +-- -- +-- Copyright (C) 1997-2005, Free Software Foundation, Inc. -- +-- -- +-- GNAT is free software; you can redistribute it and/or modify it under -- +-- terms of the GNU General Public License as published by the Free Soft- -- +-- ware Foundation; either version 2, or (at your option) any later ver- -- +-- sion. GNAT is distributed in the hope that it will be useful, but WITH- -- +-- OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY -- +-- or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License -- +-- for more details. You should have received a copy of the GNU General -- +-- Public License distributed with GNAT; see file COPYING. If not, write -- +-- to the Free Software Foundation, 51 Franklin Street, Fifth Floor, -- +-- Boston, MA 02110-1301, USA. -- +-- -- +-- As a special exception, if other files instantiate generics from this -- +-- unit, or you link this unit with other files to produce an executable, -- +-- this unit does not by itself cause the resulting executable to be -- +-- covered by the GNU General Public License. This exception does not -- +-- however invalidate any other reasons why the executable file might be -- +-- covered by the GNU Public License. -- +-- -- +-- GNAT was originally developed by the GNAT team at New York University. -- +-- Extensive contributions were provided by Ada Core Technologies Inc. -- +-- -- +------------------------------------------------------------------------------ + +with Ada.Wide_Wide_Text_IO; use Ada.Wide_Wide_Text_IO; +with Ada.Unchecked_Deallocation; + +package body Ada.Wide_Wide_Text_IO.Wide_Wide_Bounded_IO is + + type Wide_Wide_String_Access is access all Wide_Wide_String; + + procedure Free (WWSA : in out Wide_Wide_String_Access); + -- Perform an unchecked deallocation of a non-null string + + ---------- + -- Free -- + ---------- + + procedure Free (WWSA : in out Wide_Wide_String_Access) is + Null_Wide_Wide_String : constant Wide_Wide_String := ""; + + procedure Deallocate is + new Ada.Unchecked_Deallocation ( + Wide_Wide_String, Wide_Wide_String_Access); + + begin + -- Do not try to free statically allocated null string + + if WWSA.all /= Null_Wide_Wide_String then + Deallocate (WWSA); + end if; + end Free; + + -------------- + -- Get_Line -- + -------------- + + function Get_Line return Wide_Wide_Bounded.Bounded_Wide_Wide_String is + begin + return Wide_Wide_Bounded.To_Bounded_Wide_Wide_String (Get_Line); + end Get_Line; + + -------------- + -- Get_Line -- + -------------- + + function Get_Line + (File : File_Type) return Wide_Wide_Bounded.Bounded_Wide_Wide_String + is + begin + return Wide_Wide_Bounded.To_Bounded_Wide_Wide_String (Get_Line (File)); + end Get_Line; + + -------------- + -- Get_Line -- + -------------- + + procedure Get_Line + (Item : out Wide_Wide_Bounded.Bounded_Wide_Wide_String) + is + Buffer : Wide_Wide_String (1 .. 1000); + Last : Natural; + Str1 : Wide_Wide_String_Access; + Str2 : Wide_Wide_String_Access; + + begin + Get_Line (Buffer, Last); + Str1 := new Wide_Wide_String'(Buffer (1 .. Last)); + + while Last = Buffer'Last loop + Get_Line (Buffer, Last); + Str2 := new Wide_Wide_String'(Str1.all & Buffer (1 .. Last)); + Free (Str1); + Str1 := Str2; + end loop; + + Item := Wide_Wide_Bounded.To_Bounded_Wide_Wide_String (Str1.all); + end Get_Line; + + -------------- + -- Get_Line -- + -------------- + + procedure Get_Line + (File : File_Type; + Item : out Wide_Wide_Bounded.Bounded_Wide_Wide_String) + is + Buffer : Wide_Wide_String (1 .. 1000); + Last : Natural; + Str1 : Wide_Wide_String_Access; + Str2 : Wide_Wide_String_Access; + + begin + Get_Line (File, Buffer, Last); + Str1 := new Wide_Wide_String'(Buffer (1 .. Last)); + + while Last = Buffer'Last loop + Get_Line (File, Buffer, Last); + Str2 := new Wide_Wide_String'(Str1.all & Buffer (1 .. Last)); + Free (Str1); + Str1 := Str2; + end loop; + + Item := Wide_Wide_Bounded.To_Bounded_Wide_Wide_String (Str1.all); + end Get_Line; + + --------- + -- Put -- + --------- + + procedure Put + (Item : Wide_Wide_Bounded.Bounded_Wide_Wide_String) + is + begin + Put (Wide_Wide_Bounded.To_Wide_Wide_String (Item)); + end Put; + + --------- + -- Put -- + --------- + + procedure Put + (File : File_Type; + Item : Wide_Wide_Bounded.Bounded_Wide_Wide_String) + is + begin + Put (File, Wide_Wide_Bounded.To_Wide_Wide_String (Item)); + end Put; + + -------------- + -- Put_Line -- + -------------- + + procedure Put_Line + (Item : Wide_Wide_Bounded.Bounded_Wide_Wide_String) + is + begin + Put_Line (Wide_Wide_Bounded.To_Wide_Wide_String (Item)); + end Put_Line; + + -------------- + -- Put_Line -- + -------------- + + procedure Put_Line + (File : File_Type; + Item : Wide_Wide_Bounded.Bounded_Wide_Wide_String) + is + begin + Put_Line (File, Wide_Wide_Bounded.To_Wide_Wide_String (Item)); + end Put_Line; + +end Ada.Wide_Wide_Text_IO.Wide_Wide_Bounded_IO; diff --git a/gcc/ada/a-zzboio.ads b/gcc/ada/a-zzboio.ads new file mode 100644 index 0000000..83b4ed9 --- /dev/null +++ b/gcc/ada/a-zzboio.ads @@ -0,0 +1,52 @@ +------------------------------------------------------------------------------ +-- -- +-- GNAT RUN-TIME COMPONENTS -- +-- -- +-- ADA.WIDE_WIDE_TEXT_IO.WIDE_WIDE_BOUNDED_IO -- +-- -- +-- S p e c -- +-- -- +-- Copyright (C) 1997-2005, Free Software Foundation, Inc. -- +-- -- +-- This specification is adapted 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. -- +-- -- +------------------------------------------------------------------------------ + +with Ada.Strings.Wide_Wide_Bounded; + +generic + with package Wide_Wide_Bounded is + new Ada.Strings.Wide_Wide_Bounded.Generic_Bounded_Length (<>); + +package Ada.Wide_Wide_Text_IO.Wide_Wide_Bounded_IO is + + function Get_Line return Wide_Wide_Bounded.Bounded_Wide_Wide_String; + + function Get_Line + (File : File_Type) return Wide_Wide_Bounded.Bounded_Wide_Wide_String; + + procedure Get_Line + (Item : out Wide_Wide_Bounded.Bounded_Wide_Wide_String); + + procedure Get_Line + (File : File_Type; + Item : out Wide_Wide_Bounded.Bounded_Wide_Wide_String); + + procedure Put + (Item : Wide_Wide_Bounded.Bounded_Wide_Wide_String); + + procedure Put + (File : File_Type; + Item : Wide_Wide_Bounded.Bounded_Wide_Wide_String); + + procedure Put_Line + (Item : Wide_Wide_Bounded.Bounded_Wide_Wide_String); + + procedure Put_Line + (File : File_Type; + Item : Wide_Wide_Bounded.Bounded_Wide_Wide_String); + +end Ada.Wide_Wide_Text_IO.Wide_Wide_Bounded_IO; diff --git a/gcc/ada/impunit.adb b/gcc/ada/impunit.adb index 5fca815..a720a28 100644 --- a/gcc/ada/impunit.adb +++ b/gcc/ada/impunit.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 2000-2005, Free Software Foundation, Inc. -- +-- Copyright (C) 2000-2006, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -351,10 +351,15 @@ package body Impunit is "a-convec", -- Ada.Containers.Vectors "a-coorma", -- Ada.Containers.Ordered_Maps "a-coorse", -- Ada.Containers.Ordered_Sets + "a-coteio", -- Ada.Complex_Text_IO "a-direct", -- Ada.Directories + "a-envvar", -- Ada.Environment_Variables + "a-rttiev", -- Ada.Real_Time.Timing_Events "a-secain", -- Ada.Strings.Equal_Case_Insensitive "a-shcain", -- Ada.Strings.Hash_Case_Insensitive "a-slcain", -- Ada.Strings.Less_Case_Insensitive + "a-stboha", -- Ada.Strings.Bounded.Hash + "a-stfiha", -- Ada.Strings.Fixed.Hash "a-strhas", -- Ada.Strings.Hash "a-stunha", -- Ada.Strings.Unbounded.Hash "a-stwiha", -- Ada.Strings.Wide_Hash @@ -363,27 +368,37 @@ package body Impunit is "a-stzhas", -- Ada.Strings.Wide_Wide_Hash "a-stzmap", -- Ada.Strings.Wide_Wide_Maps "a-stzunb", -- Ada.Strings.Wide_Wide_Unbounded + "a-swbwha", -- Ada.Strings.Wide_Bounded.Wide_Hash + "a-swfwha", -- Ada.Strings.Wide_Fixed.Wide_Hash "a-swuwha", -- Ada.Strings.Wide_Unbounded.Wide_Hash + "a-szbzha", -- Ada.Strings.Wide_Wide_Bounded.Wide_Wide_Hash + "a-szfzha", -- Ada.Strings.Wide_Wide_Fixed.Wide_Wide_Hash "a-szmzco", -- Ada.Strings.Wide_Wide_Maps.Wide_Wide_Constants "a-szuzha", -- Ada.Strings.Wide_Wide_Unbounded.Wide_Wide_Hash "a-taster", -- Ada.Task_Termination "a-tgdico", -- Ada.Tags.Generic_Dispatching_Constructor + "a-tiboio", -- Ada.Text_IO.Bounded_IO "a-tiunio", -- Ada.Text_IO.Unbounded_IO "a-wichun", -- Ada.Wide_Characters.Unicode + "a-wwboio", -- Ada.Wide_Text_IO.Wide_Bounded_IO "a-wwunio", -- Ada.Wide_Text_IO.Wide_Unbounded_IO "a-zchara", -- Ada.Wide_Wide_Characters "a-zttest", -- Ada.Wide_Wide_Text_IO.Text_Streams "a-ztexio", -- Ada.Wide_Wide_Text_IO + "a-zzboio", -- Ada.Wide_Wide_Text_IO.Wide_Wide_Bounded_IO "a-zzunio", -- Ada.Wide_Wide_Text_IO.Wide_Wide_Unbounded_IO ------------------------------------------------------ -- RM Required Additions to Ada 2005 for GNAT Types -- ------------------------------------------------------ + "a-lcteio", -- Ada.Long_Complex_Text_IO "a-lfztio", -- Ada.Long_Float_Wide_Wide_Text_IO "a-liztio", -- Ada.Long_Integer_Wide_Wide_Text_IO + "a-llctio", -- Ada.Long_Long_Complex_Text_IO "a-llfzti", -- Ada.Long_Long_Float_Wide_Wide_Text_IO "a-llizti", -- Ada.Long_Long_Integer_Wide_Wide_Text_IO + "a-scteio", -- Ada.Short_Complex_Text_IO "a-sfztio", -- Ada.Short_Float_Wide_Wide_Text_IO "a-siztio", -- Ada.Short_Integer_Wide_Wide_Text_IO "a-ssizti", -- Ada.Short_Short_Integer_Wide_Wide_Text_IO |