From 909087e0cfa28372c9aca47a86aa51af91b12684 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Tobias=20Schl=C3=BCter?= Date: Sat, 15 May 2004 22:44:38 +0200 Subject: re PR libfortran/15234 (libgfortran doesn't compile on Tru64 UNIX V4.0F) PR fortran/15234 * io/io.h (unit_t): Rename to ... (gfc_unit) ... this. (unit_root, current_unit, find_file, find_unit, get_unit): Now of type gfc_unit. (delete_file, insert_unit, close_unit): Argument now of type gfc_unit. * backspace.c (st_backspace), close.c (st_close), endfile.c (st_endfile), inquire.c (inquire_via_unit, st_inquire), open.c (test_endfile, edit_modes, new_unit, already_open, st_open), rewind.c (st_rewind), transfer.c (current_unit), unit.c (internal_unit, unit_cache, rotate_left, rotate_right, insert, insert_unit, delete_root, delete_treap, delete_unit, find_unit, get_unit, init_units, close_unit), unix.c (find_file0, find_file, delete_file): Replace all occurences of unit_t by gfc_unit. From-SVN: r81903 --- libgfortran/io/unix.c | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'libgfortran/io/unix.c') diff --git a/libgfortran/io/unix.c b/libgfortran/io/unix.c index 185608a..3cefd2a 100644 --- a/libgfortran/io/unix.c +++ b/libgfortran/io/unix.c @@ -1112,11 +1112,11 @@ compare_file_filename (stream * s, const char *name, int len) /* find_file0()-- Recursive work function for find_file() */ -static unit_t * -find_file0 (unit_t * u, struct stat *st1) +static gfc_unit * +find_file0 (gfc_unit * u, struct stat *st1) { struct stat st2; - unit_t *v; + gfc_unit *v; if (u == NULL) return NULL; @@ -1140,7 +1140,7 @@ find_file0 (unit_t * u, struct stat *st1) /* find_file()-- Take the current filename and see if there is a unit * that has the file already open. Returns a pointer to the unit if so. */ -unit_t * +gfc_unit * find_file (void) { char path[PATH_MAX + 1]; @@ -1194,7 +1194,7 @@ stream_at_eof (stream * s) * with the unit. Returns nonzero if something went wrong. */ int -delete_file (unit_t * u) +delete_file (gfc_unit * u) { char path[PATH_MAX + 1]; -- cgit v1.1