Open64 (mfef90, whirl2f, and IR tools)
TAG: version-openad; SVN changeset: 916
|
#include <fortran.h>
#include <liberrno.h>
#include <stdlib.h>
#include <stddef.h>
#include <string.h>
#include <cray/dopevec.h>
Go to the source code of this file.
Functions | |
void | _TRIM (DopeVectorType *result, _fcd source) |
Variables | |
long | _zero_entity |
void _TRIM | ( | DopeVectorType * | result, |
_fcd | source | ||
) |
Definition at line 54 of file trim.c.
References _cptofcd(), _fcdlen(), _fcdtocp(), _LELVL_ABORT, _lerror(), _zero_entity, DopeVector::a, DopeVector::assoc, DopeVector::base_addr, DopeVector::charptr, FEINTUNK, FENOMEMY, NULL, DopeVector::orig_base, and DopeVector::orig_size.
long _zero_entity |