diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2015-05-22 15:33:18 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2015-05-22 15:33:18 +0200 |
| commit | 088c7e1b0c52db7fa81623ab5b0795a89b41f054 (patch) | |
| tree | 296f5bef49f057c5b475241727dddb811da1d7a5 /gcc/ada/exp_ch4.adb | |
| parent | f8d851c6f796b81366e0c968c2e85a9b98a95ce8 (diff) | |
| download | gcc-088c7e1b0c52db7fa81623ab5b0795a89b41f054.zip gcc-088c7e1b0c52db7fa81623ab5b0795a89b41f054.tar.gz gcc-088c7e1b0c52db7fa81623ab5b0795a89b41f054.tar.bz2 | |
[multiple changes]
2015-05-22 Ed Schonberg <schonberg@adacore.com>
* sem_ch3.adb (Constrain_Concurrent): If the context is a
type declaration, generate an Itype_Reference for the anonymous
subtype, to force elaboration at this point in gigi.
2015-05-22 Gary Dismukes <dismukes@adacore.com>
* layout.adb, einfo.ads, sem_ch12.adb, freeze.adb, sem_util.ads,
exp_ch4.adb, sem_ch6.adb: Minor reformatting and typo fixes.
From-SVN: r223573
Diffstat (limited to 'gcc/ada/exp_ch4.adb')
| -rw-r--r-- | gcc/ada/exp_ch4.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/exp_ch4.adb b/gcc/ada/exp_ch4.adb index 0ef690b..7bd3c6b 100644 --- a/gcc/ada/exp_ch4.adb +++ b/gcc/ada/exp_ch4.adb @@ -7523,9 +7523,9 @@ package body Exp_Ch4 is Optimize_Length_Comparison (N); - -- One more special case, if we have a comparison of X'Result = expr + -- One more special case: if we have a comparison of X'Result = expr -- in floating-point, then if not already there, change expr to be - -- f'Machine (expr) to eliminate suprise from extra precision. + -- f'Machine (expr) to eliminate surprise from extra precision. if Is_Floating_Point_Type (Typl) and then Nkind (Original_Node (Lhs)) = N_Attribute_Reference |