From 1f05db639b5c76eccc50a2a38835c1889df5385f Mon Sep 17 00:00:00 2001 From: =?utf8?q?Tobias=20Schl=C3=BCter?= Date: Sat, 28 Aug 2004 16:07:03 +0200 Subject: [PATCH] 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 --- gcc/fortran/ChangeLog | 13 +++++++++++++ gcc/fortran/error.c | 16 +++------------- 2 files changed, 16 insertions(+), 13 deletions(-) diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 2a3d6aed17f..18cda167417 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,16 @@ +2004-08-28 Tobias Schlueter + + * 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. + 2004-08-27 Tobias Schlueter * gfortran.h (gfc_default_*_kind): Remove prototypes, add extern diff --git a/gcc/fortran/error.c b/gcc/fortran/error.c index aab196fdfdb..d028d5a2b3a 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) -- 2.30.2