Skip to content

R
riscv-gcc-1
Commit 5987ca1c by Philipp Thomas Committed by Philipp Thomas
Options

bad.def [...]: Insert comments to mark messages as not being printf style where appropriate. 

2002-02-04  Philipp Thomas  <pthomas@suse.de>

	* bad.def com.c expr.c implic.c lex.c stb.c ste.c stu.c:
	Insert comments to mark messages as not being printf style
	where appropriate.

From-SVN: r49477
parent f3e9edff
Showing with 28 additions and 0 deletions
gcc/f/ChangeLog
2002-02-04 Philipp Thomas <pthomas@suse.de>
* bad.def com.c expr.c implic.c lex.c stb.c ste.c stu.c:
Insert comments to mark messages as not being printf style
where appropriate.
2002-02-03 Toon Moene <toon@moene.indiv.nluug.nl>
* expr.c (ffeexpr_sym_impdoitem_): Allow other than
......
gcc/f/com.c
......@@ -3113,6 +3113,7 @@ ffecom_expr_ (ffebld expr, tree dest_tree, ffebld dest,
if (ffesymbol_hook (s).assign_tree == NULL_TREE)
{
/* xgettext:no-c-format */
ffebad_start_msg ("ASSIGN'ed label cannot fit into `%A' at %0 -- using wider sibling",
FFEBAD_severityWARNING);
ffebad_string (ffesymbol_text (s));
......@@ -15372,6 +15373,7 @@ print_containing_files (ffebadSeverity sev)
else
str2 = "";
/* xgettext:no-c-format */
ffebad_start_msg ("%A from %B at %0%C", sev);
ffebad_here (0, ip->line, ip->column);
ffebad_string (str1);
......@@ -15691,6 +15693,7 @@ ffecom_open_include_ (char *name, ffewhereLine l, ffewhereColumn c)
if (f == NULL && errno == EACCES)
{
print_containing_files (FFEBAD_severityWARNING);
/* xgettext:no-c-format */
ffebad_start_msg ("At %0, INCLUDE file %A exists, but is not readable",
FFEBAD_severityWARNING);
ffebad_string (fname);
......@@ -15725,6 +15728,7 @@ ffecom_open_include_ (char *name, ffewhereLine l, ffewhereColumn c)
if (indepth >= (INPUT_STACK_MAX - 1))
{
print_containing_files (FFEBAD_severityFATAL);
/* xgettext:no-c-format */
ffebad_start_msg ("At %0, INCLUDE nesting too deep",
FFEBAD_severityFATAL);
ffebad_string (fname);
......
gcc/f/expr.c
......@@ -9609,6 +9609,7 @@ ffeexpr_exprstack_push_unary_ (ffeexprExpr_ e)
<= FFEEXPR_operatorprecedenceLOWARITH_)
&& (e->u.operator.prec <= FFEEXPR_operatorprecedenceLOWARITH_))
{
/* xgettext:no-c-format */
ffebad_start_msg ("Two arithmetic operators in a row at %0 and %1 -- use parentheses",
ffe_is_pedantic ()
? FFEBAD_severityPEDANTIC
......@@ -9658,6 +9659,7 @@ ffeexpr_exprstack_push_binary_ (ffeexprExpr_ e)
&& (e->u.operator.prec
< ffeexpr_stack_->exprstack->previous->u.operator.prec))
{
/* xgettext:no-c-format */
ffebad_start_msg ("Operator at %0 has lower precedence than that at %1 -- use parentheses", FFEBAD_severityWARNING);
ffebad_here (0,
ffelex_token_where_line (ffeexpr_stack_->exprstack->previous->token),
......@@ -10518,6 +10520,7 @@ ffeexpr_reduced_eqop2_ (ffebld reduced, ffeexprExpr_ l, ffeexprExpr_ op,
if ((lbt == FFEINFO_basictypeLOGICAL)
&& (rbt == FFEINFO_basictypeLOGICAL))
{
/* xgettext:no-c-format */
if (ffebad_start_msg ("Use .EQV./.NEQV. instead of .EQ./.NE. at %0 for LOGICAL operands at %1 and %2",
FFEBAD_severityFATAL))
{
......@@ -10888,6 +10891,7 @@ ffeexpr_reduced_power_ (ffebld reduced, ffeexprExpr_ l, ffeexprExpr_ op,
}
if (rkt == FFEINFO_kindtypeINTEGER4)
{
/* xgettext:no-c-format */
ffebad_start_msg ("Unsupported operand for ** at %1 -- converting to default INTEGER",
FFEBAD_severityWARNING);
ffebad_here (0, ffelex_token_where_line (r->token), ffelex_token_where_column (r->token));
......
gcc/f/implic.c
......@@ -199,6 +199,7 @@ ffeimplic_establish_symbol (ffesymbol s)
if (ffe_is_warn_implicit ())
{
/* xgettext:no-c-format */
ffebad_start_msg ("Implicit declaration of `%A' at %0",
FFEBAD_severityWARNING);
ffebad_here (0, ffesymbol_where_line (s),
......
gcc/f/lex.c
......@@ -269,6 +269,7 @@ ffelex_backslash_ (int c, ffewhereColumnNumber col)
case 'x':
if (warn_traditional)
{
/* xgettext:no-c-format */
ffebad_start_msg_lex ("The meaning of `\\x' (at %0) varies with -traditional",
FFEBAD_severityWARNING);
ffelex_bad_here_ (0, line, column);
......@@ -319,6 +320,7 @@ ffelex_backslash_ (int c, ffewhereColumnNumber col)
case 'a':
if (warn_traditional)
{
/* xgettext:no-c-format */
ffebad_start_msg_lex ("The meaning of `\\a' (at %0) varies with -traditional",
FFEBAD_severityWARNING);
ffelex_bad_here_ (0, line, column);
......@@ -348,6 +350,7 @@ ffelex_backslash_ (int c, ffewhereColumnNumber col)
m[0] = c;
m[1] = '\0';
/* xgettext:no-c-format */
ffebad_start_msg_lex ("Non-ISO-C-standard escape sequence `\\%A' at %0",
FFEBAD_severityPEDANTIC);
ffelex_bad_here_ (0, line, column);
......@@ -366,6 +369,7 @@ ffelex_backslash_ (int c, ffewhereColumnNumber col)
m[0] = c;
m[1] = '\0';
/* xgettext:no-c-format */
ffebad_start_msg_lex ("Unknown escape sequence `\\%A' at %0",
FFEBAD_severityPEDANTIC);
ffelex_bad_here_ (0, line, column);
......@@ -374,6 +378,7 @@ ffelex_backslash_ (int c, ffewhereColumnNumber col)
}
else if (c == EOF)
{
/* xgettext:no-c-format */
ffebad_start_msg_lex ("Unterminated escape sequence `\\' at %0",
FFEBAD_severityPEDANTIC);
ffelex_bad_here_ (0, line, column);
......@@ -384,6 +389,7 @@ ffelex_backslash_ (int c, ffewhereColumnNumber col)
char m[20];
sprintf (&m[0], "%x", c);
/* xgettext:no-c-format */
ffebad_start_msg_lex ("Unknown escape sequence `\\' followed by char code 0x%A at %0",
FFEBAD_severityPEDANTIC);
ffelex_bad_here_ (0, line, column);
......@@ -411,6 +417,7 @@ ffelex_backslash_ (int c, ffewhereColumnNumber col)
if (! nonnull)
{
/* xgettext:no-c-format */
ffebad_start_msg_lex ("\\x used at %0 with no following hex digits",
FFEBAD_severityFATAL);
ffelex_bad_here_ (0, line, column);
......@@ -424,6 +431,7 @@ ffelex_backslash_ (int c, ffewhereColumnNumber col)
&& ((1 << (TYPE_PRECISION (integer_type_node) - (count - 1) * 4))
<= (int) firstdig)))
{
/* xgettext:no-c-format */
ffebad_start_msg_lex ("Hex escape at %0 out of range",
FFEBAD_severityPEDANTIC);
ffelex_bad_here_ (0, line, column);
......@@ -457,6 +465,7 @@ ffelex_backslash_ (int c, ffewhereColumnNumber col)
&& TYPE_PRECISION (char_type_node) < HOST_BITS_PER_INT
&& code >= (1 << TYPE_PRECISION (char_type_node)))
{
/* xgettext:no-c-format */
ffebad_start_msg_lex ("Escape sequence at %0 out of range for character",
FFEBAD_severityFATAL);
ffelex_bad_here_ (0, line, column);
......@@ -1462,6 +1471,7 @@ ffelex_image_char_ (int c, ffewhereColumnNumber column)
ffelex_bad_line_ = TRUE;
strcpy (&ffelex_card_image_[column], "[\\0]");
ffelex_card_length_ = column + 4;
/* xgettext:no-c-format */
ffebad_start_msg_lex ("Null character at %0 -- line ignored",
FFEBAD_severityFATAL);
ffelex_bad_here_ (0, ffelex_linecount_current_, column + 1);
......
gcc/f/stb.c
......@@ -12074,6 +12074,7 @@ ffestb_S3P41_ (ffelexToken ft, ffebld expr, ffelexToken t)
&& ((ffelex_token_type (t) == FFELEX_typeSEMICOLON)
|| ffesta_line_has_semicolons))
{
/* xgettext:no-c-format */
ffebad_start_msg ("INCLUDE at %0 not the only statement on the source line", FFEBAD_severityWARNING);
ffebad_here (0, ffelex_token_where_line (ffesta_tokens[0]),
ffelex_token_where_column (ffesta_tokens[0]));
......
gcc/f/ste.c
......@@ -2632,6 +2632,7 @@ ffeste_R809 (ffestw block, ffebld expr)
{
/* ~~~Someday handle CHARACTER*1, CHARACTER*N */
/* xgettext:no-c-format */
ffebad_start_msg ("SELECT CASE on CHARACTER type (at %0) not supported -- sorry",
FFEBAD_severityFATAL);
ffebad_here (0, ffestw_line (block), ffestw_col (block));
......
gcc/f/stu.c
......@@ -301,6 +301,7 @@ ffestu_sym_end_transition (ffesymbol s)
if (sa & FFESYMBOL_attrsADJUSTABLE)
{ /* Not actually in any dummy list! */
if (ffe_is_pedantic ()
/* xgettext:no-c-format */
&& ffebad_start_msg ("Local adjustable symbol `%A' at %0",
FFEBAD_severityPEDANTIC))
{
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment