diff options
| author | Robert Dewar <dewar@adacore.com> | 2015-05-12 09:28:19 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2015-05-12 11:28:19 +0200 |
| commit | fed8bd87d5832d9c61c648ed2a2103f853fad00a (patch) | |
| tree | 5513301ef8e56200c391753bd0ede25c21b307b9 /gcc/ada/exp_intr.adb | |
| parent | 27fd9ad83b56a6cb256bae3a1c6524afb624d209 (diff) | |
| download | gcc-fed8bd87d5832d9c61c648ed2a2103f853fad00a.zip gcc-fed8bd87d5832d9c61c648ed2a2103f853fad00a.tar.gz gcc-fed8bd87d5832d9c61c648ed2a2103f853fad00a.tar.bz2 | |
sem_ch9.adb, [...]: Minor reformatting.
2015-05-12 Robert Dewar <dewar@adacore.com>
* sem_ch9.adb, einfo.ads, exp_intr.adb: Minor reformatting.
* sem_disp.adb: Minor code reorganization (remove junk redundant
null statement).
* exp_unst.adb (Unnest_Subprogram.Uplev_Refs): Ignore uplevel
references to bounds of types coming from original type reference.
* checks.ads: Minor reformatting.
* checks.adb: Minor reformatting.
* sem_prag.adb (Analyze_Pragma, case Check): If in ignored
assertion, then make sure we do not drag in bignum stuff.
From-SVN: r223053
Diffstat (limited to 'gcc/ada/exp_intr.adb')
| -rw-r--r-- | gcc/ada/exp_intr.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/exp_intr.adb b/gcc/ada/exp_intr.adb index 7e68600..8002fef 100644 --- a/gcc/ada/exp_intr.adb +++ b/gcc/ada/exp_intr.adb @@ -359,8 +359,8 @@ package body Exp_Intr is Parameter_Associations => New_List ( Relocate_Node (Tag_Arg), New_Occurrence_Of - (Node (First_Elmt (Access_Disp_Table - (Etype (Act_Constr)))), + (Node (First_Elmt + (Access_Disp_Table (Etype (Act_Constr)))), Loc)))); Insert_Action (N, Iface_Tag); end; |