diff options
| author | Robert Dewar <dewar@adacore.com> | 2013-04-11 13:06:57 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2013-04-11 15:06:57 +0200 |
| commit | 4b342b91f00c9b8a1768c906edea9407ea18f76c (patch) | |
| tree | 67f3107923b6885a39feaae2f216e524297a4105 /gcc/ada/sem_util.adb | |
| parent | da1c23dd6f53ba955f2b0aefc00ff66bbbcfb11f (diff) | |
| download | gcc-4b342b91f00c9b8a1768c906edea9407ea18f76c.zip gcc-4b342b91f00c9b8a1768c906edea9407ea18f76c.tar.gz gcc-4b342b91f00c9b8a1768c906edea9407ea18f76c.tar.bz2 | |
einfo.ads, [...]: Minor reformatting.
2013-04-11 Robert Dewar <dewar@adacore.com>
* einfo.ads, sem_util.adb, exp_ch6.adb, xgnatugn.adb: Minor
reformatting.
From-SVN: r197788
Diffstat (limited to 'gcc/ada/sem_util.adb')
| -rw-r--r-- | gcc/ada/sem_util.adb | 13 |
1 files changed, 5 insertions, 8 deletions
diff --git a/gcc/ada/sem_util.adb b/gcc/ada/sem_util.adb index 6cba060..806b648 100644 --- a/gcc/ada/sem_util.adb +++ b/gcc/ada/sem_util.adb @@ -7756,9 +7756,7 @@ package body Sem_Util is if Compile_Time_Known_Value (Exp) then return True; - elsif Is_Entity_Name (Exp) - and then Present (Entity (Exp)) - then + elsif Is_Entity_Name (Exp) and then Present (Entity (Exp)) then return Is_Constant_Object (Entity (Exp)) or else Ekind (Entity (Exp)) = E_Enumeration_Literal; @@ -9582,11 +9580,10 @@ package body Sem_Util is return Ekind (Op) = E_Function and then Is_Intrinsic_Subprogram (Op) and then - ((Present_System_Aux - and then Scope (Op) = System_Aux_Id) - or else - (True_VMS_Target - and then Scope (Scope (Op)) = RTU_Entity (System))); + ((Present_System_Aux and then Scope (Op) = System_Aux_Id) + or else + (True_VMS_Target + and then Scope (Scope (Op)) = RTU_Entity (System))); end Is_VMS_Operator; ----------------- |