diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-04-16 10:31:23 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-04-16 10:31:23 +0000 |
| commit | 0c4c5759dea6a3bf65c4333c5baa8f04cb592532 (patch) | |
| tree | 0d8ff538d28b6c30c21077d81930181dcde2d797 /gcc/ada/exp_code.adb | |
| parent | 511d352ae8534e687870c1e0e7e3d6c37d9938d6 (diff) | |
| download | gcc-0c4c5759dea6a3bf65c4333c5baa8f04cb592532.tar.gz | |
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).
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@146166 138bc75d-0d04-0410-961f-82ee72b054a4
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 e42bd6aa9dc..2b0275268cf 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)); |