diff options
Diffstat (limited to 'libgfortran/io/io.h')
| -rw-r--r-- | libgfortran/io/io.h | 29 |
1 files changed, 3 insertions, 26 deletions
diff --git a/libgfortran/io/io.h b/libgfortran/io/io.h index d312131..ccbaf47 100644 --- a/libgfortran/io/io.h +++ b/libgfortran/io/io.h @@ -531,9 +531,7 @@ typedef struct st_parameter_dt /* A flag used to identify when a non-standard expanded namelist read has occurred. */ unsigned expanded_read : 1; - /* Flag to indicate if the statement has async="YES". */ - unsigned async : 1; - /* 12 unused bits. */ + /* 13 unused bits. */ int child_saved_iostat; int nml_delim; @@ -592,7 +590,7 @@ extern char check_st_parameter_dt[sizeof (((st_parameter_dt *) 0)->u.pad) typedef struct { st_parameter_common common; - GFC_INTEGER_4 *id; + CHARACTER1 (id); } st_parameter_wait; @@ -661,9 +659,6 @@ typedef struct gfc_unit int continued; - /* Contains the pointer to the async unit. */ - struct async_unit *au; - __gthread_mutex_t lock; /* Number of threads waiting to acquire this unit's lock. When non-zero, close_unit doesn't only removes the unit @@ -820,18 +815,11 @@ extern void next_record (st_parameter_dt *, int); internal_proto(next_record); extern void st_wait (st_parameter_wait *); -export_proto (st_wait); - -extern void st_wait_async (st_parameter_wait *); -export_proto (st_wait_async); +export_proto(st_wait); extern void hit_eof (st_parameter_dt *); internal_proto(hit_eof); -extern void transfer_array_inner (st_parameter_dt *, gfc_array_char *, int, - gfc_charlen_type); -internal_proto (transfer_array_inner); - /* read.c */ extern void set_integer (void *, GFC_INTEGER_LARGEST, int); @@ -1000,14 +988,3 @@ memset4 (gfc_char4_t *p, gfc_char4_t c, int k) #endif -extern void -st_write_done_worker (st_parameter_dt *); -internal_proto (st_write_done_worker); - -extern void -st_read_done_worker (st_parameter_dt *); -internal_proto (st_read_done_worker); - -extern void -data_transfer_init_worker (st_parameter_dt *, int); -internal_proto (data_transfer_init_worker); |