mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-10 06:40:29 +08:00
Code Issues Packages Projects Releases Wiki Activity

trans-const.c (gfc_conv_mpfr_to_tree): Remove unneeded computation; simplify logic; Add a gcc_assert.

Browse Source 
* trans-const.c (gfc_conv_mpfr_to_tree): Remove unneeded computation;
  simplify logic; Add a gcc_assert.

From-SVN: r98587
This commit is contained in:
Steven G. Kargl 2005-04-22 20:33:12 +00:00 committed by Steven G. Kargl
parent eeab1ad250
commit c41993e86d
2 changed files with 17 additions and 39 deletions

5
gcc/fortran/ChangeLog

@ -1,3 +1,8 @@
2005-04-21 Steven G. Kargl <kargls@comcast.net>
* trans-const.c (gfc_conv_mpfr_to_tree): Remove unneeded computation;
simplify logic; Add a gcc_assert.
2005-04-19 Steven G. Kargl <kargls@comcast.net>
* trans-const.c (gfc_conv_mpz_to_tree): Fix comment.

51
gcc/fortran/trans-const.c

@ -221,10 +221,8 @@ gfc_conv_mpfr_to_tree (mpfr_t f, int kind)
tree res;
tree type;
mp_exp_t exp;
char *p;
char *q;
char *p, *q;
int n;
int edigits;
for (n = 0; gfc_real_kinds[n].kind != 0; n++)
{
@ -233,45 +231,20 @@ gfc_conv_mpfr_to_tree (mpfr_t f, int kind)
}
gcc_assert (gfc_real_kinds[n].kind);
n = MAX (abs (gfc_real_kinds[n].min_exponent),
abs (gfc_real_kinds[n].max_exponent));
/* A decimal representation is used here, which requires the additional
two characters for rounding. TODO: Use a hexadecimal representation
to avoid rounding issues. */
p = mpfr_get_str (NULL, &exp, 10, gfc_real_kinds[n].precision+2,
f, GFC_RND_MODE);
gcc_assert (p);
edigits = 1;
while (n > 0)
{
n = n / 10;
edigits += 3;
}
/* The additional 10 characters add space for the sprintf below. */
q = (char *) gfc_getmem (strlen (p) + 10);
if (kind == gfc_default_double_kind)
p = mpfr_get_str (NULL, &exp, 10, 17, f, GFC_RND_MODE);
if (p[0] == '-')
sprintf (q, "-.%se%d", &p[1], (int) exp);
else
p = mpfr_get_str (NULL, &exp, 10, 8, f, GFC_RND_MODE);
/* We also have one minus sign, "e", "." and a null terminator. */
q = (char *) gfc_getmem (strlen (p) + edigits + 4);
if (p[0])
{
if (p[0] == '-')
{
strcpy (&q[2], &p[1]);
q[0] = '-';
q[1] = '.';
}
else
{
strcpy (&q[1], p);
q[0] = '.';
}
strcat (q, "e");
sprintf (&q[strlen (q)], "%d", (int) exp);
}
else
{
strcpy (q, "0");
}
sprintf (q, ".%se%d", p, (int) exp);
type = gfc_get_real_type (kind);
res = build_real (type, REAL_VALUE_ATOF (q, TYPE_MODE (type)));