Mercurial > hg > octave-nkf
changeset 340:57cdcf21c1df
[project @ 1994-02-07 07:35:28 by jwe]
author | jwe |
---|---|
date | Mon, 07 Feb 1994 07:35:32 +0000 |
parents | 94f0f219a946 |
children | 4115f7713851 |
files | src/lex.l src/parse.y |
diffstat | 2 files changed, 3 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/src/lex.l +++ b/src/lex.l @@ -1499,7 +1499,7 @@ else { warning ("ignoring trailing garbage after end of function\n\ - near line %d of file `%s.m'", lineno, curr_fcn_file_name); + near line %d of file `%s'", lineno, curr_fcn_file_name); yyunput ('\n', yytext); return;
--- a/src/parse.y +++ b/src/parse.y @@ -923,7 +923,7 @@ && strcmp (curr_fcn_file_name, id_name) == 0) { warning ("function `%s' defined within\ - script file `%s.m'", id_name, curr_fcn_file_name); + script file `%s'", id_name, curr_fcn_file_name); } top_level_sym_tab->clear (id_name); @@ -1118,7 +1118,7 @@ // Maybe print the line number and file name. if (reading_fcn_file || reading_script_file) - fprintf (stderr, " near line %d of file %s.m", input_line_number, + fprintf (stderr, " near line %d of file %s", input_line_number, curr_fcn_file_name); if (line != (char *) NULL)