diff options
Diffstat (limited to 'libgfortran/io/io.h')
| -rw-r--r-- | libgfortran/io/io.h | 14 |
1 files changed, 13 insertions, 1 deletions
diff --git a/libgfortran/io/io.h b/libgfortran/io/io.h index e7b0ac1..e364171 100644 --- a/libgfortran/io/io.h +++ b/libgfortran/io/io.h @@ -206,6 +206,10 @@ typedef enum {READING, WRITING} unit_mode; +typedef enum +{ CONVERT_NATIVE, CONVERT_SWAP, CONVERT_BIG, CONVERT_LITTLE } +unit_convert; + #define CHARACTER1(name) \ char * name; \ gfc_charlen_type name ## _len @@ -247,6 +251,7 @@ st_parameter_common; #define IOPARM_OPEN_HAS_ACTION (1 << 14) #define IOPARM_OPEN_HAS_DELIM (1 << 15) #define IOPARM_OPEN_HAS_PAD (1 << 16) +#define IOPARM_OPEN_HAS_CONVERT (1 << 17) typedef struct { @@ -261,6 +266,7 @@ typedef struct CHARACTER2 (action); CHARACTER1 (delim); CHARACTER2 (pad); + CHARACTER1 (convert); } st_parameter_open; @@ -301,6 +307,7 @@ st_parameter_filepos; #define IOPARM_INQUIRE_HAS_READ (1 << 26) #define IOPARM_INQUIRE_HAS_WRITE (1 << 27) #define IOPARM_INQUIRE_HAS_READWRITE (1 << 28) +#define IOPARM_INQUIRE_HAS_CONVERT (1 << 29) typedef struct { @@ -323,6 +330,7 @@ typedef struct CHARACTER2 (read); CHARACTER1 (write); CHARACTER2 (readwrite); + CHARACTER1 (convert); } st_parameter_inquire; @@ -419,7 +427,7 @@ typedef struct st_parameter_dt kind. */ char value[32]; } p; - char pad[16 * sizeof (char *) + 32 * sizeof (int)]; + char pad[16 * sizeof (char *) + 34 * sizeof (int)]; } u; } st_parameter_dt; @@ -438,6 +446,7 @@ typedef struct unit_position position; unit_status status; unit_pad pad; + unit_convert convert; } unit_flags; @@ -738,6 +747,9 @@ internal_proto(init_loop_spec); extern void next_record (st_parameter_dt *, int); internal_proto(next_record); +extern void reverse_memcpy (void *, const void *, size_t); +internal_proto (reverse_memcpy); + /* read.c */ extern void set_integer (void *, GFC_INTEGER_LARGEST, int); |