From ee37d2f54c14956c32feca7bef17a4b7b8802717 Mon Sep 17 00:00:00 2001 From: Francois-Xavier Coudert Date: Mon, 25 Feb 2008 08:36:15 +0000 Subject: 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 --- gcc/fortran/trans-io.c | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'gcc/fortran/trans-io.c') 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); -- cgit v1.1