static tree gmp_cst_to_tree (tree type, mpz_t val) { tree t = type ? type : integer_type_node; mpz_t tmp; double_int di; mpz_init (tmp); mpz_set (tmp, val); di = mpz_get_double_int (t, tmp, true); mpz_clear (tmp); return double_int_to_tree (t, di); }
tree gfc_conv_mpz_to_tree (mpz_t i, int kind) { double_int val = mpz_get_double_int (gfc_get_int_type (kind), i, true); return double_int_to_tree (gfc_get_int_type (kind), val); }