diff options
| author | Tobias Burnus <burnus@net-b.de> | 2014-12-06 17:33:11 +0100 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2014-12-06 17:33:11 +0100 |
| commit | 0f447a6e33db466cb8b04fc3583ed76626ca8f3b (patch) | |
| tree | 636127fb29b38398c755e5e967a9d89e19339271 /gcc/fortran/parse.c | |
| parent | b8a82c9dc6a72e9a98f1df09f4cba9de379236ae (diff) | |
| download | gcc-0f447a6e33db466cb8b04fc3583ed76626ca8f3b.zip gcc-0f447a6e33db466cb8b04fc3583ed76626ca8f3b.tar.gz gcc-0f447a6e33db466cb8b04fc3583ed76626ca8f3b.tar.bz2 | |
error.c (gfc_buffer_error, [...]): Use bool not
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.
Co-Authored-By: Manuel López-Ibáñez <manu@gcc.gnu.org>
From-SVN: r218449
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 540424f..1023037 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) { |