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/inquire.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/inquire.c')
| -rw-r--r-- | libgfortran/io/inquire.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libgfortran/io/inquire.c b/libgfortran/io/inquire.c index 88e805e..20bea1f 100644 --- a/libgfortran/io/inquire.c +++ b/libgfortran/io/inquire.c @@ -32,7 +32,7 @@ static char undefined[] = "UNDEFINED"; /* inquire_via_unit()-- Inquiry via unit number. The unit might not exist. */ static void -inquire_via_unit (unit_t * u) +inquire_via_unit (gfc_unit * u) { const char *p; @@ -352,7 +352,7 @@ inquire_via_filename (void) void st_inquire (void) { - unit_t *u; + gfc_unit *u; library_start (); |