From 43b430575923b65a922d3a4b1ec414296eaf9075 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Tobias=20Schl=C3=BCter?= Date: Tue, 31 Aug 2004 21:49:33 +0200 Subject: [PATCH] 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 --- libgfortran/ChangeLog | 7 +++++++ libgfortran/io/unit.c | 13 ++----------- 2 files changed, 9 insertions(+), 11 deletions(-) diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index 641f32d4dce..83e03388269 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,10 @@ +2004-08-31 Tobias Schlueter + + * 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 * io/unit.c (get_unit): Remove superfluous if. diff --git a/libgfortran/io/unit.c b/libgfortran/io/unit.c index 4b09884e35b..617f8b4c9e8 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); } -- 2.30.2