Skip to content

R
riscv-gcc-1
Switch branch/tag
Find file
Normal viewHistoryPermalink
a-zrstfi.ads 2.92 KB
Newer Older
[multiple changes]
b87971f3
 
Arnaud Charlet committed
1 2 3 4 5 6 7 8 
------------------------------------------------------------------------------
--                                                                          --
--                         GNAT RUN-TIME COMPONENTS                         --
--                                                                          --
--                ADA.WIDE_WIDE_TEXT_IO.RESET_STANDARD_FILES                --
--                                                                          --
--                                 S p e c                                  --
--                                                                          --
Update Copyright years for files modified in 2011 and/or 2012.
90d04a44
 
Jakub Jelinek committed
9 
--            Copyright (C) 2009-2012, Free Software Foundation, Inc.       --
[multiple changes]
b87971f3
 
Arnaud Charlet committed
10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 
--                                                                          --
-- 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 3,  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.                                     --
--                                                                          --
-- As a special exception under Section 7 of GPL version 3, you are granted --
-- additional permissions described in the GCC Runtime Library Exception,   --
-- version 3.1, as published by the Free Software Foundation.               --
--                                                                          --
-- You should have received a copy of the GNU General Public License and    --
-- a copy of the GCC Runtime Library Exception along with this program;     --
-- see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see    --
-- <http://www.gnu.org/licenses/>.                                          --
--                                                                          --
-- GNAT was originally developed  by the GNAT team at  New York University. --
-- Extensive contributions were provided by Ada Core Technologies Inc.      --
--                                                                          --
------------------------------------------------------------------------------

--  This package provides a reset routine that resets the standard files used
--  by Ada.Wide_Wide_Text_IO. This is useful in systems such as VxWorks where
--  Ada.Wide_Wide_Text_IO is elaborated at the program start, but a system
--  restart may alter the status of these files, resulting in incorrect
--  operation of Wide_Wide_Text_IO (in particular if the standard input file
--  is changed to be interactive, then Get_Line may hang looking for an extra
--  character after the end of the line.

procedure Ada.Wide_Wide_Text_IO.Reset_Standard_Files;
--  Reset standard Wide_Wide_Text_IO files as described above