1240116Smarcel------------------------------------------------------------------------------
2240116Smarcel--                                                                          --
3240116Smarcel--                         GNAT RUN-TIME COMPONENTS                         --
4240116Smarcel--                                                                          --
5240116Smarcel--                  ADA.WIDE_TEXT_IO.RESET_STANDARD_FILES                   --
6240116Smarcel--                                                                          --
7240116Smarcel--                                 B o d y                                  --
8240116Smarcel--                                                                          --
9240116Smarcel--            Copyright (C) 2009, Free Software Foundation, Inc.            --
10240116Smarcel--                                                                          --
11240116Smarcel-- GNAT is free software;  you can  redistribute it  and/or modify it under --
12240116Smarcel-- terms of the  GNU General Public License as published  by the Free Soft- --
13240116Smarcel-- ware  Foundation;  either version 3,  or (at your option) any later ver- --
14240116Smarcel-- sion.  GNAT is distributed in the hope that it will be useful, but WITH- --
15240116Smarcel-- OUT ANY WARRANTY;  without even the  implied warranty of MERCHANTABILITY --
16240116Smarcel-- or FITNESS FOR A PARTICULAR PURPOSE.                                     --
17240116Smarcel--                                                                          --
18240116Smarcel-- As a special exception under Section 7 of GPL version 3, you are granted --
19240116Smarcel-- additional permissions described in the GCC Runtime Library Exception,   --
20240116Smarcel-- version 3.1, as published by the Free Software Foundation.               --
21240116Smarcel--                                                                          --
22240116Smarcel-- You should have received a copy of the GNU General Public License and    --
23240116Smarcel-- a copy of the GCC Runtime Library Exception along with this program;     --
24240116Smarcel-- see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see    --
25240116Smarcel-- <http://www.gnu.org/licenses/>.                                          --
26240116Smarcel--                                                                          --
27240116Smarcel-- GNAT was originally developed  by the GNAT team at  New York University. --
28240116Smarcel-- Extensive contributions were provided by Ada Core Technologies Inc.      --
29240116Smarcel--                                                                          --
30240116Smarcel------------------------------------------------------------------------------
31240116Smarcel
32240116Smarcel-------------------------------------------
33240116Smarcel-- Ada.Wide_Text_IO.Reset_Standard_Files --
34240116Smarcel-------------------------------------------
35240116Smarcel
36240116Smarcelprocedure Ada.Wide_Text_IO.Reset_Standard_Files is
37240116Smarcelbegin
38240116Smarcel   Ada.Wide_Text_IO.Initialize_Standard_Files;
39240116Smarcelend Ada.Wide_Text_IO.Reset_Standard_Files;
40240116Smarcel