PR 78534 Revert r244011

r244011 caused regressions on 32-bit hosts.


git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@244027 138bc75d-0d04-0410-961f-82ee72b054a4

1 files changed, 0 insertions, 22 deletions

diff --git a/gcc/fortran/misc.c b/gcc/fortran/misc.c
index 7dd0557bb3b8..a2c199efb56a 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);
-}