diff options
| author | tobi <tobi@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-05-15 20:44:38 +0000 |
|---|---|---|
| committer | tobi <tobi@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-05-15 20:44:38 +0000 |
| commit | f02dd226c68b97296897a471b0a8d317dafd510c (patch) | |
| tree | 3a48d42e1a9a5fd43238184c5534791637d2239c /libgfortran/io/inquire.c | |
| parent | 6e41d5102650d8dba1a8c5dcf684c740a246f8be (diff) | |
| download | gcc-f02dd226c68b97296897a471b0a8d317dafd510c.tar.gz | |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@81903 138bc75d-0d04-0410-961f-82ee72b054a4
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 88e805ec96f..20bea1f887d 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 (); |