OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

parse.c (eof_buf): Rename eof to eof_buf.

Browse Source 
2004-09-15  Aaron W. LaFramboise <aaronavay62@aaronwl.com>

	* parse.c (eof_buf): Rename eof to eof_buf.
	(unexpected_eof): Same.
	(gfc_parse_file): Same.

From-SVN: r87556
This commit is contained in:
Aaron W. LaFramboise 2004-09-15 08:19:12 -06:00 committed by Paul Brook
parent 0110c1ec15
commit f13ab1ee14
2 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/fortran/ChangeLog
View File

@ -1,3 +1,9 @@
2004-09-15 Aaron W. LaFramboise <aaronavay62@aaronwl.com>
* parse.c (eof_buf): Rename eof to eof_buf.
(unexpected_eof): Same.
(gfc_parse_file): Same.
2004-09-15 Steven G. Kargl <kargls@comcast.net>
* check.c (gfc_check_getcwd_sub): New function.

6
gcc/fortran/parse.c
View File

@ -36,7 +36,7 @@ Software Foundation, 59 Temple Place - Suite 330, Boston, MA
gfc_st_label *gfc_statement_label;
static locus label_locus;
static jmp_buf eof;
static jmp_buf eof_buf;
gfc_state_data *gfc_state_stack;
@ -1252,7 +1252,7 @@ unexpected_eof (void)
gfc_current_ns->code = (p && p->previous) ? p->head : NULL;
gfc_done_2 ();
longjmp (eof, 1);
longjmp (eof_buf, 1);
}
@ -2536,7 +2536,7 @@ gfc_parse_file (void)
gfc_statement_label = NULL;
if (setjmp (eof))
if (setjmp (eof_buf))
return FAILURE; /* Come here on unexpected EOF */
seen_program = 0;