diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-08-01 12:04:35 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-08-01 12:04:35 +0200 |
| commit | 4d49c6e1495d4fb524123042ef1e52738b699733 (patch) | |
| tree | 5eb404af953f3dc94a89c389bbe230bd928c27e4 /gcc/ada/s-fileio.adb | |
| parent | d18bbd25340adf4768c4e71ecd655630513876c7 (diff) | |
| download | gcc-4d49c6e1495d4fb524123042ef1e52738b699733.zip gcc-4d49c6e1495d4fb524123042ef1e52738b699733.tar.gz gcc-4d49c6e1495d4fb524123042ef1e52738b699733.tar.bz2 | |
[multiple changes]
2014-08-01 Robert Dewar <dewar@adacore.com>
* sem_res.adb: Minor comment addition.
2014-08-01 Arnaud Charlet <charlet@adacore.com>
* s-crtl.ads, i-cstrea.ads, adaint.c, adaint.h, osint.adb,
s-fileio.adb (__gnat_fopen, __gnat_freopen): Remove vms_form parameter,
no longer used.
* s-os_lib.ads: Minor reformatting.
From-SVN: r213441
Diffstat (limited to 'gcc/ada/s-fileio.adb')
| -rw-r--r-- | gcc/ada/s-fileio.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/s-fileio.adb b/gcc/ada/s-fileio.adb index 5659468..73838bf 100644 --- a/gcc/ada/s-fileio.adb +++ b/gcc/ada/s-fileio.adb @@ -1068,7 +1068,7 @@ package body System.File_IO is -- may have changed and we do not want to delete a different file. Stream := - fopen (Namestr'Address, Fopstr'Address, Encoding, Null_Address); + fopen (Namestr'Address, Fopstr'Address, Encoding); if Stream = NULL_Stream then @@ -1222,7 +1222,7 @@ package body System.File_IO is File.Stream := freopen (File.Name.all'Address, Fopstr'Address, File.Stream, - File.Encoding, Null_Address); + File.Encoding); if File.Stream = NULL_Stream then Close (File_Ptr); |