Mercurial > hg > CbC > CbC_gcc
comparison gcc/ada/libgnat/a-textio.ads @ 131:84e7813d76e9
gcc-8.2
| author | mir3636 |
|---|---|
| date | Thu, 25 Oct 2018 07:37:49 +0900 |
| parents | 04ced10e8804 |
| children | 1830386684a0 |
comparison
equal
deleted
inserted
replaced
| 111:04ced10e8804 | 131:84e7813d76e9 |
|---|---|
| 4 -- -- | 4 -- -- |
| 5 -- A D A . T E X T _ I O -- | 5 -- A D A . T E X T _ I O -- |
| 6 -- -- | 6 -- -- |
| 7 -- S p e c -- | 7 -- S p e c -- |
| 8 -- -- | 8 -- -- |
| 9 -- Copyright (C) 1992-2017, Free Software Foundation, Inc. -- | 9 -- Copyright (C) 1992-2018, Free Software Foundation, Inc. -- |
| 10 -- -- | 10 -- -- |
| 11 -- This specification is derived from the Ada Reference Manual for use with -- | 11 -- This specification is derived from the Ada Reference Manual for use with -- |
| 12 -- GNAT. The copyright notice above, and the license provisions that follow -- | 12 -- GNAT. The copyright notice above, and the license provisions that follow -- |
| 13 -- apply solely to the contents of the part following the private keyword. -- | 13 -- apply solely to the contents of the part following the private keyword. -- |
| 14 -- -- | 14 -- -- |
| 47 with System.WCh_Con; | 47 with System.WCh_Con; |
| 48 | 48 |
| 49 package Ada.Text_IO is | 49 package Ada.Text_IO is |
| 50 pragma Elaborate_Body; | 50 pragma Elaborate_Body; |
| 51 | 51 |
| 52 type File_Type is limited private; | 52 type File_Type is limited private with Default_Initial_Condition; |
| 53 type File_Mode is (In_File, Out_File, Append_File); | 53 type File_Mode is (In_File, Out_File, Append_File); |
| 54 | 54 |
| 55 -- The following representation clause allows the use of unchecked | 55 -- The following representation clause allows the use of unchecked |
| 56 -- conversion for rapid translation between the File_Mode type | 56 -- conversion for rapid translation between the File_Mode type |
| 57 -- used in this package and System.File_IO. | 57 -- used in this package and System.File_IO. |