diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2014-07-18 10:57:47 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2014-07-18 10:57:47 +0000 |
| commit | 12329d1fdf928007b27fd2176d1a90652c44d15a (patch) | |
| tree | 948305f1acf26a8531b54d326b0c4ae0fcb653ff /gcc/ada/s-fileio.adb | |
| parent | 715eae3662267766e2cac9642b84bb6d9df76d93 (diff) | |
| download | gcc-12329d1fdf928007b27fd2176d1a90652c44d15a.tar.gz | |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@212811 138bc75d-0d04-0410-961f-82ee72b054a4
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 627224f3dbf..8a9c9c10c53 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 |