diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-07-13 14:24:23 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-07-13 14:24:23 +0200 |
| commit | 7b00e31d1e201bdc2fb6518b8866bb0851261c7b (patch) | |
| tree | 19c848f498fd1aeb18d050c15ec9536a48e2a910 /gcc/ada/exp_dist.adb | |
| parent | 0e41a941ee11651b5805c730d2675902d64577aa (diff) | |
| download | gcc-7b00e31d1e201bdc2fb6518b8866bb0851261c7b.zip gcc-7b00e31d1e201bdc2fb6518b8866bb0851261c7b.tar.gz gcc-7b00e31d1e201bdc2fb6518b8866bb0851261c7b.tar.bz2 | |
[multiple changes]
2009-07-13 Robert Dewar <dewar@adacore.com>
* prj.ads, prj-dect.adb, prj-err.ads, prj-err.adb, prj-nmsc.adb,
prj-strt.ads: Minor reformatting
2009-07-13 Thomas Quinot <quinot@adacore.com>
* exp_dist.adb (Build_From_Any_Call): For the case of a generic type,
set the type of the From_Any call to the base type.
2009-07-13 Doug Rupp <rupp@adacore.com>
* symbols-processing-vms-ia64.adb (Process): Add variables and
constants to retrieve and check for symbol visibility.
2009-07-13 Javier Miranda <miranda@adacore.com>
* exp_ch4.adb (Expand_N_Unchecked_Type_Conversion): If conversion is to
the identical type we remove the conversion completely because
it is useless.
From-SVN: r149575
Diffstat (limited to 'gcc/ada/exp_dist.adb')
| -rw-r--r-- | gcc/ada/exp_dist.adb | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/gcc/ada/exp_dist.adb b/gcc/ada/exp_dist.adb index d975657..b1e77663 100644 --- a/gcc/ada/exp_dist.adb +++ b/gcc/ada/exp_dist.adb @@ -8617,17 +8617,16 @@ package body Exp_Dist is else declare Decl : Entity_Id; - Typ : Entity_Id := U_Type; begin -- For the subtype representing a generic actual type, go -- to the base type. - if Is_Generic_Actual_Type (Typ) then - Typ := Base_Type (Typ); + if Is_Generic_Actual_Type (U_Type) then + U_Type := Base_Type (U_Type); end if; - Build_From_Any_Function (Loc, Typ, Decl, Fnam); + Build_From_Any_Function (Loc, U_Type, Decl, Fnam); Append_To (Decls, Decl); end; end if; |