diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2008-08-04 17:34:39 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2008-08-04 17:34:39 +0200 |
| commit | 367a9e66e0bf0f97e38dd4525887a8ed76a61a54 (patch) | |
| tree | de98b9261a144c7b320131032919c74824f68275 | |
| parent | f2131422e4e24a474ceb16e9781f9e0508ead720 (diff) | |
| download | gcc-367a9e66e0bf0f97e38dd4525887a8ed76a61a54.zip gcc-367a9e66e0bf0f97e38dd4525887a8ed76a61a54.tar.gz gcc-367a9e66e0bf0f97e38dd4525887a8ed76a61a54.tar.bz2 | |
exp_ch4.adb: Minor reformatting
2008-08-04 Robert Dewar <dewar@adacore.com>
* exp_ch4.adb: Minor reformatting
From-SVN: r138638
| -rw-r--r-- | gcc/ada/ChangeLog | 17 | ||||
| -rw-r--r-- | gcc/ada/exp_ch4.adb | 4 |
2 files changed, 19 insertions, 2 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index e49c0cd..5e55185 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,20 @@ +2008-08-04 Thomas Quinot <quinot@adacore.com> + + * sem_type.adb, sem_ch4.adb, sprint.adb, exp_ch3.adb: Minor reformatting + +2008-08-04 Vasiliy Fofanov <fofanov@adacore.com> + + * g-soccon-mingw.ads: Fix value for MSG_WAITALL + +2008-08-04 Javier Miranda <miranda@adacore.com> + + * sem_prag.adb (Process_Convention): Add missing support for + N_Private_Extension_Declaration nodes. + +2008-08-04 Robert Dewar <dewar@adacore.com> + + * exp_ch4.adb: Minor reformatting + 2008-08-04 Pascal Obry <obry@adacore.com> * adaint.h: Add missing prototype. diff --git a/gcc/ada/exp_ch4.adb b/gcc/ada/exp_ch4.adb index b1243d7..6b395ac 100644 --- a/gcc/ada/exp_ch4.adb +++ b/gcc/ada/exp_ch4.adb @@ -2636,7 +2636,7 @@ package body Exp_Ch4 is New_Reference_To (Ind_Typ, Loc), New_Reference_To (Defining_Identifier (I_Decl), Loc))); - -- For other index types, computation is safe. + -- For other index types, computation is safe else H_Init := Ind_Val (Make_Op_Add (Loc, H_Init, L_Pos)); @@ -2667,7 +2667,7 @@ package body Exp_Ch4 is Declare_Decls := New_List (P_Decl, H_Decl, R_Decl); - -- Add constraint check for the modular index case. + -- Add constraint check for the modular index case if Is_Modular_Integer_Type (Ind_Typ) and then Esize (Ind_Typ) < Esize (Standard_Integer) |