diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-08-03 09:47:07 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-08-03 09:47:07 +0000 |
| commit | 0ba3592b83b879af86127ae12b1af4402a909294 (patch) | |
| tree | bf32fcc18f39f261c97a358abbe5ce7237af61a1 /gcc/ada/errout.adb | |
| parent | 9f1130cc81b12eb86e31275996b8a6bbe7118111 (diff) | |
| download | gcc-0ba3592b83b879af86127ae12b1af4402a909294.tar.gz | |
2011-08-03 Robert Dewar <dewar@adacore.com>
* sem_aggr.adb, sem_ch3.adb, lib.ads, gnatcmd.adb, prj-proc.adb,
make.adb, lib-writ.adb, prj-part.adb, prj-part.ads, prj-ext.adb,
fname-uf.adb, prj-ext.ads, prj.adb, prj.ads, sem_attr.adb, alfa.adb,
prj-makr.adb, errout.adb, makeutl.adb, makeutl.ads, restrict.ads,
sem_ch6.adb, g-pehage.adb, clean.adb, put_alfa.adb, lib-xref-alfa.adb,
prj-nmsc.adb, prj-nmsc.ads, sem_ch8.adb, prj-pars.ads, exp_aggr.adb,
prj-attr.ads, sem_ch13.adb, get_alfa.adb, prj-env.adb, prj-env.ads,
alfa_test.adb, prj-tree.adb, prj-tree.ads, einfo.ads: Minor reformatting
2011-08-03 Robert Dewar <dewar@adacore.com>
* repinfo.adb (List_Mechanism): Add handling of
Convention_Ada_Pass_By_XXX.
* sem_mech.adb (Set_Mechanism): Ditto.
* sem_prag.adb (Process_Convention): Add entries for
Convention_Ada_Pass_By_XXX.
* snames.adb-tmpl, snames.ads-tmpl: Ditto.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@177252 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/errout.adb')
| -rw-r--r-- | gcc/ada/errout.adb | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/gcc/ada/errout.adb b/gcc/ada/errout.adb index 49068ef2387..6a6142d4121 100644 --- a/gcc/ada/errout.adb +++ b/gcc/ada/errout.adb @@ -752,7 +752,8 @@ package body Errout is null; -- If the main unit has not been read yet. the warning must be on - -- a configuration file: gnat.adc or user-defined. + -- a configuration file: gnat.adc or user-defined. This means we + -- are not parsing the main unit yet, so skip following checks. elsif No (Cunit (Main_Unit)) then null; |