diff options
| author | Thomas Quinot <quinot@adacore.com> | 2009-04-16 10:31:23 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-04-16 12:31:23 +0200 |
| commit | dae4faf2e17c5c51954dd6f7e29229780371750c (patch) | |
| tree | 0d8ff538d28b6c30c21077d81930181dcde2d797 /gcc/ada/exp_code.adb | |
| parent | 2794f02243b66df4e2ecbb042e26835f8b4a2a93 (diff) | |
| download | gcc-dae4faf2e17c5c51954dd6f7e29229780371750c.zip gcc-dae4faf2e17c5c51954dd6f7e29229780371750c.tar.gz gcc-dae4faf2e17c5c51954dd6f7e29229780371750c.tar.bz2 | |
exp_dist.adb (Build_From_Any_Call): For a subtype that is a generic actual type...
2009-04-16 Thomas Quinot <quinot@adacore.com>
* exp_dist.adb (Build_From_Any_Call): For a subtype that is a generic
actual type, use the base type to build the To_Any function.
(Build_From_Any_Function): Remove junk, useless subtype conversion.
2009-04-16 Thomas Quinot <quinot@adacore.com>
* exp_ch9.adb, exp_code.adb, tbuild.adb, sem_case.adb,
restrict.adb: Minor code reorganization (use
Add_{Char,Str}_To_Name_Buffer instead of inlining it by hand).
From-SVN: r146166
Diffstat (limited to 'gcc/ada/exp_code.adb')
| -rw-r--r-- | gcc/ada/exp_code.adb | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/gcc/ada/exp_code.adb b/gcc/ada/exp_code.adb index e42bd6a..2b02752 100644 --- a/gcc/ada/exp_code.adb +++ b/gcc/ada/exp_code.adb @@ -220,8 +220,7 @@ package body Exp_Code is Name_Len := 0; loop - Name_Len := Name_Len + 1; - Name_Buffer (Name_Len) := C; + Add_Char_To_Name_Buffer (C); Clobber_Ptr := Clobber_Ptr + 1; exit when Clobber_Ptr > Len; C := Get_Character (Get_String_Char (Str, Clobber_Ptr)); |