diff options
| author | Francois-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2008-02-25 08:36:15 +0000 |
|---|---|---|
| committer | François-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2008-02-25 08:36:15 +0000 |
| commit | ee37d2f54c14956c32feca7bef17a4b7b8802717 (patch) | |
| tree | 762dc6796ed285b4d67938d43837434f3b44d4b8 /gcc/fortran/trans-io.c | |
| parent | 4cfaec1cefa9e393cceb88fa818c7c2530e75289 (diff) | |
| download | gcc-ee37d2f54c14956c32feca7bef17a4b7b8802717.zip gcc-ee37d2f54c14956c32feca7bef17a4b7b8802717.tar.gz gcc-ee37d2f54c14956c32feca7bef17a4b7b8802717.tar.bz2 | |
re PR fortran/34729 (Localization of run-time error messages, written into the executable)
PR fortran/34729
* trans-const.c (gfc_build_string_const): Don't call gettext.
(gfc_build_localized_string_const): New function.
* trans-const.h (gfc_build_localized_string_const): New prototype.
* trans.c (gfc_trans_runtime_check): Use
gfc_build_localized_string_const instead of gfc_build_string_const.
(gfc_call_malloc): Likewise.
(gfc_allocate_with_status): Likewise.
(gfc_allocate_array_with_status): Likewise.
(gfc_deallocate_with_status): Likewise.
(gfc_call_realloc): Likewise.
* trans-io.c (gfc_trans_io_runtime_check): Likewise.
From-SVN: r132612
Diffstat (limited to 'gcc/fortran/trans-io.c')
| -rw-r--r-- | gcc/fortran/trans-io.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/gcc/fortran/trans-io.c b/gcc/fortran/trans-io.c index c3124f3..d0af342 100644 --- a/gcc/fortran/trans-io.c +++ b/gcc/fortran/trans-io.c @@ -240,7 +240,8 @@ gfc_trans_io_runtime_check (tree cond, tree var, int error_code, arg2 = build_int_cst (integer_type_node, error_code), asprintf (&message, "%s", _(msgid)); - arg3 = gfc_build_addr_expr (pchar_type_node, gfc_build_cstring_const(message)); + arg3 = gfc_build_addr_expr (pchar_type_node, + gfc_build_localized_cstring_const (message)); gfc_free(message); tmp = build_call_expr (gfor_fndecl_generate_error, 3, arg1, arg2, arg3); |