diff options
Diffstat (limited to 'gcc/fortran/trans-const.c')
| -rw-r--r-- | gcc/fortran/trans-const.c | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/gcc/fortran/trans-const.c b/gcc/fortran/trans-const.c index a801ce8c60a..1ff33e5c92a 100644 --- a/gcc/fortran/trans-const.c +++ b/gcc/fortran/trans-const.c @@ -200,7 +200,7 @@ gfc_init_constants (void) tree gfc_conv_mpz_to_tree (mpz_t i, int kind) { - wide_int val = wide_int::from_mpz (gfc_get_int_type (kind), i, true); + wide_int val = wi::from_mpz (gfc_get_int_type (kind), i, true); return wide_int_to_tree (gfc_get_int_type (kind), val); } @@ -209,8 +209,7 @@ gfc_conv_mpz_to_tree (mpz_t i, int kind) void gfc_conv_tree_to_mpz (mpz_t i, tree source) { - wide_int val = source; - val.to_mpz (i, TYPE_SIGN (TREE_TYPE (source))); + wi::to_mpz (source, i, TYPE_SIGN (TREE_TYPE (source))); } /* Converts a real constant into backend form. */ |