diff options
Diffstat (limited to 'gcc/fortran/trans-io.c')
| -rw-r--r-- | gcc/fortran/trans-io.c | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/gcc/fortran/trans-io.c b/gcc/fortran/trans-io.c index 8021bc6..07df5d8 100644 --- a/gcc/fortran/trans-io.c +++ b/gcc/fortran/trans-io.c @@ -295,7 +295,7 @@ gfc_build_io_library_fndecls (void) types[IOPARM_type_pchar] = pchar_type_node; pad_size = 16 * TREE_INT_CST_LOW (TYPE_SIZE_UNIT (pchar_type_node)); pad_size += 32 * TREE_INT_CST_LOW (TYPE_SIZE_UNIT (integer_type_node)); - pad_idx = build_index_type (build_int_cst (NULL_TREE, pad_size - 1)); + pad_idx = build_index_type (size_int (pad_size - 1)); types[IOPARM_type_pad] = build_array_type (char_type_node, pad_idx); /* pad actually contains pointers and integers so it needs to have an @@ -826,7 +826,7 @@ add_case (int label_value, gfc_st_label * label, stmtblock_t * body) if (label == NULL) return; /* No label, no case */ - value = build_int_cst (NULL_TREE, label_value); + value = build_int_cst (integer_type_node, label_value); /* Make a backend label for this case. */ tmp = gfc_build_label_decl (NULL_TREE); @@ -2051,7 +2051,7 @@ transfer_expr (gfc_se * se, gfc_typespec * ts, tree addr_expr, gfc_code * code) switch (ts->type) { case BT_INTEGER: - arg2 = build_int_cst (NULL_TREE, kind); + arg2 = build_int_cst (integer_type_node, kind); if (last_dt == READ) function = iocall[IOCALL_X_INTEGER]; else @@ -2060,7 +2060,7 @@ transfer_expr (gfc_se * se, gfc_typespec * ts, tree addr_expr, gfc_code * code) break; case BT_REAL: - arg2 = build_int_cst (NULL_TREE, kind); + arg2 = build_int_cst (integer_type_node, kind); if (last_dt == READ) { if (gfc_real16_is_float128 && ts->kind == 16) @@ -2079,7 +2079,7 @@ transfer_expr (gfc_se * se, gfc_typespec * ts, tree addr_expr, gfc_code * code) break; case BT_COMPLEX: - arg2 = build_int_cst (NULL_TREE, kind); + arg2 = build_int_cst (integer_type_node, kind); if (last_dt == READ) { if (gfc_real16_is_float128 && ts->kind == 16) @@ -2098,7 +2098,7 @@ transfer_expr (gfc_se * se, gfc_typespec * ts, tree addr_expr, gfc_code * code) break; case BT_LOGICAL: - arg2 = build_int_cst (NULL_TREE, kind); + arg2 = build_int_cst (integer_type_node, kind); if (last_dt == READ) function = iocall[IOCALL_X_LOGICAL]; else @@ -2119,7 +2119,7 @@ transfer_expr (gfc_se * se, gfc_typespec * ts, tree addr_expr, gfc_code * code) arg2 = TYPE_MAX_VALUE (TYPE_DOMAIN (TREE_TYPE (tmp))); arg2 = fold_convert (gfc_charlen_type_node, arg2); } - arg3 = build_int_cst (NULL_TREE, kind); + arg3 = build_int_cst (integer_type_node, kind); if (last_dt == READ) function = iocall[IOCALL_X_CHARACTER_WIDE]; else @@ -2203,9 +2203,9 @@ transfer_array_desc (gfc_se * se, gfc_typespec * ts, tree addr_expr) if (ts->type == BT_CHARACTER) charlen_arg = se->string_length; else - charlen_arg = build_int_cst (NULL_TREE, 0); + charlen_arg = build_int_cst (gfc_charlen_type_node, 0); - kind_arg = build_int_cst (NULL_TREE, ts->kind); + kind_arg = build_int_cst (integer_type_node, ts->kind); tmp = gfc_build_addr_expr (NULL_TREE, dt_parm); if (last_dt == READ) |