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/gnat1drv.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/gnat1drv.adb')
| -rw-r--r-- | gcc/ada/gnat1drv.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/gnat1drv.adb b/gcc/ada/gnat1drv.adb index 727e90a..cd89cb5 100644 --- a/gcc/ada/gnat1drv.adb +++ b/gcc/ada/gnat1drv.adb @@ -1036,7 +1036,7 @@ begin Original_Operating_Mode := Operating_Mode; Frontend; - -- Exit with errors if the main source could not be parsed. + -- Exit with errors if the main source could not be parsed if Sinput.Main_Source_File = No_Source_File then Errout.Finalize (Last_Call => True); |