diff options
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 |