From: Arnaud Charlet Date: Mon, 4 Aug 2008 15:34:39 +0000 (+0200) Subject: exp_ch4.adb: Minor reformatting X-Git-Tag: releases/gcc-4.4.0~3400 X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=367a9e66e0bf0f97e38dd4525887a8ed76a61a54;p=thirdparty%2Fgcc.git exp_ch4.adb: Minor reformatting 2008-08-04 Robert Dewar * exp_ch4.adb: Minor reformatting From-SVN: r138638 --- diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index e49c0cd7510a..5e5518596eba 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,20 @@ +2008-08-04 Thomas Quinot + + * sem_type.adb, sem_ch4.adb, sprint.adb, exp_ch3.adb: Minor reformatting + +2008-08-04 Vasiliy Fofanov + + * g-soccon-mingw.ads: Fix value for MSG_WAITALL + +2008-08-04 Javier Miranda + + * sem_prag.adb (Process_Convention): Add missing support for + N_Private_Extension_Declaration nodes. + +2008-08-04 Robert Dewar + + * exp_ch4.adb: Minor reformatting + 2008-08-04 Pascal Obry * adaint.h: Add missing prototype. diff --git a/gcc/ada/exp_ch4.adb b/gcc/ada/exp_ch4.adb index b1243d7a280a..6b395ac68986 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)