diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2016-04-18 12:39:36 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2016-04-18 12:39:36 +0000 |
| commit | 3e0cbfeecbe680ac3ddefaa16fd6780b7cc216aa (patch) | |
| tree | 48448bb1a39cfcb6d4c3f50764b9189cc7a93929 /gcc/ada/s-fileio.adb | |
| parent | a0a15971b87c33e1482ba7bccccf2662149805df (diff) | |
| download | gcc-3e0cbfeecbe680ac3ddefaa16fd6780b7cc216aa.tar.gz | |
2016-04-18 Yannick Moy <moy@adacore.com>
* sem_util.adb (Apply_Compile_Time_Constraint_Error): Do not generate
raise node in GNATprove mode.
2016-04-18 Hristian Kirtchev <kirtchev@adacore.com>
* s-fileio.adb: Minor reformatting.
* sem_prag.adb (Analyze_Input_Item): Add local
variable Input_OK. Do not consider mappings of generic formal
parameters to actuals.
2016-04-18 Ed Schonberg <schonberg@adacore.com>
* sem_ch5.adb (Get_Cursor_Type): If iterator type is a derived
type, the cursor is declared in the scope of the parent type.
(Analyze_Parameter_Specification): A qualified expression with an
iterator type indicates an iteration over a container (explicit
or implicit).
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@235139 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/s-fileio.adb')
| -rw-r--r-- | gcc/ada/s-fileio.adb | 16 |
1 files changed, 12 insertions, 4 deletions
diff --git a/gcc/ada/s-fileio.adb b/gcc/ada/s-fileio.adb index 99910f7423e..b8bc1ad2248 100644 --- a/gcc/ada/s-fileio.adb +++ b/gcc/ada/s-fileio.adb @@ -1057,8 +1057,12 @@ package body System.File_IO is else Fopen_Mode - (Namestr, Mode, Text_Encoding in Text_Content_Encoding, - Creat, Amethod, Fopstr); + (Namestr => Namestr, + Mode => Mode, + Text => Text_Encoding in Text_Content_Encoding, + Creat => Creat, + Amethod => Amethod, + Fopstr => Fopstr); -- A special case, if we are opening (OPEN case) a file and the -- mode returned by Fopen_Mode is not "r" or "r+", then we first @@ -1230,8 +1234,12 @@ package body System.File_IO is else Fopen_Mode - (File.Name.all, Mode, File.Text_Encoding in Text_Content_Encoding, - False, File.Access_Method, Fopstr); + (Namestr => File.Name.all, + Mode => Mode, + Text => File.Text_Encoding in Text_Content_Encoding, + Creat => False, + Amethod => File.Access_Method, + Fopstr => Fopstr); File.Stream := freopen (File.Name.all'Address, Fopstr'Address, File.Stream, |