diff options
| author | jb <jb@138bc75d-0d04-0410-961f-82ee72b054a4> | 2017-01-03 18:01:30 +0000 |
|---|---|---|
| committer | jb <jb@138bc75d-0d04-0410-961f-82ee72b054a4> | 2017-01-03 18:01:30 +0000 |
| commit | 6dc2e74e90f066c46af278009699c08b8b459c27 (patch) | |
| tree | 09d627d26346335c50d501ba2f2e2f39094071bc /gcc/fortran/trans-const.c | |
| parent | 1d8be7c027bc4c4f19b7c4824f97649aa39a841a (diff) | |
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
Diffstat (limited to 'gcc/fortran/trans-const.c')
| -rw-r--r-- | gcc/fortran/trans-const.c | 12 |
1 files changed, 0 insertions, 12 deletions
diff --git a/gcc/fortran/trans-const.c b/gcc/fortran/trans-const.c index cd4a8d7588b..128d47d0fa3 100644 --- a/gcc/fortran/trans-const.c +++ b/gcc/fortran/trans-const.c @@ -206,18 +206,6 @@ gfc_conv_mpz_to_tree (mpz_t i, int kind) return wide_int_to_tree (gfc_get_int_type (kind), val); } - -/* Convert a GMP integer into a tree node of type given by the type - argument. */ - -tree -gfc_conv_mpz_to_tree_type (mpz_t i, const tree type) -{ - const wide_int val = wi::from_mpz (type, i, true); - return wide_int_to_tree (type, val); -} - - /* Converts a backend tree into a GMP integer. */ void |