diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-04-17 13:31:42 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-04-17 13:31:42 +0000 |
| commit | 3164ed990bfd2faa330a8536cd22fa4f2c638fd9 (patch) | |
| tree | d8fc5b05422c518bb486d7b26cdb24c2dcf90224 /gcc/ada/exp_ch5.adb | |
| parent | fa74796eb292b506a5061c4e5345bed45373e90e (diff) | |
| download | gcc-3164ed990bfd2faa330a8536cd22fa4f2c638fd9.tar.gz | |
2009-04-17 Robert Dewar <dewar@adacore.com>
* exp_disp.adb: Minor reformatting
Minor code reorganization (use Nkind_In)
* prepcomp.adb: Minor reformatting
* sem_ch3.adb: Minor reformatting
* sem_res.adb: Minor comment addition
* exp_ch5.adb (Expand_Assign_Array): Use Has_Address_Clause to test
for address clause
* lib-xref.adb (Generate_Reference): Exclude recursive calls from
setting Is_Referenced
* types.ads: Minor reformatting
2009-04-17 Arnaud Charlet <charlet@adacore.com>
* gnat_ugn.texi: Initial documentation on binding generator.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@146266 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/exp_ch5.adb')
| -rw-r--r-- | gcc/ada/exp_ch5.adb | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/gcc/ada/exp_ch5.adb b/gcc/ada/exp_ch5.adb index c025f5814c4..5008f4c1eed 100644 --- a/gcc/ada/exp_ch5.adb +++ b/gcc/ada/exp_ch5.adb @@ -311,12 +311,7 @@ package body Exp_Ch5 is -- If either operand has an address clause clear Backwards_OK and -- Forwards_OK, since we cannot tell if the operands overlap. - if (Is_Entity_Name (Lhs) - and then Present (Address_Clause (Entity (Lhs)))) - or else - (Is_Entity_Name (Lhs) - and then Present (Address_Clause (Entity (Lhs)))) - then + if Has_Address_Clause (Lhs) or else Has_Address_Clause (Rhs) then Set_Forwards_OK (N, False); Set_Backwards_OK (N, False); end if; |