From ad81cb782b0c9dc481394e424d80926cee0ddf30 Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Mon, 18 Apr 2016 14:39:36 +0200 Subject: [multiple changes] 2016-04-18 Yannick Moy * sem_util.adb (Apply_Compile_Time_Constraint_Error): Do not generate raise node in GNATprove mode. 2016-04-18 Hristian Kirtchev * 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 * 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). From-SVN: r235139 --- gcc/ada/s-fileio.adb | 16 ++++++++++++---- 1 file changed, 12 insertions(+), 4 deletions(-) (limited to 'gcc/ada/s-fileio.adb') diff --git a/gcc/ada/s-fileio.adb b/gcc/ada/s-fileio.adb index 99910f7..b8bc1ad 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, -- cgit v1.1