* gcc-interface/trans.c (gnat_to_gnu) <N_Real_Literal>: Minor tweaks.

From-SVN: r216730

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 8e0c881ebd9db85ff477debefb3a83ed03e5284a..574ed3b13409f02664a2aecab38dab3185f6c178 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,7 @@
+2014-10-27  Eric Botcazou  <ebotcazou@adacore.com>
+
+       * gcc-interface/trans.c (gnat_to_gnu) <N_Real_Literal>: Minor tweaks.
+
 2014-10-27  Eric Botcazou  <ebotcazou@adacore.com>
 
        * 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 8117ee8f5462debb245c2a0e30ce12854bc7e5cc..7c3edd399aa2ade2744999864121d5ac19be217b 100644 (file)
--- 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)));