diff options
| author | Janne Blomqvist <jb@gcc.gnu.org> | 2017-01-03 20:01:30 +0200 |
|---|---|---|
| committer | Janne Blomqvist <jb@gcc.gnu.org> | 2017-01-03 20:01:30 +0200 |
| commit | 84aff3c2d4b487fe93f5caa6351c47d56145a6a1 (patch) | |
| tree | 09d627d26346335c50d501ba2f2e2f39094071bc /gcc/fortran/misc.c | |
| parent | 47f2abdd0d8bc3a760041149a93e35bc5db9d54e (diff) | |
| download | gcc-84aff3c2d4b487fe93f5caa6351c47d56145a6a1.zip gcc-84aff3c2d4b487fe93f5caa6351c47d56145a6a1.tar.gz gcc-84aff3c2d4b487fe93f5caa6351c47d56145a6a1.tar.bz2 | |
PR 78534 Revert r244011
r244011 caused regressions on 32-bit hosts.
From-SVN: r244027
Diffstat (limited to 'gcc/fortran/misc.c')
| -rw-r--r-- | gcc/fortran/misc.c | 22 |
1 files changed, 0 insertions, 22 deletions
diff --git a/gcc/fortran/misc.c b/gcc/fortran/misc.c index 7dd0557..a2c199e 100644 --- a/gcc/fortran/misc.c +++ b/gcc/fortran/misc.c @@ -22,7 +22,6 @@ along with GCC; see the file COPYING3. If not see #include "system.h" #include "coretypes.h" #include "gfortran.h" -#include "tree.h" /* Initialize a typespec to unknown. */ @@ -281,24 +280,3 @@ get_c_kind(const char *c_kind_name, CInteropKind_t kinds_table[]) return ISOCBINDING_INVALID; } - - -/* Convert between GMP integers (mpz_t) and HOST_WIDE_INT. */ - -HOST_WIDE_INT -gfc_mpz_get_hwi (mpz_t op) -{ - /* Using long_long_integer_type_node as that is the integer type - node that closest matches HOST_WIDE_INT; both are guaranteed to - be at least 64 bits. */ - const wide_int w = wi::from_mpz (long_long_integer_type_node, op, true); - return w.to_shwi (); -} - - -void -gfc_mpz_set_hwi (mpz_t rop, const HOST_WIDE_INT op) -{ - const wide_int w = wi::shwi (op, HOST_BITS_PER_WIDE_INT); - wi::to_mpz (w, rop, SIGNED); -} |