diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2014-10-27 11:37:19 +0000 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2014-10-27 11:37:19 +0000 |
| commit | 084770317e9443ada06ea9d9c914504f0df2487e (patch) | |
| tree | c138491b6ad470289d7f832172e8e6a34f51897c /gcc | |
| parent | 5fe48b3df8d1e27d2348ee66dfef7fc7b9e42553 (diff) | |
| download | gcc-084770317e9443ada06ea9d9c914504f0df2487e.zip gcc-084770317e9443ada06ea9d9c914504f0df2487e.tar.gz gcc-084770317e9443ada06ea9d9c914504f0df2487e.tar.bz2 | |
* gcc-interface/trans.c (gnat_to_gnu) <N_Real_Literal>: Minor tweaks.
From-SVN: r216730
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/ChangeLog | 4 | ||||
| -rw-r--r-- | 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 8e0c881..574ed3b 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,5 +1,9 @@ 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 in the unit, set TREE_PUBLIC only if it has static storage duration. diff --git a/gcc/ada/gcc-interface/trans.c b/gcc/ada/gcc-interface/trans.c index 8117ee8..7c3edd3 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))); |