diff options
| author | Tobias Schlüter <tobias.schlueter@physik.uni-muenchen.de> | 2004-08-31 21:49:33 +0200 |
|---|---|---|
| committer | Tobias Schlüter <tobi@gcc.gnu.org> | 2004-08-31 21:49:33 +0200 |
| commit | 43b430575923b65a922d3a4b1ec414296eaf9075 (patch) | |
| tree | 3412b71a8fc20314d9aea0e1531caee662f9f7be /libgfortran | |
| parent | c4c9b76eef0a48bdcce1c3f27396143e266fadb2 (diff) | |
| download | gcc-43b430575923b65a922d3a4b1ec414296eaf9075.zip gcc-43b430575923b65a922d3a4b1ec414296eaf9075.tar.gz gcc-43b430575923b65a922d3a4b1ec414296eaf9075.tar.bz2 | |
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
Diffstat (limited to 'libgfortran')
| -rw-r--r-- | libgfortran/ChangeLog | 7 | ||||
| -rw-r--r-- | libgfortran/io/unit.c | 13 |
2 files changed, 9 insertions, 11 deletions
diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index 641f32d..83e0338 100644 --- 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 4b09884..617f8b4 100644 --- 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); } |