diff options
| author | Robert Dewar <dewar@adacore.com> | 2011-08-30 13:31:38 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-08-30 15:31:38 +0200 |
| commit | 996c8821a235a2313d3574d0815044847f7b5c14 (patch) | |
| tree | 2f3990f111f9ff03c198e8c4705bb7595db190bc /gcc/ada/exp_ch4.adb | |
| parent | 8ed6164c72a03658c50da50f2ead9ed18d41b727 (diff) | |
| download | gcc-996c8821a235a2313d3574d0815044847f7b5c14.zip gcc-996c8821a235a2313d3574d0815044847f7b5c14.tar.gz gcc-996c8821a235a2313d3574d0815044847f7b5c14.tar.bz2 | |
exp_ch5.adb, [...]: Minor reformatting
2011-08-30 Robert Dewar <dewar@adacore.com>
* exp_ch5.adb, sem_ch3.adb, sem_ch5.adb, einfo.adb, checks.adb,
sem_util.adb, sem_util.ads, sem_res.adb, s-stposu.adb, sem_attr.adb,
exp_ch4.adb, exp_ch6.adb, s-bbthre.adb, lib-xref-alfa.adb,
sem_ch8.adb, sem_disp.adb, exp_ch3.adb: Minor reformatting
2011-08-30 Robert Dewar <dewar@adacore.com>
* gnat_rm.texi: Add section on C.6(16) implementation advice for pragma
volatile.
From-SVN: r178303
Diffstat (limited to 'gcc/ada/exp_ch4.adb')
| -rw-r--r-- | gcc/ada/exp_ch4.adb | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/gcc/ada/exp_ch4.adb b/gcc/ada/exp_ch4.adb index b7698ab..a36c0af 100644 --- a/gcc/ada/exp_ch4.adb +++ b/gcc/ada/exp_ch4.adb @@ -4971,9 +4971,11 @@ package body Exp_Ch4 is New_N : Node_Id; Param_Level : Node_Id; Type_Level : Node_Id; + begin if Is_Entity_Name (Lop) then Expr_Entity := Param_Entity (Lop); + if not Present (Expr_Entity) then Expr_Entity := Entity (Lop); end if; @@ -4996,11 +4998,11 @@ package body Exp_Ch4 is else if Present (Expr_Entity) - and then Present - (Effective_Extra_Accessibility (Expr_Entity)) - and then UI_Gt - (Object_Access_Level (Lop), - Type_Access_Level (Rtyp)) + and then + Present + (Effective_Extra_Accessibility (Expr_Entity)) + and then UI_Gt (Object_Access_Level (Lop), + Type_Access_Level (Rtyp)) then Param_Level := New_Occurrence_Of |