diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2012-05-15 14:06:55 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2012-05-15 14:06:55 +0200 |
| commit | 5b5b27adff45664299c19f4666e078f4acecfdf7 (patch) | |
| tree | 01c416110922a7e372c9c428f0077e8b755bd4ee /gcc/ada/exp_ch5.adb | |
| parent | 053cf9940a4086500ebaa994d29b894e8f5ed71a (diff) | |
| download | gcc-5b5b27adff45664299c19f4666e078f4acecfdf7.zip gcc-5b5b27adff45664299c19f4666e078f4acecfdf7.tar.gz gcc-5b5b27adff45664299c19f4666e078f4acecfdf7.tar.bz2 | |
[multiple changes]
2012-05-15 Thomas Quinot <quinot@adacore.com>
* uintp.adb (Image_Uint): Use UI_Div_Rem to get quotient and
remainder of U / Base in a single operation.
2012-05-15 Robert Dewar <dewar@adacore.com>
* exp_ch5.adb, inline.adb, sem_ch10.adb, prj.ads, sem_util.adb,
a-ngelfu.ads, exp_ch4.adb, exp_ch6.adb, aspects.ads, sem_ch6.adb,
vms_data.ads, exp_ch3.adb, prj-env.adb: Minor reformatting.
From-SVN: r187529
Diffstat (limited to 'gcc/ada/exp_ch5.adb')
| -rw-r--r-- | gcc/ada/exp_ch5.adb | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/gcc/ada/exp_ch5.adb b/gcc/ada/exp_ch5.adb index 0acb74b..a9f6ce4 100644 --- a/gcc/ada/exp_ch5.adb +++ b/gcc/ada/exp_ch5.adb @@ -344,14 +344,12 @@ package body Exp_Ch5 is elsif Has_Controlled_Component (L_Type) then Loop_Required := True; - -- If changing scalar storage order and assigning a bit packed arrau, + -- If changing scalar storage order and assigning a bit packed array, -- force loop expansion. elsif Is_Bit_Packed_Array (L_Type) - and then - (In_Reverse_Storage_Order_Record (Rhs) - /= - In_Reverse_Storage_Order_Record (Lhs)) + and then (In_Reverse_Storage_Order_Record (Rhs) /= + In_Reverse_Storage_Order_Record (Lhs)) then Loop_Required := True; |