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-decl.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-decl.c')
| -rw-r--r-- | gcc/fortran/trans-decl.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/fortran/trans-decl.c b/gcc/fortran/trans-decl.c index 494d8aa..75b84f1 100644 --- a/gcc/fortran/trans-decl.c +++ b/gcc/fortran/trans-decl.c @@ -5723,8 +5723,8 @@ gfc_generate_function_code (gfc_namespace * ns) { char * msg; - asprintf (&msg, "Recursive call to nonrecursive procedure '%s'", - sym->name); + msg = xasprintf ("Recursive call to nonrecursive procedure '%s'", + sym->name); recurcheckvar = gfc_create_var (boolean_type_node, "is_recursive"); TREE_STATIC (recurcheckvar) = 1; DECL_INITIAL (recurcheckvar) = boolean_false_node; |