diff options
author | Hristian Kirtchev <kirtchev@adacore.com> | 2019-07-01 13:34:49 +0000 |
---|---|---|
committer | Pierre-Marie de Rodat <pmderodat@gcc.gnu.org> | 2019-07-01 13:34:49 +0000 |
commit | 68f27c97bff2d21c107ca90e1b597fed45b52ba5 (patch) | |
tree | 502dec3b91fe96d3e4ab7d00ef2f01b19f0f4de6 /gcc/ada/exp_unst.adb | |
parent | 54948285e6267a68d5f08f1d1c09e677abcbb34f (diff) | |
download | gcc-68f27c97bff2d21c107ca90e1b597fed45b52ba5.zip gcc-68f27c97bff2d21c107ca90e1b597fed45b52ba5.tar.gz gcc-68f27c97bff2d21c107ca90e1b597fed45b52ba5.tar.bz2 |
[Ada] Minor reformatting
2019-07-01 Hristian Kirtchev <kirtchev@adacore.com>
gcc/ada/
* exp_attr.adb, exp_ch7.adb, exp_unst.adb, sem_ch3.adb,
sem_util.adb, uintp.adb, uintp.ads: Minor reformatting.
From-SVN: r272859
Diffstat (limited to 'gcc/ada/exp_unst.adb')
-rw-r--r-- | gcc/ada/exp_unst.adb | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/gcc/ada/exp_unst.adb b/gcc/ada/exp_unst.adb index 3d533ba..5aa1fa6 100644 --- a/gcc/ada/exp_unst.adb +++ b/gcc/ada/exp_unst.adb @@ -254,8 +254,7 @@ package body Exp_Unst is Typ := Full_View (Typ); end if; - return Is_Array_Type (Typ) - and then not Is_Constrained (Typ); + return Is_Array_Type (Typ) and then not Is_Constrained (Typ); else return False; end if; @@ -2188,8 +2187,7 @@ package body Exp_Unst is and then Present (Constant_Value (UPJ.Ent)) and then Is_Static_Expression (Constant_Value (UPJ.Ent)) then - Rewrite (UPJ.Ref, - New_Copy_Tree (Constant_Value (UPJ.Ent))); + Rewrite (UPJ.Ref, New_Copy_Tree (Constant_Value (UPJ.Ent))); goto Continue; end if; |