OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

* trans-const.c (gfc_conv_mpz_to_tree): Fix 64-bit shift warning. 

From-SVN: r86504
This commit is contained in:
Richard Henderson 2004-08-24 11:23:11 -07:00 committed by Richard Henderson
parent 9e995780d4
commit 0c8eb9985d
2 changed files with 10 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gcc/fortran/ChangeLog
View File

@ -1,3 +1,7 @@
2004-08-24 Richard Henderson <rth@redhat.com>
* trans-const.c (gfc_conv_mpz_to_tree): Fix 64-bit shift warning.
2004-08-24 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de>
* resolve.c (merge_argument_lists): Revert unintentionally

11
gcc/fortran/trans-const.c
View File

@ -187,21 +187,22 @@ gfc_conv_mpz_to_tree (mpz_t i, int kind)
else if (sizeof (mp_limb_t) == 2 * sizeof (HOST_WIDE_INT))
{
mp_limb_t limb0 = mpz_getlimbn (i, 0);
int count = (sizeof (mp_limb_t) - sizeof (HOST_WIDE_INT)) * CHAR_BIT;
int shift = (sizeof (mp_limb_t) - sizeof (HOST_WIDE_INT)) * CHAR_BIT;
low = limb0;
high = limb0 >> count;
high = limb0 >> shift;
}
else if (sizeof (mp_limb_t) < sizeof (HOST_WIDE_INT))
{
int shift = sizeof (mp_limb_t) * CHAR_BIT;
int n, count = sizeof (HOST_WIDE_INT) / sizeof (mp_limb_t);
for (low = n = 0; n < count; ++n)
{
low <<= sizeof (mp_limb_t) * CHAR_BIT;
low <<= shift;
low |= mpz_getlimbn (i, n);
}
for (high = 0; n < 2*count; ++n)
for (high = 0, n = count; n < 2*count; ++n)
{
high <<= sizeof (mp_limb_t) * CHAR_BIT;
high <<= shift;
high |= mpz_getlimbn (i, n);
}
}