Open64 (mfef90, whirl2f, and IR tools)
TAG: version-openad; SVN changeset: 916
|
#include <errno.h>
#include <liberrno.h>
#include <fortran.h>
#include <cray/nassert.h>
#include "fio.h"
#include "f90io.h"
Go to the source code of this file.
Defines | |
#define | MAXSH 1 |
Functions | |
static void | _rb (FIOSPTR css, unit *cup, _f_int *recmode, gfptr_t bloc, gfptr_t eloc, type_packet *tip) |
void | _BUFFERIN (struct bio_spec_list *bisl) |
void | _RB (_f_int *biunit, _f_int *recmode, gfptr_t bloc, gfptr_t eloc, f90_type_t *tiptr) |
void _BUFFERIN | ( | struct bio_spec_list * | bisl | ) |
Definition at line 117 of file rb.c.
References _ferr(), _get_dc_param(), _imp_open(), _PRAGMA_INLINE, _rb(), bio_spec_list::bloc, cup, bio_spec_list::eloc, type_information_packet::elsize, type_information_packet::extlen, f90_type::int_len, type_information_packet::intlen, NULL, bio_spec_list::recmode, ret, SEQ, STMT_BEGIN, type_information_packet::stride, T_BUFIN, bio_spec_list::tiptr, f90_type::type, type_information_packet::type77, type_information_packet::type90, UNF, bio_spec_list::unit, and bio_spec_list::version.
Referenced by _RB().
static void _rb | ( | FIOSPTR | css, |
unit * | cup, | ||
_f_int * | recmode, | ||
gfptr_t | bloc, | ||
gfptr_t | eloc, | ||
type_packet * | tip | ||
) | [static] |
Definition at line 191 of file rb.c.
References _fcdlen(), _fcdtocp(), _ferr(), _frwd, _issddptr, _leadz(), CNT, COMPADD, type_information_packet::count, type_information_packet::elsize, EOD, EOF, errno, gfptr_t::fcd, FP::fdc, FEBIOFWA, FEBIOFWD, FEBIONDA, FEBIONFM, FEINTUNK, FESHRSUP, FFC_ASYNC, FFCNT, FFSTAT, FS_FDC, FULL, IOERR, MAXSH, MIN, NULL, PARTIAL, stat, STMT_END, ffsw::sw_error, T_BUFIN, type_information_packet::type90, unit_s::ualignmask, unit_s::uasync, unit_s::uend, unit_s::uerr, unit_s::uffsw, unit_s::uflagword, unit_s::ufmt, unit_s::ufp, unit_s::ufs, unit_s::ulastyp, unit_s::ulrecl, unit_s::unitchk, unit_s::urecmode, unit_s::urecpos, unit_s::useq, unit_s::uwrt, gfptr_t::v, and WAITIO.
Referenced by _BUFFERIN().
void _RB | ( | _f_int * | biunit, |
_f_int * | recmode, | ||
gfptr_t | bloc, | ||
gfptr_t | eloc, | ||
f90_type_t * | tiptr | ||
) |
Definition at line 169 of file rb.c.
References _BUFFERIN(), bio_spec_list::bloc, bio_spec_list::eloc, bio_spec_list::recmode, bio_spec_list::tiptr, bio_spec_list::unit, and bio_spec_list::version.