Open64 (mfef90, whirl2f, and IR tools)
TAG: version-openad; SVN changeset: 916
|
#include <stddef.h>
#include <liberrno.h>
#include <cray/dopevec.h>
#include <cray/portdefs.h>
#include "arraydefs.h"
Go to the source code of this file.
Defines | |
#define | FIND_INDX() |
#define | INCREMENT() |
Functions | |
void | _UNPACK (DopeVectorType *result, DopeVectorType *vector, DopeVectorType *mask, DopeVectorType *field) |
void _UNPACK | ( | DopeVectorType * | result, |
DopeVectorType * | vector, | ||
DopeVectorType * | mask, | ||
DopeVectorType * | field | ||
) |
Definition at line 165 of file unpack.c.
References _cptofcd(), _fcdlen(), _fcdtocp(), _LELVL_ABORT, _lerror(), DopeVector::a, DopeVector::assoc, DopeVector::base_addr, BITS_PER_BYTE, BITS_PER_WORD, BYTES_PER_WORD, DopeVector::charptr, DopeVector::dimension, DVSUBTYPE_BIT128, DVSUBTYPE_BIT256, DVSUBTYPE_BIT32, DVSUBTYPE_BIT64, DVSUBTYPE_CHAR, DVSUBTYPE_DERIVED, DopeVector::DvDimen::extent, FEINTDTY, FENOMEMY, FEVECUNP, FIND_INDX, if(), INCREMENT, f90_type::int_len, DopeVector::DvDimen::low_bound, LTOB, MAXDIM, DopeVector::n_dim, NULL, DopeVector::orig_base, DopeVector::orig_size, restrict, DopeVector::DvDimen::stride_mult, f90_type::type, and DopeVector::type_lens.