trans-const.c (gfc_conv_mpz_to_tree): Change call to build_int_cst to build_int_cst_w...

* trans-const.c (gfc_conv_mpz_to_tree): Change call to
build_int_cst to build_int_cst_wide in accordance to Nathan's
previous patch.

From-SVN: r86549

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 0d2f8b6a1b7237dc35d1f0b3cec3ca5d6e39696b..0e8aab90b36af02f6d072c6be803ad9218e1552a 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,9 @@
+2004-08-25  Tobias Schlueter  <tobias.schlueter@physik.uni-muenchen.de>
+
+       * trans-const.c (gfc_conv_mpz_to_tree): Change call to 
+       build_int_cst to build_int_cst_wide in accordance to Nathan's
+       previous patch.
+
 2004-08-25  Nathan Sidwell  <nathan@codesourcery.com>
 
        * trans-array.c (gfc_trans_array_constructor_value): Adjust

diff --git a/gcc/fortran/trans-const.c b/gcc/fortran/trans-const.c
index 2f485a75951f96e67ee72ede1625f3667d5ff4c2..25a945905e4f8fd3447dfd8d808fbc0bccaa42da 100644 (file)
--- a/gcc/fortran/trans-const.c
+++ b/gcc/fortran/trans-const.c
@@ -218,7 +218,7 @@ gfc_conv_mpz_to_tree (mpz_t i, int kind)
        }
     }
 
-  return build_int_cst (gfc_get_int_type (kind), low, high);
+  return build_int_cst_wide (gfc_get_int_type (kind), low, high);
 }
 
 /* Converts a real constant into backend form.  Uses an intermediate string