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/errout.ads | |
| 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/errout.ads')
| -rw-r--r-- | gcc/ada/errout.ads | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/errout.ads b/gcc/ada/errout.ads index be0c936..4540c93 100644 --- a/gcc/ada/errout.ads +++ b/gcc/ada/errout.ads @@ -474,7 +474,7 @@ package Errout is Error_Msg_Node_2 : Node_Id renames Err_Vars.Error_Msg_Node_2; -- Node_Id values for & insertion characters in message - Error_Msg_Qual_Level : Int renames Err_Vars.Error_Msg_Qual_Level; + Error_Msg_Qual_Level : Nat renames Err_Vars.Error_Msg_Qual_Level; -- Number of levels of qualification required for type name (see the -- description of the } insertion character). Note that this value does -- not get reset by any Error_Msg call, so the caller is responsible |