diff options
author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-08-05 15:10:50 +0000 |
---|---|---|
committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-08-05 15:10:50 +0000 |
commit | 651a38ec1da7e653b99f6a8dd0ffe393eada459f (patch) | |
tree | dbf7d77eccd6d83effd5cc41a4d0d61e74a759c3 /gcc/ada/exp_disp.adb | |
parent | 5d740b7e88bc2248d26f2d9923665e7a76857e30 (diff) | |
download | gcc-651a38ec1da7e653b99f6a8dd0ffe393eada459f.tar.gz |
2011-08-05 Robert Dewar <dewar@adacore.com>
* par_sco.adb, sem_ch3.adb, scos.ads, a-iteint.ads, sem_ch12.adb,
a-cimutr.adb, a-cimutr.ads, sem_util.ads, sem_res.adb, a-fihema.adb,
sem_ch4.adb, lib-xref-alfa.adb, exp_disp.adb, a-comutr.adb,
a-comutr.ads, lib-xref.adb: Minor reformatting.
2011-08-05 Robert Dewar <dewar@adacore.com>
* sem_ch11.adb (Analyze_Raise_Statement): Kill assignment to formal
warning if there is an exception handler present.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@177451 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/exp_disp.adb')
-rw-r--r-- | gcc/ada/exp_disp.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/exp_disp.adb b/gcc/ada/exp_disp.adb index 10c0d799e7e..e7614aa8ac1 100644 --- a/gcc/ada/exp_disp.adb +++ b/gcc/ada/exp_disp.adb @@ -7870,8 +7870,8 @@ package body Exp_Disp is First_Prim : constant Elmt_Id := First_Elmt (Primitive_Operations (Typ)); The_Tag : constant Entity_Id := First_Tag_Component (Typ); - Adjusted : Boolean := False; - Finalized : Boolean := False; + Adjusted : Boolean := False; + Finalized : Boolean := False; Count_Prim : Nat; DT_Length : Nat; |