diff options
| author | Robert Dewar <dewar@adacore.com> | 2010-06-22 15:32:18 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2010-06-22 17:32:18 +0200 |
| commit | 1c612f29199ea74e57bd9872e11ee726703aab2f (patch) | |
| tree | 6be3a62286a2a9099d500772a40a7709b0eb4b9b /gcc/ada/sem_aggr.adb | |
| parent | 82c2f1bbd38efde4a5891659ee1eeffbbfae56f6 (diff) | |
| download | gcc-1c612f29199ea74e57bd9872e11ee726703aab2f.zip gcc-1c612f29199ea74e57bd9872e11ee726703aab2f.tar.gz gcc-1c612f29199ea74e57bd9872e11ee726703aab2f.tar.bz2 | |
s-rannum.adb, [...]: Minor reformatting.
2010-06-22 Robert Dewar <dewar@adacore.com>
* s-rannum.adb, a-nudira.adb, types.ads, freeze.adb, sem_aggr.adb,
exp_aggr.adb: Minor reformatting.
* gnat_rm.texi: Document GNAT.MBBS_Discrete_Random and
GNAT.MBSS_Float_Random.
* g-mbdira.adb, g-mbflra.adb, g-mbdira.ads, g-mbflra.ads: Fix header.
From-SVN: r161194
Diffstat (limited to 'gcc/ada/sem_aggr.adb')
| -rw-r--r-- | gcc/ada/sem_aggr.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/sem_aggr.adb b/gcc/ada/sem_aggr.adb index 5ce3ea6..5ff55ce 100644 --- a/gcc/ada/sem_aggr.adb +++ b/gcc/ada/sem_aggr.adb @@ -1800,8 +1800,8 @@ package body Sem_Aggr is elsif Is_Tagged_Type (Etype (Expression (Assoc))) then Check_Dynamically_Tagged_Expression - (Expr => Expression (Assoc), - Typ => Component_Type (Etype (N)), + (Expr => Expression (Assoc), + Typ => Component_Type (Etype (N)), Related_Nod => N); end if; |