From 084770317e9443ada06ea9d9c914504f0df2487e Mon Sep 17 00:00:00 2001 From: Eric Botcazou Date: Mon, 27 Oct 2014 11:37:19 +0000 Subject: [PATCH] * gcc-interface/trans.c (gnat_to_gnu) : Minor tweaks. From-SVN: r216730 --- gcc/ada/ChangeLog | 4 ++++ gcc/ada/gcc-interface/trans.c | 19 ++++++++----------- 2 files changed, 12 insertions(+), 11 deletions(-) diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 8e0c881ebd9..574ed3b1340 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,7 @@ +2014-10-27 Eric Botcazou + + * gcc-interface/trans.c (gnat_to_gnu) : Minor tweaks. + 2014-10-27 Eric Botcazou * gcc-interface/utils.c (create_var_decl_1): For a variable declared diff --git a/gcc/ada/gcc-interface/trans.c b/gcc/ada/gcc-interface/trans.c index 8117ee8f546..7c3edd399aa 100644 --- a/gcc/ada/gcc-interface/trans.c +++ b/gcc/ada/gcc-interface/trans.c @@ -5330,8 +5330,8 @@ gnat_to_gnu (Node_Id gnat_node) case N_Real_Literal: gnu_result_type = get_unpadded_type (Etype (gnat_node)); - /* If this is of a fixed-point type, the value we want is the - value of the corresponding integer. */ + /* If this is of a fixed-point type, the value we want is the value of + the corresponding integer. */ if (IN (Ekind (Underlying_Type (Etype (gnat_node))), Fixed_Point_Kind)) { gnu_result = UI_To_gnu (Corresponding_Integer_Value (gnat_node), @@ -5343,10 +5343,9 @@ gnat_to_gnu (Node_Id gnat_node) { Ureal ur_realval = Realval (gnat_node); - /* First convert the real value to a machine number if it isn't - already. That forces BASE to 2 for non-zero values and simplifies - the rest of our logic. */ - + /* First convert the value to a machine number if it isn't already. + That will force the base to 2 for non-zero values and simplify + the rest of the logic. */ if (!Is_Machine_Number (gnat_node)) ur_realval = Machine (Base_Type (Underlying_Type (Etype (gnat_node))), @@ -5358,13 +5357,11 @@ gnat_to_gnu (Node_Id gnat_node) { REAL_VALUE_TYPE tmp; - gnu_result - = UI_To_gnu (Numerator (ur_realval), gnu_result_type); + gnu_result = UI_To_gnu (Numerator (ur_realval), gnu_result_type); /* The base must be 2 as Machine guarantees this, so we scale - the value, which we know can fit in the mantissa of the type - (hence the use of that type above). */ - + the value, which we know can fit in the mantissa of the type + (hence the use of that type above). */ gcc_assert (Rbase (ur_realval) == 2); real_ldexp (&tmp, &TREE_REAL_CST (gnu_result), - UI_To_Int (Denominator (ur_realval))); -- 2.30.2