Subversion Repositories openrisc_2011-10-31

------------------------------------------------------------------------------

------------------------------------------------------------------------------

--                                                                          --

--                                                                          --

--                         GNAT RUN-TIME COMPONENTS                         --

--                         GNAT RUN-TIME COMPONENTS                         --

--                                                                          --

--                                                                          --

--             A D A . T E X T _ I O . T E X T _ S T R E A M S              --

--             A D A . T E X T _ I O . T E X T _ S T R E A M S              --

--                                                                          --

--                                                                          --

--                                 S p e c                                  --

--                                 S p e c                                  --

--                                                                          --

--                                                                          --

-- This specification is derived from the Ada Reference Manual for use with --

-- This specification is derived from the Ada Reference Manual for use with --

-- GNAT.  In accordance with the copyright of that document, you can freely --

-- GNAT.  In accordance with the copyright of that document, you can freely --

-- copy and modify this specification,  provided that if you redistribute a --

-- copy and modify this specification,  provided that if you redistribute a --

-- modified version,  any changes that you have made are clearly indicated. --

-- modified version,  any changes that you have made are clearly indicated. --

--                                                                          --

--                                                                          --

------------------------------------------------------------------------------

------------------------------------------------------------------------------

with Ada.Streams;

with Ada.Streams;

package Ada.Text_IO.Text_Streams is

package Ada.Text_IO.Text_Streams is

   type Stream_Access is access all Streams.Root_Stream_Type'Class;

   type Stream_Access is access all Streams.Root_Stream_Type'Class;

   function Stream (File : File_Type) return Stream_Access;

   function Stream (File : File_Type) return Stream_Access;

end Ada.Text_IO.Text_Streams;

end Ada.Text_IO.Text_Streams;