diff options
| author | Bob Duff <duff@adacore.com> | 2010-10-11 09:20:53 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2010-10-11 11:20:53 +0200 |
| commit | 0791fbe9c5fc4a6a5608b9dcc5d8055da33bc6fa (patch) | |
| tree | 29e555fe1edeb91bf32383a11999ebe515cf128a /gcc/ada/opt.ads | |
| parent | dbe945f1d543dc34b78b975a9053872c744b295a (diff) | |
| download | gcc-0791fbe9c5fc4a6a5608b9dcc5d8055da33bc6fa.zip gcc-0791fbe9c5fc4a6a5608b9dcc5d8055da33bc6fa.tar.gz gcc-0791fbe9c5fc4a6a5608b9dcc5d8055da33bc6fa.tar.bz2 | |
par-ch9.adb, [...]: Use Ada_2005 instead of Ada_05 (Ada_Version_Type).
2010-10-11 Bob Duff <duff@adacore.com>
* par-ch9.adb, sem_aggr.adb, exp_ch5.adb, sem_ch3.adb, impunit.adb,
impunit.ads, sem_ch5.adb, sem_type.adb, exp_imgv.adb, exp_util.adb,
switch-c.adb, exp_attr.adb, exp_ch9.adb, par-ch11.adb, usage.adb,
sem_ch9.adb, sem_ch10.adb, scng.adb, checks.adb, sem_prag.adb,
sem_ch12.adb, par-ch2.adb, freeze.adb, par-ch4.adb, sem_util.adb,
sem_res.adb, sem_attr.adb, par-ch6.adb, exp_ch4.adb, exp_ch6.adb,
sem_ch4.adb, exp_ch8.adb, par-ch10.adb, sem_ch6.adb, par-prag.adb,
exp_disp.adb, par-ch12.adb, sem_ch8.adb, snames.adb-tmpl, opt.ads,
exp_aggr.adb, sem_cat.adb, sem_ch13.adb, par-ch3.adb, exp_strm.adb,
exp_cg.adb, lib-xref.adb, sem_disp.adb, exp_ch3.adb: Use Ada_2005
instead of Ada_05 (Ada_Version_Type).
From-SVN: r165283
Diffstat (limited to 'gcc/ada/opt.ads')
| -rw-r--r-- | gcc/ada/opt.ads | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/gcc/ada/opt.ads b/gcc/ada/opt.ads index 9adc839..3c9f632 100644 --- a/gcc/ada/opt.ads +++ b/gcc/ada/opt.ads @@ -64,15 +64,14 @@ package Opt is -- GNATBIND, GNATLINK -- Set True if binder file to be generated in Ada rather than C - type Ada_Version_Type is (Ada_83, Ada_95, Ada_05, Ada_2012); + type Ada_Version_Type is (Ada_83, Ada_95, Ada_2005, Ada_2012); pragma Ordered (Ada_Version_Type); -- Versions of Ada for Ada_Version below. Note that these are ordered, -- so that tests like Ada_Version >= Ada_95 are legitimate and useful. + -- Think twice before using "="; Ada_Version >= Ada_2012 is more likely + -- what you want, because it will apply to future versions of the language. - Ada_2005 : Ada_Version_Type renames Ada_05; - -- Renaming with full name (preferred usage) - - Ada_Version_Default : constant Ada_Version_Type := Ada_05; + Ada_Version_Default : constant Ada_Version_Type := Ada_2005; pragma Warnings (Off, Ada_Version_Default); -- GNAT -- Default Ada version if no switch given. The Warnings off is to kill |