diff options
| author | Hristian Kirtchev <kirtchev@adacore.com> | 2019-07-04 08:07:14 +0000 |
|---|---|---|
| committer | Pierre-Marie de Rodat <pmderodat@gcc.gnu.org> | 2019-07-04 08:07:14 +0000 |
| commit | eedc5882dd635ce9cfaa650c790081b5130749af (patch) | |
| tree | 378e65c731cdde63ee335b0833e2d11500e0e943 /gcc/ada/exp_ch3.adb | |
| parent | 38818659c388491abe7ab11f8757c1ad2acd1506 (diff) | |
| download | gcc-eedc5882dd635ce9cfaa650c790081b5130749af.zip gcc-eedc5882dd635ce9cfaa650c790081b5130749af.tar.gz gcc-eedc5882dd635ce9cfaa650c790081b5130749af.tar.bz2 | |
[Ada] Minor reformatting
2019-07-04 Hristian Kirtchev <kirtchev@adacore.com>
gcc/ada/
* exp_ch3.adb, exp_ch4.adb, exp_ch4.ads, exp_ch5.adb,
exp_ch7.adb, exp_ch9.adb, exp_ch11.adb, exp_unst.adb,
rtsfind.ads, sem_attr.adb, sem_ch10.adb, sem_ch12.adb,
sem_ch13.adb, sem_dim.adb, sem_disp.adb, xref_lib.adb: Minor
reformatting.
From-SVN: r273070
Diffstat (limited to 'gcc/ada/exp_ch3.adb')
| -rw-r--r-- | gcc/ada/exp_ch3.adb | 17 |
1 files changed, 9 insertions, 8 deletions
diff --git a/gcc/ada/exp_ch3.adb b/gcc/ada/exp_ch3.adb index 6308b42..e48c188 100644 --- a/gcc/ada/exp_ch3.adb +++ b/gcc/ada/exp_ch3.adb @@ -4848,7 +4848,7 @@ package body Exp_Ch3 is Make_Range (Sloc (Enumeration_Rep_Expr (Ent)), Low_Bound => Make_Integer_Literal (Loc, - Intval => Enumeration_Rep (Ent)), + Intval => Enumeration_Rep (Ent)), High_Bound => Make_Integer_Literal (Loc, Intval => Last_Repval))), @@ -9486,10 +9486,11 @@ package body Exp_Ch3 is (E : Entity_Id; L : List_Id) return Node_Id is - Loc : constant Source_Ptr := Sloc (E); + Loc : constant Source_Ptr := Sloc (E); + C : Node_Id; - Field_Name : Name_Id; Cond : Node_Id; + Field_Name : Name_Id; Next_Test : Node_Id; Typ : Entity_Id; @@ -9534,11 +9535,11 @@ package body Exp_Ch3 is begin -- Build equality code with a user-defined operator, if - -- available, and with the predefined "=" otherwise. - -- For compatibility with older Ada versions, and preserve - -- the workings of some ASIS tools, we also use the - -- predefined operation if the component-type equality - -- is abstract, rather than raising Program_Error. + -- available, and with the predefined "=" otherwise. For + -- compatibility with older Ada versions, and preserve the + -- workings of some ASIS tools, we also use the predefined + -- operation if the component-type equality is abstract, + -- rather than raising Program_Error. if Ada_Version < Ada_2012 then Next_Test := Make_Op_Ne (Loc, Lhs, Rhs); |