aboutsummaryrefslogtreecommitdiff
path: root/gcc/ada/gcc-interface/utils2.c
diff options
context:
space:
mode:
authorEric Botcazou <ebotcazou@adacore.com>2014-12-22 11:04:42 +0000
committerEric Botcazou <ebotcazou@gcc.gnu.org>2014-12-22 11:04:42 +0000
commit881cdd61eef4cb4e4b907f571c60c41bdb7d43ed (patch)
tree1aa02b64dae0f5cc24ee6f05fb898f03783b7087 /gcc/ada/gcc-interface/utils2.c
parent35786aad0c7e0ea1987b370a3e69d8730c11ae38 (diff)
downloadgcc-881cdd61eef4cb4e4b907f571c60c41bdb7d43ed.zip
gcc-881cdd61eef4cb4e4b907f571c60c41bdb7d43ed.tar.gz
gcc-881cdd61eef4cb4e4b907f571c60c41bdb7d43ed.tar.bz2
trans.c (Attribute_to_gnu): If the type is a floating-point type...
* gcc-interface/trans.c (Attribute_to_gnu) <Attr_{Min,Max}>: If the type is a floating-point type, implement the semantics of the C99 f{min,max} routines with regard to NaNs. (gnat_to_gnu): Call builtin_decl_implicit. * gcc-interface/utils2.c (compare_arrays): Adjust comments. From-SVN: r219010
Diffstat (limited to 'gcc/ada/gcc-interface/utils2.c')
-rw-r--r--gcc/ada/gcc-interface/utils2.c10
1 files changed, 5 insertions, 5 deletions
diff --git a/gcc/ada/gcc-interface/utils2.c b/gcc/ada/gcc-interface/utils2.c
index 1296a49..43e8a63 100644
--- a/gcc/ada/gcc-interface/utils2.c
+++ b/gcc/ada/gcc-interface/utils2.c
@@ -255,8 +255,8 @@ compare_arrays (location_t loc, tree result_type, tree a1, tree a2)
bool a2_side_effects_p = TREE_SIDE_EFFECTS (a2);
bool length_zero_p = false;
- /* If either operand has side-effects, they have to be evaluated only once
- in spite of the multiple references to the operand in the comparison. */
+ /* If the operands have side-effects, they need to be evaluated only once
+ in spite of the multiple references in the comparison. */
if (a1_side_effects_p)
a1 = gnat_protect_expr (a1);
@@ -419,9 +419,9 @@ compare_arrays (location_t loc, tree result_type, tree a1, tree a2)
a1_is_null, a2_is_null),
result);
- /* If either operand has side-effects, they have to be evaluated before
- starting the comparison above since the place they would be otherwise
- evaluated could be wrong. */
+ /* If the operands have side-effects, they need to be evaluated before
+ doing the tests above since the place they otherwise would end up
+ being evaluated at run time could be wrong. */
if (a1_side_effects_p)
result = build2 (COMPOUND_EXPR, result_type, a1, result);