diff options
| author | Kaveh R. Ghazi <ghazi@caip.rutgers.edu> | 1999-11-23 15:53:22 +0000 |
|---|---|---|
| committer | Kaveh Ghazi <ghazi@gcc.gnu.org> | 1999-11-23 15:53:22 +0000 |
| commit | a3dd1d43955e262a43f0bef0c52e88081f04ff70 (patch) | |
| tree | 02fe2cfb83a814f5b3795cc1e11ae0cca2597efd /gcc/ch/expr.c | |
| parent | de6e505ec71b678f2b3646b8d1ff51a288c939be (diff) | |
| download | gcc-a3dd1d43955e262a43f0bef0c52e88081f04ff70.zip gcc-a3dd1d43955e262a43f0bef0c52e88081f04ff70.tar.gz gcc-a3dd1d43955e262a43f0bef0c52e88081f04ff70.tar.bz2 | |
expr.c (build_chill_function_call): Don't call a variadic function with a non-literal format string.
* expr.c (build_chill_function_call): Don't call a variadic
function with a non-literal format string.
* grant.c (write_spec_module): Likewise.
* parse.c (require, expect): Likewise.
* tasking.c (get_struct_type_name, get_struct_debug_type_name,
get_tasking_code_name, get_struct_variable_name,
get_process_wrapper_name, build_start_process): Likewise.
* typeck.c (valid_array_index_p): Likewise.
From-SVN: r30640
Diffstat (limited to 'gcc/ch/expr.c')
| -rw-r--r-- | gcc/ch/expr.c | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/gcc/ch/expr.c b/gcc/ch/expr.c index b919fde..e68f3a0 100644 --- a/gcc/ch/expr.c +++ b/gcc/ch/expr.c @@ -2512,20 +2512,20 @@ build_chill_function_call (function, expr) if (valtail != 0 && TREE_VALUE (valtail) != void_type_node) { - const char *errstr = "too many arguments to procedure"; if (name) - error ("%s `%s'", errstr, IDENTIFIER_POINTER (name)); + error ("too many arguments to procedure `%s'", + IDENTIFIER_POINTER (name)); else - error (errstr); + error ("too many arguments to procedure"); return error_mark_node; } else if (typetail != 0 && TREE_VALUE (typetail) != void_type_node) { - const char *errstr = "too few arguments to procedure"; if (name) - error ("%s `%s'", errstr, IDENTIFIER_POINTER (name)); + error ("too few arguments to procedure `%s'", + IDENTIFIER_POINTER (name)); else - error (errstr); + error ("too few arguments to procedure"); return error_mark_node; } |