[gfortran, committed] Formatting fixes in error.c

[Tobias Schlüter <tobias dot schlueter at physik dot uni-muenchen dot de>]

These are a bunch of formatting fixes for error.c. Mostly removing empty lines
from the beginnings of functions. Along the way I fixed two comments, and
added a missing space between a function name and the parentheses behind it.

I verified that the compiler still builds with these changes.

- Tobi

Index: ChangeLog
===================================================================
RCS file: /cvs/gcc/gcc/gcc/fortran/ChangeLog,v
retrieving revision 1.181
diff -u -p -r1.181 ChangeLog
--- ChangeLog   27 Aug 2004 14:49:34 -0000      1.181
+++ ChangeLog   28 Aug 2004 14:04:40 -0000
@@ -1,3 +1,16 @@
+2004-08-28  Tobias Schlueter  <tobias.schlueter@physik.uni-muenchen.de>
+
+       * 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  <tobias.schlueter@physik.uni-muenchen.de>

        * gfortran.h (gfc_default_*_kind): Remove prototypes, add extern
Index: error.c
===================================================================
RCS file: /cvs/gcc/gcc/gcc/fortran/error.c,v
retrieving revision 1.5
diff -u -p -r1.5 error.c
--- error.c     27 May 2004 12:35:11 -0000      1.5
+++ error.c     28 Aug 2004 14:04:40 -0000
@@ -52,8 +52,7 @@ static gfc_error_buf error_buffer, warni
 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)