diff options
| author | Tobias Schlüter <tobias.schlueter@physik.uni-muenchen.de> | 2004-08-28 16:07:03 +0200 |
|---|---|---|
| committer | Tobias Schlüter <tobi@gcc.gnu.org> | 2004-08-28 16:07:03 +0200 |
| commit | 1f05db639b5c76eccc50a2a38835c1889df5385f (patch) | |
| tree | 02a42d877c11b9aade56fcdd953e471a06e82a4b /gcc/fortran/error.c | |
| parent | 1506eac19b37c73ddca179aeb33aa6e431ac1305 (diff) | |
| download | gcc-1f05db639b5c76eccc50a2a38835c1889df5385f.zip gcc-1f05db639b5c76eccc50a2a38835c1889df5385f.tar.gz gcc-1f05db639b5c76eccc50a2a38835c1889df5385f.tar.bz2 | |
error.c (gfc_error_init_1): Remove blank line in front of function body.
* error.c (gfc_error_init_1): Remove blank line in front of
function body. Add missing blank.
(gfc_buffer_error, error_char, error_string): Remove blank line in
front of function body.
(show_locus): Add comma in comment.
(gfc_clear_warning, gfc_warning_check, gfc_clear_error,
gfc_push_error, gfc_pop_error): Remove blank line in front of
function body.
(gfc_get_errors): Typo fix in comment in front of function. Remove
blank line in front of function body.
From-SVN: r86691
Diffstat (limited to 'gcc/fortran/error.c')
| -rw-r--r-- | gcc/fortran/error.c | 16 |
1 files changed, 3 insertions, 13 deletions
diff --git a/gcc/fortran/error.c b/gcc/fortran/error.c index aab196f..d028d5a 100644 --- a/gcc/fortran/error.c +++ b/gcc/fortran/error.c @@ -52,8 +52,7 @@ static gfc_error_buf error_buffer, warning_buffer; void gfc_error_init_1 (void) { - - terminal_width = gfc_terminal_width(); + terminal_width = gfc_terminal_width (); errors = 0; warnings = 0; buffer_flag = 0; @@ -65,7 +64,6 @@ gfc_error_init_1 (void) void gfc_buffer_error (int flag) { - buffer_flag = flag; } @@ -76,7 +74,6 @@ gfc_buffer_error (int flag) static void error_char (char c) { - if (buffer_flag) { if (use_warning_buffer) @@ -105,13 +102,12 @@ error_char (char c) static void error_string (const char *p) { - while (*p) error_char (*p++); } -/* Show the file, where it was included and the source line give a +/* Show the file, where it was included and the source line, give a locus. Calls error_printf() recursively, but the recursion is at most one level deep. */ @@ -555,7 +551,6 @@ gfc_warning_now (const char *format, ...) void gfc_clear_warning (void) { - warning_buffer.flag = 0; } @@ -566,7 +561,6 @@ gfc_clear_warning (void) void gfc_warning_check (void) { - if (warning_buffer.flag) { warnings++; @@ -667,7 +661,6 @@ gfc_internal_error (const char *format, ...) void gfc_clear_error (void) { - error_buffer.flag = 0; } @@ -698,7 +691,6 @@ gfc_error_check (void) void gfc_push_error (gfc_error_buf * err) { - err->flag = error_buffer.flag; if (error_buffer.flag) strcpy (err->message, error_buffer.message); @@ -712,7 +704,6 @@ gfc_push_error (gfc_error_buf * err) void gfc_pop_error (gfc_error_buf * err) { - error_buffer.flag = err->flag; if (error_buffer.flag) strcpy (error_buffer.message, err->message); @@ -744,12 +735,11 @@ gfc_status_char (char c) } -/* Report the number of warnings and errors that occored to the caller. */ +/* Report the number of warnings and errors that occured to the caller. */ void gfc_get_errors (int *w, int *e) { - if (w != NULL) *w = warnings; if (e != NULL) |