unit.c: Separate copyright years by ','.

* io/unit.c: Separate copyright years by ','.
(compare, insert_unit, delete_unit, is_internal_unit, close_units):
Remove blank line in beginning of function.
(get_unit): Simplify code.

From-SVN: r86841

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index 641f32d4dce0b33af279fb43f1ecc2b89fe0c85a..83e03388269fe71312d30ff59e4c441316236804 100644 (file)
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -1,3 +1,10 @@
+2004-08-31  Tobias Schlueter  <tobias.schlueter@physik.uni-muenchen.de>
+
+       * io/unit.c: Separate copyright years by ','.
+       (compare, insert_unit, delete_unit, is_internal_unit, close_units):
+       Remove blank line in beginning of function.
+       (get_unit): Simplify code.
+
 2004-08-31  Paul Brook  <paul@codesourcery.com>
 
        * io/unit.c (get_unit): Remove superfluous if.

diff --git a/libgfortran/io/unit.c b/libgfortran/io/unit.c
index 4b09884e35b4d7948375b93a94b10e7db41209f2..617f8b4c9e8d61bde1e729cf9af85437fc390c13 100644 (file)
--- a/libgfortran/io/unit.c
+++ b/libgfortran/io/unit.c
@@ -1,4 +1,4 @@
-/* Copyright (C) 2002-2003 Free Software Foundation, Inc.
+/* Copyright (C) 2002, 2003 Free Software Foundation, Inc.
    Contributed by Andy Vaught
 
 This file is part of the GNU Fortran 95 runtime library (libgfortran).
@@ -83,7 +83,6 @@ rotate_right (gfc_unit * t)
 static int
 compare (int a, int b)
 {
-
   if (a < b)
     return -1;
   if (a > b)
@@ -132,7 +131,6 @@ insert (gfc_unit * new, gfc_unit * t)
 void
 insert_unit (gfc_unit * new)
 {
-
   new->priority = pseudo_random ();
   g.unit_root = insert (new, g.unit_root);
 }
@@ -194,7 +192,6 @@ delete_treap (gfc_unit * old, gfc_unit * t)
 static void
 delete_unit (gfc_unit * old)
 {
-
   g.unit_root = delete_treap (old, g.unit_root);
 }
 
@@ -244,8 +241,6 @@ find_unit (int n)
 gfc_unit *
 get_unit (int read_flag)
 {
-  gfc_unit *u;
-
   if (ioparm.internal_unit != NULL)
     {
       internal_unit.s =
@@ -263,9 +258,7 @@ get_unit (int read_flag)
 
   /* Has to be an external unit */
 
-  u = find_unit (ioparm.unit);
-
-  return u;
+  return find_unit (ioparm.unit);
 }
 
 
@@ -275,7 +268,6 @@ get_unit (int read_flag)
 int
 is_internal_unit ()
 {
-
   return current_unit == &internal_unit;
 }
 
@@ -372,7 +364,6 @@ close_unit (gfc_unit * u)
 void
 close_units (void)
 {
-
   while (g.unit_root != NULL)
     close_unit (g.unit_root);
 }