diff options
| author | Uros Bizjak <ubizjak@gmail.com> | 2014-12-31 15:50:10 +0100 |
|---|---|---|
| committer | Uros Bizjak <uros@gcc.gnu.org> | 2014-12-31 15:50:10 +0100 |
| commit | 1a33dc9ec24fed0406de07f54e0442915e3cfedb (patch) | |
| tree | 5b0e17f5acd2cb905b0d28cea526ba21ab59c791 /gcc/fortran/trans-io.c | |
| parent | e8ef82d74f40e216b3a1c9707a79a3bd0b6c953d (diff) | |
| download | gcc-1a33dc9ec24fed0406de07f54e0442915e3cfedb.zip gcc-1a33dc9ec24fed0406de07f54e0442915e3cfedb.tar.gz gcc-1a33dc9ec24fed0406de07f54e0442915e3cfedb.tar.bz2 | |
trans-array.c (trans_array_bound_check): Use xasprintf instead of unchecked asprintf.
* trans-array.c (trans_array_bound_check): Use xasprintf instead
of unchecked asprintf.
(gfc_conv_array_ref): Ditto.
(gfc_conv_ss_startstride): Ditto.
(gfc_trans_dummy_array_bias): Ditto.
(gfc_conv_array_parameter): Ditto.
* trans-decl.c (gfc_generate_function_code): Ditto.
* trans-expr.c (gfc_conv_substring): Ditto.
(gfc_conv_procedure_call): Ditto.
* trans-io.c (gfc_trans_io_runtime_check): Ditto.
(set_string): Ditto.
* trans.c (trans-runtime_error_vararg): Ditto.
From-SVN: r219126
Diffstat (limited to 'gcc/fortran/trans-io.c')
| -rw-r--r-- | gcc/fortran/trans-io.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/fortran/trans-io.c b/gcc/fortran/trans-io.c index e1b7eb9..3ef223b 100644 --- a/gcc/fortran/trans-io.c +++ b/gcc/fortran/trans-io.c @@ -258,7 +258,7 @@ gfc_trans_io_runtime_check (bool has_iostat, tree cond, tree var, arg2 = build_int_cst (integer_type_node, error_code), - asprintf (&message, "%s", _(msgid)); + message = xasprintf ("%s", _(msgid)); arg3 = gfc_build_addr_expr (pchar_type_node, gfc_build_localized_cstring_const (message)); free (message); @@ -715,8 +715,8 @@ set_string (stmtblock_t * block, stmtblock_t * postblock, tree var, cond = fold_build2_loc (input_location, LT_EXPR, boolean_type_node, tmp, build_int_cst (TREE_TYPE (tmp), 0)); - asprintf(&msg, "Label assigned to variable '%s' (%%ld) is not a format " - "label", e->symtree->name); + msg = xasprintf ("Label assigned to variable '%s' (%%ld) is not a format " + "label", e->symtree->name); gfc_trans_runtime_check (true, false, cond, &se.pre, &e->where, msg, fold_convert (long_integer_type_node, tmp)); free (msg); |