Open64 (mfef90, whirl2f, and IR tools)
TAG: version-openad; SVN changeset: 916
|
Go to the source code of this file.
Functions | |
BOOL | F90_Is_Transformational (INT32 intrinsic) |
BOOL | F90_Is_Char_Intrinsic (INT32 intr) |
INT | F90_Get_Dim (WN *dim_wn) |
BOOL | F90_Size_Walk (WN *expr, INT *ndim, WN **sizes) |
INT | F90_Rank_Walk (WN *tree) |
WN * | F90_Wrap_ARREXP (WN *expr) |
WN * | F90_wrap_cvtl (WN *wn, TYPE_ID ty) |
INT F90_Get_Dim | ( | WN * | dim_wn | ) |
Definition at line 116 of file f90_utils.cxx.
References F90_Get_Dim(), OPC_VPARM, OPR_INTCONST, OPR_PARM, WN_const_val(), WN_kid0(), WN_opcode(), and WN_operator().
Referenced by cwh_stmt_conformance_checks_walk(), F90_Get_Dim(), and F90_Size_Walk().
BOOL F90_Is_Char_Intrinsic | ( | INT32 | intr | ) |
Definition at line 79 of file f90_utils.cxx.
References FALSE, INTRN_ADJUSTL, INTRN_ADJUSTR, INTRN_F90INDEX, INTRN_LENTRIM, INTRN_SCAN, INTRN_VERIFY, and TRUE.
BOOL F90_Is_Transformational | ( | INT32 | intrinsic | ) |
Definition at line 50 of file f90_utils.cxx.
References FALSE, INTRN_ALL, INTRN_ANY, INTRN_COUNT, INTRN_CSHIFT, INTRN_DOT_PRODUCT, INTRN_EOSHIFT, INTRN_MATMUL, INTRN_MAXLOC, INTRN_MAXVAL, INTRN_MINLOC, INTRN_MINVAL, INTRN_PACK, INTRN_PRODUCT, INTRN_RESHAPE, INTRN_SPREAD, INTRN_SUM, INTRN_TRANSPOSE, INTRN_UNPACK, and TRUE.
Referenced by cwh_stmt_conformance_checks_walk().
INT F90_Rank_Walk | ( | WN * | tree | ) |
Definition at line 360 of file f90_utils.cxx.
References F90_Size_Walk(), MAX_NDIM, and WN_DELETE_Tree().
BOOL F90_Size_Walk | ( | WN * | expr, |
INT * | ndim, | ||
WN ** | sizes | ||
) |
Definition at line 144 of file f90_utils.cxx.
References F90_Get_Dim(), F90_Size_Walk(), FALSE, INTRN_ALL, INTRN_ANY, INTRN_COUNT, INTRN_CSHIFT, INTRN_EOSHIFT, INTRN_MATMUL, INTRN_MAXLOC, INTRN_MAXVAL, INTRN_MINLOC, INTRN_MINVAL, INTRN_PACK, INTRN_PRODUCT, INTRN_SPREAD, INTRN_SUM, INTRN_TRANSPOSE, INTRN_UNPACK, Is_True, MAX_NDIM, MTYPE_I4, NULL, OPR_ARRAYEXP, OPR_ARRSECTION, OPR_COMMA, OPR_INTRINSIC_OP, OPR_RCOMMA, OPR_SRCTRIPLET, OPR_TRIPLET, TRUE, WN_COPY_Tree(), WN_DELETE_Tree(), WN_first(), WN_Intconst(), WN_intrinsic(), WN_kid(), WN_kid0(), WN_kid1(), WN_kid2(), WN_kid_count(), WN_next(), and WN_operator().
Referenced by cwh_stmt_conformance_checks_walk(), F90_Rank_Walk(), F90_Size_Walk(), and F90_Wrap_ARREXP().
WN* F90_Wrap_ARREXP | ( | WN * | expr | ) |
Definition at line 385 of file f90_utils.cxx.
References F90_Size_Walk(), MAX_NDIM, MTYPE_B, MTYPE_I1, MTYPE_I2, MTYPE_I4, MTYPE_U1, MTYPE_U2, MTYPE_U4, MTYPE_V, OPR_ARRAYEXP, OPR_SRCTRIPLET, OPR_TRIPLET, WN_Create(), WN_kid(), WN_kid0(), WN_operator(), and WN_rtype().
Referenced by cwh_addr_do_bounds_check(), cwh_do_tranformational(), cwh_dope_store(), cwh_expr_compare_char(), cwh_expr_operand(), cwh_stmt_call_helper(), cwh_stmt_character_icall(), fei_concat(), fei_count(), fei_matmul(), fei_nseq_subscr(), fei_nullify(), fei_pstore(), fei_seq_subscr(), and fei_store().
WN* F90_wrap_cvtl | ( | WN * | wn, |
TYPE_ID | ty | ||
) |
Definition at line 442 of file f90_utils.cxx.
References MTYPE_I1, MTYPE_I2, MTYPE_U1, MTYPE_U2, OPC_I4CVTL, OPC_U4CVTL, wn, and WN_CreateCvtl().
Referenced by cwh_wrap_cvtl().