From ca2399d9e4c7a5ee317197fbbbcfd591e0d543af Mon Sep 17 00:00:00 2001 From: hp Date: Sun, 30 Oct 2005 17:06:40 +0000 Subject: [PATCH] * config/mmix/mmix.c (mmix_intval): Correct handling of DFmode constants for hosts with long != 32 bits. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@106027 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/ChangeLog | 5 +++++ gcc/config/mmix/mmix.c | 20 +++++++------------- 2 files changed, 12 insertions(+), 13 deletions(-) diff --git a/gcc/ChangeLog b/gcc/ChangeLog index c9bafab..4eb8a40 100644 --- a/gcc/ChangeLog +++ b/gcc/ChangeLog @@ -1,3 +1,8 @@ +2005-10-30 Hans-Peter Nilsson + + * config/mmix/mmix.c (mmix_intval): Correct handling of DFmode + constants for hosts with long != 32 bits. + 2005-10-28 Andreas Krebbel PR middle-end/24093 diff --git a/gcc/config/mmix/mmix.c b/gcc/config/mmix/mmix.c index 1b5acc4..fc2a5c8 100644 --- a/gcc/config/mmix/mmix.c +++ b/gcc/config/mmix/mmix.c @@ -2705,19 +2705,13 @@ mmix_intval (rtx x) REAL_VALUE_TO_TARGET_DOUBLE (value, bits); - if (sizeof (long) < sizeof (HOST_WIDEST_INT)) - { - retval = (unsigned long) bits[1] / 2; - retval *= 2; - retval |= (unsigned long) bits[1] & 1; - retval - |= (unsigned HOST_WIDEST_INT) bits[0] - << (sizeof (bits[0]) * 8); - } - else - retval = (unsigned long) bits[1]; - - return retval; + /* The double cast is necessary to avoid getting the long + sign-extended to unsigned long long(!) when they're of + different size (usually 32-bit hosts). */ + return + ((unsigned HOST_WIDEST_INT) (unsigned long) bits[0] + << (unsigned HOST_WIDEST_INT) 32U) + | (unsigned HOST_WIDEST_INT) (unsigned long) bits[1]; } else if (GET_MODE (x) == SFmode) { -- 2.7.4