diff options
| author | Tobias Schlüter <tobias.schlueter@physik.uni-muenchen.de> | 2004-05-15 22:44:38 +0200 |
|---|---|---|
| committer | Tobias Schlüter <tobi@gcc.gnu.org> | 2004-05-15 22:44:38 +0200 |
| commit | 909087e0cfa28372c9aca47a86aa51af91b12684 (patch) | |
| tree | 3a48d42e1a9a5fd43238184c5534791637d2239c /libgfortran/io/unix.c | |
| parent | 85ff6f624e23ae016b859f4829dd6f177b24c8b7 (diff) | |
| download | gcc-909087e0cfa28372c9aca47a86aa51af91b12684.zip gcc-909087e0cfa28372c9aca47a86aa51af91b12684.tar.gz gcc-909087e0cfa28372c9aca47a86aa51af91b12684.tar.bz2 | |
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
Diffstat (limited to 'libgfortran/io/unix.c')
| -rw-r--r-- | libgfortran/io/unix.c | 10 |
1 files changed, 5 insertions, 5 deletions
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]; |