Commit f13ab1ee by Aaron W. LaFramboise Committed by Paul Brook

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

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
parent 0110c1ec
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> 2004-09-15 Steven G. Kargl <kargls@comcast.net>
* check.c (gfc_check_getcwd_sub): New function. * check.c (gfc_check_getcwd_sub): New function.
......
...@@ -36,7 +36,7 @@ Software Foundation, 59 Temple Place - Suite 330, Boston, MA ...@@ -36,7 +36,7 @@ Software Foundation, 59 Temple Place - Suite 330, Boston, MA
gfc_st_label *gfc_statement_label; gfc_st_label *gfc_statement_label;
static locus label_locus; static locus label_locus;
static jmp_buf eof; static jmp_buf eof_buf;
gfc_state_data *gfc_state_stack; gfc_state_data *gfc_state_stack;
...@@ -1252,7 +1252,7 @@ unexpected_eof (void) ...@@ -1252,7 +1252,7 @@ unexpected_eof (void)
gfc_current_ns->code = (p && p->previous) ? p->head : NULL; gfc_current_ns->code = (p && p->previous) ? p->head : NULL;
gfc_done_2 (); gfc_done_2 ();
longjmp (eof, 1); longjmp (eof_buf, 1);
} }
...@@ -2536,7 +2536,7 @@ gfc_parse_file (void) ...@@ -2536,7 +2536,7 @@ gfc_parse_file (void)
gfc_statement_label = NULL; gfc_statement_label = NULL;
if (setjmp (eof)) if (setjmp (eof_buf))
return FAILURE; /* Come here on unexpected EOF */ return FAILURE; /* Come here on unexpected EOF */
seen_program = 0; seen_program = 0;
......
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