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/exp_imgv.adb | |
| 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/exp_imgv.adb')
| -rw-r--r-- | gcc/ada/exp_imgv.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/exp_imgv.adb b/gcc/ada/exp_imgv.adb index 25bce02..78d9b00 100644 --- a/gcc/ada/exp_imgv.adb +++ b/gcc/ada/exp_imgv.adb @@ -310,7 +310,7 @@ package body Exp_Imgv is -- soft hyphen correctly, based on the version of Ada in use (ugly!) elsif Rtyp = Standard_Character then - if Ada_Version < Ada_05 then + if Ada_Version < Ada_2005 then Imid := RE_Image_Character; else Imid := RE_Image_Character_05; @@ -485,7 +485,7 @@ package body Exp_Imgv is elsif Rtyp = Standard_Wide_Character then Append_To (Arg_List, - New_Reference_To (Boolean_Literals (Ada_Version >= Ada_05), Loc)); + New_Reference_To (Boolean_Literals (Ada_Version >= Ada_2005), Loc)); end if; -- Now append the procedure call to the insert list |