s_globals.m File Reference

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

Go to the source code of this file.

Defines
#define	LCV_CONST_IDX   4
#define	SHAPE_FOLDABLE(OPND)   OPND.flag_1
#define	SHAPE_WILL_FOLD_LATER(OPND)   OPND.flag_2
#define	COPY_SHAPE(SHAPE_T, SHAPE_S, RANK)
#define	LCV_WORDS(VAR)   (sizeof(VAR) / sizeof(attr_tbl[0].wd[0]))
#define	SET_LCV_CONST(ATTR, VALUE, WORDS)
#define	GET_LCV_CONST(ATTR, VALUE, WORDS)

---

Define Documentation

#define COPY_SHAPE	(		SHAPE_T,
			SHAPE_S,
			RANK
	)

Value:

{ int   _i;                                                    \
                        for(_i = 0; _i < RANK; _i++) {                         \
                           COPY_OPND(SHAPE_T[_i], SHAPE_S[_i]);                \
                         }                                                     \
                }

Definition at line 75 of file s_globals.m.

Referenced by bin_array_syntax_check(), call_list_semantics(), check_elemental_conformance(), check_for_constructors(), conform_check(), cvrt_opr_handler(), final_arg_work(), interpret_binary_intrinsic_opr(), interpret_binary_opr(), interpret_concat_opr(), interpret_csmg_opr(), interpret_cvmgt_opr(), interpret_index_opr(), interpret_max_min_opr(), not_opr_handler(), paren_opr_handler(), struct_opr_handler(), subscript_opr_handler(), substring_opr_handler(), and uplus_opr_handler().

#define GET_LCV_CONST	(		ATTR,
			VALUE,
			WORDS
	)

Value:

{                                   \
         *(long *) &((VALUE)) = attr_tbl[ATTR].wd[LCV_CONST_IDX];              \
         if (WORDS == 2) {                                                     \
            *((long *) &((VALUE))+1) = attr_tbl[ATTR].wd[LCV_CONST_IDX+1];     \
         }                                                                     \
         else if (WORDS == 3) {                                                \
            *((long *) &((VALUE))+1) = attr_tbl[ATTR].wd[LCV_CONST_IDX+1];     \
            *((long *) &((VALUE))+2) = attr_tbl[ATTR].wd[LCV_CONST_IDX+2];     \
         }                                                                     \
         else if (WORDS == 4) {                                                \
            *((long *) &((VALUE))+1) = attr_tbl[ATTR].wd[LCV_CONST_IDX+1];     \
            *((long *) &((VALUE))+2) = attr_tbl[ATTR].wd[LCV_CONST_IDX+2];     \
            *((long *) &((VALUE))+3) = attr_tbl[ATTR].wd[LCV_CONST_IDX+3];     \
         }                                                                     \
         }

Definition at line 106 of file s_globals.m.

Referenced by cvrt_exp_to_pdg(), interpret_constructor(), interpret_data_imp_do(), and interpret_implied_do().

#define LCV_CONST_IDX   4

Definition at line 48 of file s_globals.m.

#define LCV_WORDS

(

VAR

)

(sizeof(VAR) / sizeof(attr_tbl[0].wd[0]))

Definition at line 88 of file s_globals.m.

#define SET_LCV_CONST	(		ATTR,
			VALUE,
			WORDS
	)

Value:

{                                      \
         attr_tbl[ATTR].wd[LCV_CONST_IDX] = *(long *) &((VALUE));              \
         if (WORDS == 2) {                                                     \
            attr_tbl[ATTR].wd[LCV_CONST_IDX+1] = *((long *) &((VALUE))+1);     \
         }                                                                     \
         else if (WORDS == 3) {                                                \
            attr_tbl[ATTR].wd[LCV_CONST_IDX+1] = *((long *) &((VALUE))+1);     \
            attr_tbl[ATTR].wd[LCV_CONST_IDX+2] = *((long *) &((VALUE))+2);     \
         }                                                                     \
         else if (WORDS == 4) {                                                \
            attr_tbl[ATTR].wd[LCV_CONST_IDX+1] = *((long *) &((VALUE))+1);     \
            attr_tbl[ATTR].wd[LCV_CONST_IDX+2] = *((long *) &((VALUE))+2);     \
            attr_tbl[ATTR].wd[LCV_CONST_IDX+3] = *((long *) &((VALUE))+3);     \
         }                                                                     \
         }

Definition at line 90 of file s_globals.m.

Referenced by cvrt_exp_to_pdg(), interpret_data_imp_do(), and interpret_implied_do().

#define SHAPE_FOLDABLE

(

OPND

)

OPND.flag_1

Definition at line 61 of file s_globals.m.

Referenced by bin_array_syntax_check(), check_elemental_conformance(), gen_bd_entry(), gen_forall_tmp_bd_entry(), gen_whole_subscript(), get_shape_from_attr(), lbound_intrinsic(), make_logical_array_tmp(), make_triplet_extent_tree(), reshape_intrinsic(), set_shape_for_deferred_funcs(), shape_intrinsic(), size_intrinsic(), subscript_opr_handler(), transfer_intrinsic(), triplet_opr_handler(), and ubound_intrinsic().

#define SHAPE_WILL_FOLD_LATER

(

OPND

)

OPND.flag_2

Definition at line 62 of file s_globals.m.

Referenced by bin_array_syntax_check(), gen_bd_entry(), gen_forall_tmp_bd_entry(), gen_whole_subscript(), get_shape_from_attr(), lbound_intrinsic(), make_triplet_extent_tree(), reshape_intrinsic(), set_shape_for_deferred_funcs(), shape_intrinsic(), size_intrinsic(), subscript_opr_handler(), transfer_intrinsic(), triplet_opr_handler(), and ubound_intrinsic().