diff options
| author | burnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4> | 2014-12-06 16:33:11 +0000 |
|---|---|---|
| committer | burnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4> | 2014-12-06 16:33:11 +0000 |
| commit | 389e3a5e0923ec14e317274aadff3591e50a566f (patch) | |
| tree | 636127fb29b38398c755e5e967a9d89e19339271 /gcc/fortran/parse.c | |
| parent | 7383d7de1f683b76a72c71fba42cd4d3bc297870 (diff) | |
| download | gcc-389e3a5e0923ec14e317274aadff3591e50a566f.tar.gz | |
2014-12-06 Tobias Burnus <burnus@net-b.de>
Manuel López-Ibáñez <manu@gcc.gnu.org>
* error.c (gfc_buffer_error, gfc_error_flag_test): Use bool not
* int.
(buffer_flag): Remove static variable.
(buffered_p): Add static variable.
(gfc_error_init_1): Call gfc_buffer_error.
(gfc_warning_1, gfc_warning, gfc_warning_now_1, gfc_error,
gfc_error_now_1): Update for static variable change.
* gfortran.h (gfc_buffer_error, gfc_error_flag_test): Update
prototype.
* parse.c (use_modules, decode_specification_statement,
next_fixed, next_statement, match_deferred_characteristics):
Update calls.
* decl.c (gfc_match_data_decl): Ditto.
* match.c (gfc_match_name): Ditto.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@218449 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/fortran/parse.c')
| -rw-r--r-- | gcc/fortran/parse.c | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/gcc/fortran/parse.c b/gcc/fortran/parse.c index 540424f88bd..1023037dfe1 100644 --- a/gcc/fortran/parse.c +++ b/gcc/fortran/parse.c @@ -110,9 +110,9 @@ use_modules (void) gfc_error_buf old_error; gfc_push_error (&old_error); - gfc_buffer_error (0); + gfc_buffer_error (false); gfc_use_modules (); - gfc_buffer_error (1); + gfc_buffer_error (true); gfc_pop_error (&old_error); gfc_commit_symbols (); gfc_warning_check (); @@ -279,7 +279,7 @@ decode_specification_statement (void) end_of_block: gfc_clear_error (); - gfc_buffer_error (0); + gfc_buffer_error (false); gfc_current_locus = old_locus; return ST_GET_FCN_CHARACTERISTICS; @@ -994,7 +994,7 @@ next_fixed (void) if (c != ' ' && c != '0') { - gfc_buffer_error (0); + gfc_buffer_error (false); gfc_error ("Bad continuation line at %C"); return ST_NONE; } @@ -1008,7 +1008,7 @@ next_fixed (void) here so don't bother checking for them. */ default: - gfc_buffer_error (0); + gfc_buffer_error (false); gfc_error ("Non-numeric character in statement label at %C"); return ST_NONE; } @@ -1035,7 +1035,7 @@ next_fixed (void) if (c != ' ' && c != '0') { - gfc_buffer_error (0); + gfc_buffer_error (false); gfc_error ("Bad continuation line at %C"); return ST_NONE; } @@ -1100,7 +1100,7 @@ next_statement (void) for (;;) { gfc_statement_label = NULL; - gfc_buffer_error (1); + gfc_buffer_error (true); if (gfc_at_eol ()) gfc_advance_line (); @@ -1124,7 +1124,7 @@ next_statement (void) break; } - gfc_buffer_error (0); + gfc_buffer_error (false); if (st == ST_GET_FCN_CHARACTERISTICS && gfc_statement_label != NULL) { @@ -2815,9 +2815,9 @@ match_deferred_characteristics (gfc_typespec * ts) gfc_current_locus = gfc_current_block ()->declared_at; gfc_clear_error (); - gfc_buffer_error (1); + gfc_buffer_error (true); m = gfc_match_prefix (ts); - gfc_buffer_error (0); + gfc_buffer_error (false); if (ts->type == BT_DERIVED) { |