diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2015-10-26 12:51:46 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2015-10-26 12:51:46 +0100 |
| commit | a2667f14a89bc5492f51ff0ee794ee75d8068f43 (patch) | |
| tree | 678b5409f180a87b3720529ed635ddddcbdf7df5 /gcc/ada/s-fileio.adb | |
| parent | b204e984c7689767e4a853ca09e7fda1406a201b (diff) | |
| download | gcc-a2667f14a89bc5492f51ff0ee794ee75d8068f43.zip gcc-a2667f14a89bc5492f51ff0ee794ee75d8068f43.tar.gz gcc-a2667f14a89bc5492f51ff0ee794ee75d8068f43.tar.bz2 | |
[multiple changes]
2015-10-26 Bob Duff <duff@adacore.com>
* s-fileio.adb (Fopen_Mode): Use "r+" for Out_File/Stream_IO,
so the file won't be truncated on 'fopen', as required by
AI95-00283-1.
2015-10-26 Bob Duff <duff@adacore.com>
* gnat1drv.adb, prj.adb, sem_ch6.adb, s-regpat.adb,
sem_prag.adb: Fix typos.
* einfo.ads, restrict.ads: Minor comment fixes.
* err_vars.ads, sem_util.adb, errout.ads: Code clean up.
2015-10-26 Ed Schonberg <schonberg@adacore.com>
* sem_ch5.adb (Analyze_Assignment): Do not check that the
Left-hand side is legal in an inlined body, check is done on
the original template.
2015-10-26 Ed Schonberg <schonberg@adacore.com>
* exp_util.ads, exp_util.adb (Find_Primitive_Operations): New
subprogram to retrieve by name the possibly overloaded set of
primitive operations of a type.
* sem_ch4.adb (Try_Container_Indexing): Use
Find_Primitive_Operations to handle overloaded indexing operations
of a derived type.
From-SVN: r229343
Diffstat (limited to 'gcc/ada/s-fileio.adb')
| -rw-r--r-- | gcc/ada/s-fileio.adb | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gcc/ada/s-fileio.adb b/gcc/ada/s-fileio.adb index 1d8882e..e9d54f8 100644 --- a/gcc/ada/s-fileio.adb +++ b/gcc/ada/s-fileio.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2014, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2015, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -433,8 +433,8 @@ package body System.File_IO is -- OPEN CREATE -- Append_File "r+" "w+" -- In_File "r" "w+" - -- Out_File (Direct_IO) "r+" "w" - -- Out_File (all others) "w" "w" + -- Out_File (Direct_IO, Stream_IO) "r+" "w" + -- Out_File (others) "w" "w" -- Inout_File "r+" "w+" -- Note: we do not use "a" or "a+" for Append_File, since this would not @@ -479,7 +479,7 @@ package body System.File_IO is end if; when Out_File => - if Amethod = 'D' and then not Creat then + if Amethod in 'D' | 'S' and then not Creat then Fopstr (1) := 'r'; Fopstr (2) := '+'; Fptr := 3; |