f90_utils.h File Reference

This graph shows which files directly or indirectly include this file:

Go to the source code of this file.

Defines
#define	MAX_NDIM   7 /* Max number of dimensions allowed */
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 *expr)
WN *	F90_Wrap_ARREXP (WN *expr)
WN *	F90_wrap_cvtl (WN *wn, TYPE_ID ty)

---

Define Documentation

#define MAX_NDIM   7 /* Max number of dimensions allowed */

Definition at line 44 of file f90_utils.h.

Referenced by F90_Rank_Walk(), F90_Size_Walk(), and F90_Wrap_ARREXP().

---

Function Documentation

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().

Here is the call graph for this function:

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 *

expr

)

Definition at line 360 of file f90_utils.cxx.

References F90_Size_Walk(), MAX_NDIM, and WN_DELETE_Tree().

Here is the call graph for this function:

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().

Here is the call graph for this function:

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().

Here is the call graph for this function:

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().

Here is the call graph for this function: