diff options
| author | Pascal Obry <obry@adacore.com> | 2014-07-18 10:57:47 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-07-18 12:57:47 +0200 |
| commit | cd077efd33fc56016b9bea8f30964fb93a40ff3a (patch) | |
| tree | 948305f1acf26a8531b54d326b0c4ae0fcb653ff /gcc/ada/s-fileio.adb | |
| parent | 18f2c4608d3bd85f19aef3068357f1c8fbe098b5 (diff) | |
| download | gcc-cd077efd33fc56016b9bea8f30964fb93a40ff3a.zip gcc-cd077efd33fc56016b9bea8f30964fb93a40ff3a.tar.gz gcc-cd077efd33fc56016b9bea8f30964fb93a40ff3a.tar.bz2 | |
a-textio.adb, [...]: Use C_Streams Default_Text.
2014-07-18 Pascal Obry <obry@adacore.com>
* a-textio.adb, a-witeio.adb, a-ztexio.adb: Use C_Streams Default_Text.
* i-cstrea.ads (Content_Encoding): Moved here, add convention C.
* s-ficobl.ads (Content_Encoding): Moved to C_Streams.
* s-fileio.adb (Open): Adjust to use Content_Encoding from C_Streams.
From-SVN: r212811
Diffstat (limited to 'gcc/ada/s-fileio.adb')
| -rw-r--r-- | gcc/ada/s-fileio.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/s-fileio.adb b/gcc/ada/s-fileio.adb index 627224f..8a9c9c1 100644 --- a/gcc/ada/s-fileio.adb +++ b/gcc/ada/s-fileio.adb @@ -1063,7 +1063,7 @@ package body System.File_IO is elsif Formstr (V1 .. V2) = "text" or else Formstr (V1 .. V2) = "yes" then - Text_Encoding := File_Control_Block.Text; + Text_Encoding := Interfaces.C_Streams.Text; elsif Formstr (V1 .. V2) = "wtext" then Text_Encoding := Wtext; elsif Formstr (V1 .. V2) = "u8text" then |