s_cnstrct.c File Reference

#include "defines.h"
#include "host.m"
#include "host.h"
#include "target.m"
#include "target.h"
#include "globals.m"
#include "tokens.m"
#include "sytb.m"
#include "s_globals.m"
#include "debug.m"
#include "s_asg_expr.m"
#include "s_cnstrct.m"
#include "globals.h"
#include "tokens.h"
#include "sytb.h"
#include "s_globals.h"
#include "s_cnstrct.h"
#include "fmath.h"

Include dependency graph for s_cnstrct.c:

Go to the source code of this file.

Functions
static boolean	interpret_constructor (opnd_type *, expr_arg_type *, boolean, long64 *)
static void	increment_count (expr_arg_type *)
static void	write_constant (int)
static boolean	interpret_implied_do (int, expr_arg_type *, boolean, long64 *)
static boolean	interpret_ref (opnd_type *, expr_arg_type *, boolean, long64 *)
static void	enlarge_char_result_buffer (void)
static void	broadcast_scalar (expr_arg_type *, long64)
static boolean	interpret_struct_construct_opr (int, expr_arg_type *, boolean, long64 *)
static boolean	interpret_array_construct_opr (int, expr_arg_type *, boolean, long64 *)
static boolean	interpret_unary_opr (int, expr_arg_type *, boolean, long64 *)
static boolean	interpret_binary_opr (int, expr_arg_type *, boolean, long64 *)
static boolean	interpret_concat_opr (int, expr_arg_type *, boolean, long64 *)
static boolean	interpret_trim_intrinsic (int, expr_arg_type *, boolean, long64 *)
static boolean	interpret_adjustl_intrinsic (int, expr_arg_type *, boolean, long64 *)
static boolean	interpret_repeat_intrinsic (int, expr_arg_type *, boolean, long64 *)
static boolean	interpret_transfer_intrinsic (int, expr_arg_type *, boolean, long64 *)
static boolean	interpret_reshape_intrinsic (int, expr_arg_type *, boolean, long64 *)
static boolean	interpret_size_intrinsic (int, expr_arg_type *, boolean, long64 *)
static boolean	interpret_ubound_intrinsic (int, expr_arg_type *, boolean, long64 *)
static boolean	interpret_shape_intrinsic (int, expr_arg_type *, boolean, long64 *)
static boolean	interpret_sik_intrinsic (int, expr_arg_type *, boolean, long64 *)
static boolean	interpret_srk_intrinsic (int, expr_arg_type *, boolean, long64 *)
static boolean	interpret_unary_intrinsic_opr (int, expr_arg_type *, boolean, long64 *)
static boolean	interpret_binary_intrinsic_opr (int, expr_arg_type *, boolean, long64 *)
static boolean	interpret_max_min_opr (int, expr_arg_type *, boolean, long64 *)
static boolean	interpret_csmg_opr (int, expr_arg_type *, boolean, long64 *)
static boolean	interpret_cvmgt_opr (int, expr_arg_type *, boolean, long64 *)
static boolean	interpret_index_opr (int, expr_arg_type *, boolean, long64 *)
boolean	create_constructor_constant (opnd_type *top_opnd, expr_arg_type *exp_desc)
boolean	fold_aggragate_expression (opnd_type *top_opnd, expr_arg_type *exp_desc, boolean return_const)
int	get_next_array_expr_element (opnd_type *top_opnd, long64 *element)
Variables
static char	USMID [] = "\n@(#)5.0_pl/sources/s_cnstrct.c 5.6 09/29/99 00:38:21\n"

---

Function Documentation

static void broadcast_scalar	(	expr_arg_type *	exp_desc,
		long64	num_elements
	)		[static]

Definition at line 4757 of file s_cnstrct.c.

References ATT_STRUCT_BIT_LEN_IDX, bcast_cn_bit_offset, Character, check_type_conversion, CN_CONST, CN_INT_TO_C, CN_POOL_IDX, Complex, CP_CONSTANT, Func_Entry, Func_Exit, Integer, Logical, NULL, Real, storage_bit_size_tbl, Structure, target_char_len_idx, target_type_idx, the_cn_bit_offset, the_cn_idx, TRACE, TYP_BIT_LEN, TYP_IDX, TYP_LINEAR, TYP_TYPE, expr_semantics_args::type, expr_semantics_args::type_idx, and Typeless.

Referenced by create_constructor_constant(), fold_aggragate_expression(), and interpret_struct_construct_opr().

boolean create_constructor_constant	(	opnd_type *	top_opnd,
		expr_arg_type *	exp_desc
	)

Definition at line 139 of file s_cnstrct.c.

References Allocate_Stmt, Ansi, Arith_If_Stmt, Array_Construct_Opr, Assignment_Stmt, AT_DEFINED, AT_REFERENCED, AT_SEMANTICS_DONE, AT_Tbl_Idx, ATD_ARRAY_IDX, ATD_DATA_INIT, ATD_FLD, ATD_SAVED, ATD_STOR_BLK_IDX, ATD_TMP_IDX, ATD_TMP_INIT_NOT_DONE, ATD_TYPE_IDX, Backspace_Stmt, bcast_cn_bit_offset, BD_LB_FLD, BD_LB_IDX, BD_LEN_FLD, BD_LEN_IDX, BD_RANK, BD_RESOLVED, BD_XT_FLD, BD_XT_IDX, Before, bits_in_constructor, broadcast_scalar(), Buffer_Stmt, C_INT_TO_CN, Call_Stmt, Case_Stmt, cast_to_type_idx(), CG_INTEGER_DEFAULT_TYPE, expr_semantics_args::char_len, char_result_offset, Character, Character_1, CHARACTER_DEFAULT_TYPE, check_asg_semantics(), check_type_conversion, CLEAR_TBL_NTRY, Close_Stmt, CN_INT_TO_C, CN_INTEGER_ONE_IDX, CN_INTEGER_ZERO_IDX, CN_Tbl_Idx, CN_TYPE_IDX, compare_cn_and_value(), Const_Len_Char, expr_semantics_args::constant, Constant_Struct_Construct_Opr, expr_semantics_args::constructor, expr_semantics_args::constructor_size_level, expr_semantics_args::contig_array, COPY_OPND, copy_subtree(), create_bd_ntry_for_const(), curr_scp_idx, curr_stmt_sh_idx, Data_Stmt, Deallocate_Stmt, Decode_Stmt, defer_stmt_expansion, Do_Infinite_Stmt, Do_Iterative_Stmt, Do_While_Stmt, Else_If_Stmt, Else_Where_Stmt, Encode_Stmt, Endfile_Stmt, EXIT, FALSE, find_left_attr(), find_opnd_line_and_column(), opnd_entry::fld, expr_semantics_args::foldable, Func_Entry, Func_Exit, gen_compiler_tmp(), gen_sh(), gen_whole_subscript(), gen_whole_substring(), Gt_Opr, opnd_entry::idx, If_Cstrct_Stmt, If_Stmt, IL_COL_NUM, IL_FLD, IL_IDX, IL_LINE_NUM, IL_NEXT_LIST_IDX, IL_PREV_LIST_IDX, IL_Tbl_Idx, increment_count(), init_exp_desc, Init_Opr, init_target_opnd, Inquire_Stmt, insert_subs_ok, Internal, interpret_constructor(), IR_COL_NUM, IR_COL_NUM_L, IR_COL_NUM_R, IR_FLD_L, IR_FLD_R, IR_IDX_L, IR_IDX_R, IR_LINE_NUM, IR_LINE_NUM_L, IR_LINE_NUM_R, IR_LIST_CNT_R, IR_OPND_L, IR_OPND_R, IR_OPR, IR_Tbl_Idx, IR_TYPE_IDX, arg_desc_node::line, expr_semantics_args::linear_type, Long_Typeless, Mult_Opr, NO_Tbl_Idx, ntr_const_tbl(), NTR_IR_LIST_TBL, NTR_IR_TBL, ntr_type_tbl(), NULL, NULL_IDX, null_opnd, Nullify_Stmt, Open_Stmt, OPND_COL_NUM, OPND_FLD, OPND_IDX, OPND_LINE_NUM, Outmoded_If_Stmt, print_cn(), Print_Stmt, PRINTMSG(), process_char_len(), expr_semantics_args::rank, Read_Stmt, Referenced, Rewind_Stmt, SCP_SB_STATIC_INIT_IDX, Select_Stmt, SH_IR_IDX, SH_P2_SKIP_ME, SH_PREV_IDX, expr_semantics_args::shape, Shared, Simple_Expr_Size, single_value_array, single_value_opnd, stmt_type, storage_bit_size_tbl, STORAGE_WORD_SIZE, Structure, Subscript_Opr, target_array_idx, target_char_len_idx, target_type_idx, the_cn_bit_offset, the_cn_idx, expr_semantics_args::tmp_reference, TRACE, TRUE, TYP_BIT_LEN, TYP_CHAR_CLASS, TYP_FLD, TYP_IDX, TYP_LINEAR, TYP_TYPE, TYP_WORK_IDX, expr_semantics_args::type, expr_semantics_args::type_idx, type_tbl, Typeless, TYPELESS_DEFAULT_TYPE, unequal_char_lens, Where_Cstrct_Stmt, Where_Stmt, expr_semantics_args::will_fold_later, words_in_constructor, Write_Stmt, and zero.

Referenced by array_construct_opr_handler(), check_for_constructors(), create_array_constructor_asg(), optimize_whole_array_init(), and struct_construct_opr_handler().

Here is the call graph for this function:

static void enlarge_char_result_buffer

(

void

)

[static]

Definition at line 4709 of file s_cnstrct.c.

References char_result_buffer, char_result_buffer_len, Func_Entry, Func_Exit, MEM_ALLOC, MEM_REALLOC, NULL, and TRACE.

Referenced by interpret_constructor(), interpret_ref(), interpret_repeat_intrinsic(), and interpret_unary_intrinsic_opr().

boolean fold_aggragate_expression	(	opnd_type *	top_opnd,
		expr_arg_type *	exp_desc,
		boolean	return_const
	)

Definition at line 646 of file s_cnstrct.c.

References Assignment_Stmt, AT_DEFINED, AT_REFERENCED, AT_SEMANTICS_DONE, AT_Tbl_Idx, ATD_ARRAY_IDX, ATD_DATA_INIT, ATD_FLD, ATD_SAVED, ATD_STOR_BLK_IDX, ATD_TMP_IDX, ATD_TMP_INIT_NOT_DONE, ATD_TYPE_IDX, bcast_cn_bit_offset, BD_LB_FLD, BD_LB_IDX, BD_LEN_FLD, BD_LEN_IDX, BD_RANK, BD_RESOLVED, BD_XT_FLD, BD_XT_IDX, Before, bits_in_constructor, broadcast_scalar(), C_INT_TO_CN, cast_to_type_idx(), CG_INTEGER_DEFAULT_TYPE, expr_semantics_args::char_len, char_result_len, char_result_offset, Character, CHARACTER_DEFAULT_TYPE, check_asg_semantics(), check_type_conversion, CLEAR_TBL_NTRY, CN_CONST, CN_INT_TO_C, CN_INTEGER_ONE_IDX, CN_INTEGER_ZERO_IDX, CN_Tbl_Idx, CN_TYPE_IDX, Const_Len_Char, expr_semantics_args::constant, expr_semantics_args::constructor, expr_semantics_args::contig_array, COPY_OPND, create_bd_ntry_for_const(), curr_scp_idx, curr_stmt_sh_idx, Cvrt_Opr, do_constructor_init, EXIT, FALSE, find_left_attr(), find_opnd_line_and_column(), opnd_entry::fld, expr_semantics_args::foldable, folder_driver(), Func_Entry, Func_Exit, gen_compiler_tmp(), gen_sh(), gen_whole_subscript(), gen_whole_substring(), opnd_entry::idx, IL_COL_NUM, IL_FLD, IL_IDX, IL_LINE_NUM, IL_NEXT_LIST_IDX, IL_PREV_LIST_IDX, IL_Tbl_Idx, increment_count(), Init_Opr, init_target_opnd, insert_subs_ok, Integer_8, Internal, interpret_constructor(), IR_ARRAY_SYNTAX, IR_COL_NUM, IR_COL_NUM_L, IR_COL_NUM_R, IR_FLD_L, IR_FLD_R, IR_IDX_L, IR_IDX_R, IR_LINE_NUM, IR_LINE_NUM_L, IR_LINE_NUM_R, IR_LIST_CNT_R, IR_OPND_L, IR_OPND_R, IR_OPR, IR_Tbl_Idx, IR_TYPE_IDX, arg_desc_node::line, expr_semantics_args::linear_type, Long_Typeless, Mult_Opr, NO_Tbl_Idx, ntr_const_tbl(), NTR_IR_LIST_TBL, NTR_IR_TBL, ntr_type_tbl(), ntr_unshared_const_tbl(), NULL, NULL_IDX, null_opnd, OPND_COL_NUM, OPND_FLD, OPND_IDX, OPND_LINE_NUM, PRINTMSG(), expr_semantics_args::rank, Real, Referenced, result_value, SCP_SB_STATIC_INIT_IDX, SH_IR_IDX, SH_P2_SKIP_ME, SH_PREV_IDX, expr_semantics_args::shape, Shared, single_value_array, single_value_opnd, stmt_start_col, stmt_start_line, storage_bit_size_tbl, STORAGE_WORD_SIZE, Structure, Subscript_Opr, target_array_idx, target_char_len_idx, target_type_idx, the_cn_bit_offset, the_cn_idx, expr_semantics_args::tmp_reference, TRACE, TRUE, TYP_BIT_LEN, TYP_CHAR_CLASS, TYP_FLD, TYP_IDX, TYP_LINEAR, TYP_TYPE, TYP_WORK_IDX, expr_semantics_args::type, expr_semantics_args::type_idx, type_tbl, Typeless, TYPELESS_DEFAULT_TYPE, unequal_char_lens, words_in_constructor, write_constant(), and zero.

Referenced by fold_all_subscripts(), gen_internal_dope_vector(), iand_intrinsic(), ibits_intrinsic(), ibset_intrinsic(), interpret_data_imp_do(), ishft_intrinsic(), ishftc_intrinsic(), lbound_intrinsic(), make_logical_array_tmp(), not_intrinsic(), optimize_reshape(), process_cpnt_inits(), reshape_intrinsic(), section_semantics(), shape_intrinsic(), stmt_func_call_opr_handler(), ubound_intrinsic(), and vv_subscript_semantics().

Here is the call graph for this function:

int get_next_array_expr_element	(	opnd_type *	top_opnd,
		long64 *	element
	)

Definition at line 1209 of file s_cnstrct.c.

References FALSE, Func_Entry, Func_Exit, interpret_constructor(), no_result_value, ntr_const_tbl(), NULL, NULL_IDX, result_value, TRACE, and expr_semantics_args::type_idx.

Referenced by cvrt_exp_to_pdg(), and reshape_intrinsic().

Here is the call graph for this function:

static void increment_count

(

expr_arg_type *

exp_desc

)

[static]

Definition at line 1912 of file s_cnstrct.c.

References ATT_STRUCT_BIT_LEN_IDX, bits_in_constructor, char_result_len, Character, Character_1, check_type_conversion, CN_INT_TO_C, Complex, Func_Entry, Func_Exit, opnd_entry::idx, Integer, expr_semantics_args::linear_type, Logical, NULL, expr_semantics_args::rank, Real, expr_semantics_args::shape, storage_bit_size_tbl, Structure, target_char_len_idx, target_type_idx, TRACE, TYP_BIT_LEN, TYP_IDX, TYP_LINEAR, expr_semantics_args::type, expr_semantics_args::type_idx, and Typeless.

Referenced by create_constructor_constant(), fold_aggragate_expression(), interpret_array_construct_opr(), interpret_implied_do(), and interpret_transfer_intrinsic().

static boolean interpret_adjustl_intrinsic	(	int	ir_idx,
		expr_arg_type *	exp_desc,
		boolean	count,
		long64 *	element
	)		[static]

Definition at line 5979 of file s_cnstrct.c.

References Adjustl_Intrinsic, Adjustl_Opr, Adjustr_Opr, ATP_INTRIN_ENUM, C_INT_TO_CN, CG_INTEGER_DEFAULT_TYPE, char_result_buffer, char_result_len, char_result_offset, Character, CHARACTER_DEFAULT_TYPE, CLEAR_TBL_NTRY, CN_Tbl_Idx, Const_Len_Char, expr_semantics_args::constant, COPY_OPND, FALSE, folder_driver(), Func_Entry, Func_Exit, IL_OPND, interpret_constructor(), IR_COL_NUM, IR_IDX_L, IR_IDX_R, IR_LINE_NUM, IR_TYPE_IDX, arg_desc_node::line, expr_semantics_args::linear_type, ntr_type_tbl(), NULL, NULL_IDX, OPND_COL_NUM, OPND_FLD, OPND_IDX, OPND_LINE_NUM, TRACE, TRUE, TYP_CHAR_CLASS, TYP_FLD, TYP_IDX, TYP_LINEAR, TYP_TYPE, TYP_WORK_IDX, expr_semantics_args::type, expr_semantics_args::type_idx, and type_tbl.

Referenced by interpret_constructor().

Here is the call graph for this function:

static boolean interpret_array_construct_opr	(	int	ir_idx,
		expr_arg_type *	exp_desc,
		boolean	count,
		long64 *	element
	)		[static]

Definition at line 5102 of file s_cnstrct.c.

References C_INT_TO_CN, char_result_len, char_result_offset, Character, CN_INT_TO_C, CN_Tbl_Idx, expr_semantics_args::constant, COPY_OPND, opnd_entry::fld, FREE_IR_LIST_NODE, Func_Entry, Func_Exit, opnd_entry::idx, IL_ELEMENT, IL_FLD, IL_IDX, IL_NEXT_LIST_IDX, IL_OPND, increment_count(), Internal, interpret_constructor(), IR_ARRAY_SYNTAX, IR_COL_NUM, IR_IDX_L, IR_IDX_R, IR_LINE_NUM, IR_Tbl_Idx, IR_TYPE_IDX, L, arg_desc_node::line, expr_semantics_args::linear_type, NTR_IR_LIST_TBL, NULL, NULL_IDX, PRINTMSG(), expr_semantics_args::rank, expr_semantics_args::shape, TRACE, TRUE, TYP_LINEAR, TYP_TYPE, expr_semantics_args::type, expr_semantics_args::type_idx, unequal_char_lens, and write_constant().

Referenced by interpret_constructor().

Here is the call graph for this function:

static boolean interpret_binary_intrinsic_opr	(	int	ir_idx,
		expr_arg_type *	exp_desc,
		boolean	count,
		long64 *	element
	)		[static]

Definition at line 7591 of file s_cnstrct.c.

References C_INT_TO_CN, CG_INTEGER_DEFAULT_TYPE, char_result_buffer, char_result_len, char_result_offset, Character, CHARACTER_DEFAULT_TYPE, CLEAR_TBL_NTRY, CN_Tbl_Idx, Const_Len_Char, expr_semantics_args::constant, COPY_OPND, COPY_SHAPE, Error, EXIT, FALSE, fold_relationals(), folder_driver(), Func_Entry, Func_Exit, IL_NEXT_LIST_IDX, IL_OPND, IL_Tbl_Idx, interpret_constructor(), IR_COL_NUM, IR_FLD_L, IR_IDX_L, IR_LINE_NUM, IR_OPND_L, IR_OPND_R, IR_OPR, IR_RANK, IR_TYPE_IDX, Lge_Opr, Lgt_Opr, arg_desc_node::line, expr_semantics_args::linear_type, Lle_Opr, Llt_Opr, Ne_Opr, no_result_value, ntr_type_tbl(), NULL, OPND_IDX, PRINTMSG(), expr_semantics_args::rank, result_value, expr_semantics_args::shape, TRACE, TRUE, TYP_CHAR_CLASS, TYP_FLD, TYP_IDX, TYP_LINEAR, TYP_TYPE, TYP_WORK_IDX, expr_semantics_args::type, expr_semantics_args::type_idx, and type_tbl.

Referenced by interpret_constructor().

Here is the call graph for this function:

static boolean interpret_binary_opr	(	int	ir_idx,
		expr_arg_type *	exp_desc,
		boolean	count,
		long64 *	element
	)		[static]

Definition at line 5514 of file s_cnstrct.c.

References C_INT_TO_CN, CG_INTEGER_DEFAULT_TYPE, char_result_buffer, char_result_len, char_result_offset, Character, CHARACTER_DEFAULT_TYPE, CLEAR_TBL_NTRY, CN_Tbl_Idx, Const_Len_Char, expr_semantics_args::constant, COPY_OPND, COPY_SHAPE, Error, EXIT, FALSE, fold_relationals(), folder_driver(), Func_Entry, Func_Exit, IL_NEXT_LIST_IDX, IL_OPND, IL_Tbl_Idx, interpret_constructor(), IR_COL_NUM, IR_FLD_L, IR_IDX_L, IR_LINE_NUM, IR_OPND_L, IR_OPND_R, IR_OPR, IR_RANK, IR_TYPE_IDX, arg_desc_node::line, expr_semantics_args::linear_type, Ne_Opr, no_result_value, ntr_type_tbl(), NULL, OPND_IDX, PRINTMSG(), expr_semantics_args::rank, result_value, expr_semantics_args::shape, TRACE, TRUE, TYP_CHAR_CLASS, TYP_FLD, TYP_IDX, TYP_LINEAR, TYP_TYPE, TYP_WORK_IDX, expr_semantics_args::type, expr_semantics_args::type_idx, and type_tbl.

Referenced by interpret_constructor().

Here is the call graph for this function:

static boolean interpret_concat_opr	(	int	ir_idx,
		expr_arg_type *	exp_desc,
		boolean	count,
		long64 *	element
	)		[static]

Definition at line 5742 of file s_cnstrct.c.

References char_result_len, char_result_offset, Character, compare_cn_and_value(), expr_semantics_args::constant, COPY_OPND, COPY_SHAPE, Error, FALSE, fold_relationals(), Func_Entry, Func_Exit, IL_NEXT_LIST_IDX, IL_OPND, interpret_constructor(), IR_COL_NUM, IR_IDX_L, IR_LINE_NUM, IR_RANK, IR_TYPE_IDX, Le_Opr, expr_semantics_args::linear_type, Ne_Opr, NULL, OPND_IDX, PRINTMSG(), expr_semantics_args::rank, expr_semantics_args::shape, Short_Char_Const, TRACE, TRUE, TYP_IDX, TYP_LINEAR, TYP_TYPE, expr_semantics_args::type, and expr_semantics_args::type_idx.

Referenced by interpret_constructor().

Here is the call graph for this function:

static boolean interpret_constructor	(	opnd_type *	top_opnd,
		expr_arg_type *	exp_desc,
		boolean	count,
		long64 *	element
	)		[static]

Definition at line 1267 of file s_cnstrct.c.

References Abs_Opr, Adjustl_Intrinsic, Adjustl_Opr, Adjustr_Intrinsic, Adjustr_Opr, Aimag_Opr, Aint_Opr, And_Opr, Array_Construct_Opr, AT_IS_INTRIN, AT_Tbl_Idx, Atan_Opr, ATD_FLD, ATD_IM_A_DOPE, ATD_LCV_IS_CONST, ATD_TMP_IDX, ATD_TYPE_IDX, ATP_INTRIN_ENUM, ATT_CHAR_SEQ, ATT_STRUCT_BIT_LEN_IDX, Band_Opr, Beqv_Opr, Bneqv_Opr, Bnot_Opr, Bor_Opr, Call_Opr, cast_typeless_constant(), Char_Opr, char_result_buffer, char_result_buffer_len, char_result_len, char_result_offset, Character, check_type_conversion, cmd_line_flags, CN_CONST, CN_INT_TO_C, CN_INTEGER_ONE_IDX, CN_POOL_IDX, CN_Tbl_Idx, CN_TYPE_IDX, cmd_line_flags_entry::co_array_fortran, compare_cn_and_value(), Complex, Concat_Opr, expr_semantics_args::constant, Constant_Array_Construct_Opr, Constant_Struct_Construct_Opr, COPY_OPND, Cos_Opr, Cosh_Opr, Cot_Opr, CP_CONSTANT, Csmg_Opr, Cvmgt_Opr, Cvrt_Opr, Cvrt_Unsigned_Opr, Dim_Opr, Div_Opr, Dv_Deref_Opr, enlarge_char_result_buffer(), Eq_Opr, Eqv_Opr, Exp_Opr, Exponent_Opr, FALSE, find_opnd_line_and_column(), Fraction_Opr, Func_Entry, Func_Exit, Ge_Opr, GET_LCV_CONST, Gt_Opr, Ibits_Opr, Ichar_Opr, IL_NEXT_LIST_IDX, IL_OPND, IL_Tbl_Idx, Implied_Do_Opr, Index_Opr, init_exp_desc, Int_Opr, Integer, Internal, interpret_adjustl_intrinsic(), interpret_array_construct_opr(), interpret_binary_intrinsic_opr(), interpret_binary_opr(), interpret_concat_opr(), interpret_csmg_opr(), interpret_cvmgt_opr(), interpret_implied_do(), interpret_index_opr(), interpret_max_min_opr(), interpret_ref(), interpret_repeat_intrinsic(), interpret_reshape_intrinsic(), interpret_shape_intrinsic(), interpret_sik_intrinsic(), interpret_size_intrinsic(), interpret_srk_intrinsic(), interpret_struct_construct_opr(), interpret_transfer_intrinsic(), interpret_trim_intrinsic(), interpret_ubound_intrinsic(), interpret_unary_intrinsic_opr(), interpret_unary_opr(), intrinsic_semantics, IR_COL_NUM, IR_COL_NUM_L, IR_FLD_L, IR_IDX_L, IR_IDX_R, IR_LINE_NUM, IR_LINE_NUM_L, IR_LIST_CNT_R, IR_OPND_L, IR_OPR, IR_Tbl_Idx, IR_TYPE_IDX, Ishftc_Opr, Le_Opr, Len_Trim_Opr, Lg_Opr, Lge_Opr, Lgt_Opr, arg_desc_node::line, expr_semantics_args::linear_type, Lle_Opr, Llt_Opr, Log_10_Opr, Log_E_Opr, Logical, Lt_Opr, Mask_Opr, Max_Opr, Min_Opr, Minus_Opr, Mod_Opr, Modulo_Opr, Mult_Opr, My_Pe_Opr, Ne_Opr, Nearest_Opr, Neqv_Opr, Nint_Opr, no_result_value, NO_Tbl_Idx, Not_Opr, NULL, NULL_IDX, Null_Opr, num_host_wds, OPND_COL_NUM, OPND_FLD, OPND_IDX, OPND_LINE_NUM, Or_Opr, Paren_Opr, Plus_Opr, Power_Opr, PRINTMSG(), process_deferred_functions(), Real, Repeat_Intrinsic, Reshape_Intrinsic, RESTORE_ENV, result_value, Rrspacing_Opr, SAVE_ENV, Scale_Opr, Scan_Opr, Section_Subscript_Opr, Set_Exponent_Opr, Shape_Intrinsic, Shift_Opr, Shifta_Opr, Shiftl_Opr, Shiftr_Opr, Short_Char_Const, Short_Typeless_Const, Sign_Opr, SIK_Intrinsic, Sin_Opr, Sinh_Opr, Size_Intrinsic, Spacing_Opr, Sqrt_Opr, SRK_Intrinsic, Stmt_Expansion_Opr, Stmt_Func_Call_Opr, STORAGE_WORD_SIZE, Struct_Construct_Opr, Struct_Opr, Structure, Subscript_Opr, Substring_Opr, Tan_Opr, Tanh_Opr, target_type_idx, the_cn_bit_offset, the_cn_idx, TRACE, Transfer_Intrinsic, Trim_Intrinsic, TRUE, TYP_BIT_LEN, TYP_IDX, TYP_LINEAR, TYP_TYPE, expr_semantics_args::type, expr_semantics_args::type_idx, Typeless, Ubound_Intrinsic, Uminus_Opr, Uplus_Opr, Verify_Opr, Whole_Subscript_Opr, and Whole_Substring_Opr.

Referenced by create_constructor_constant(), fold_aggragate_expression(), get_next_array_expr_element(), interpret_adjustl_intrinsic(), interpret_array_construct_opr(), interpret_binary_intrinsic_opr(), interpret_binary_opr(), interpret_concat_opr(), interpret_csmg_opr(), interpret_cvmgt_opr(), interpret_implied_do(), interpret_index_opr(), interpret_max_min_opr(), interpret_ref(), interpret_repeat_intrinsic(), interpret_reshape_intrinsic(), interpret_shape_intrinsic(), interpret_sik_intrinsic(), interpret_size_intrinsic(), interpret_srk_intrinsic(), interpret_struct_construct_opr(), interpret_transfer_intrinsic(), interpret_trim_intrinsic(), interpret_ubound_intrinsic(), interpret_unary_intrinsic_opr(), and interpret_unary_opr().

Here is the call graph for this function:

static boolean interpret_csmg_opr	(	int	ir_idx,
		expr_arg_type *	exp_desc,
		boolean	count,
		long64 *	element
	)		[static]

Definition at line 8064 of file s_cnstrct.c.

References expr_semantics_args::constant, COPY_OPND, COPY_SHAPE, Error, FALSE, fold_relationals(), folder_driver(), Func_Entry, Func_Exit, IL_IDX, IL_NEXT_LIST_IDX, IL_OPND, interpret_constructor(), IR_COL_NUM, IR_IDX_L, IR_LINE_NUM, IR_OPR, IR_RANK, IR_TYPE_IDX, arg_desc_node::line, expr_semantics_args::linear_type, Ne_Opr, no_result_value, NULL, NULL_IDX, OPND_IDX, PRINTMSG(), expr_semantics_args::rank, result_value, expr_semantics_args::shape, TRACE, TRUE, TYP_LINEAR, TYP_TYPE, expr_semantics_args::type, and expr_semantics_args::type_idx.

Referenced by interpret_constructor().

Here is the call graph for this function:

static boolean interpret_cvmgt_opr	(	int	ir_idx,
		expr_arg_type *	exp_desc,
		boolean	count,
		long64 *	element
	)		[static]

Definition at line 8272 of file s_cnstrct.c.

References expr_semantics_args::constant, COPY_OPND, COPY_SHAPE, Error, FALSE, fold_relationals(), Func_Entry, Func_Exit, IL_IDX, IL_NEXT_LIST_IDX, IL_OPND, interpret_constructor(), IR_COL_NUM, IR_IDX_L, IR_LINE_NUM, IR_RANK, IR_TYPE_IDX, arg_desc_node::line, expr_semantics_args::linear_type, Ne_Opr, no_result_value, NULL, NULL_IDX, OPND_IDX, PRINTMSG(), expr_semantics_args::rank, result_value, expr_semantics_args::shape, THIS_IS_TRUE, TRACE, TRUE, TYP_LINEAR, TYP_TYPE, expr_semantics_args::type, and expr_semantics_args::type_idx.

Referenced by interpret_constructor().

Here is the call graph for this function:

static boolean interpret_implied_do	(	int	ir_idx,
		expr_arg_type *	exp_desc,
		boolean	count,
		long64 *	element
	)		[static]

Definition at line 2205 of file s_cnstrct.c.

References AT_REFERENCED, ATD_FLD, ATD_TMP_IDX, ATD_TYPE_IDX, C_INT_TO_CN, CG_INTEGER_DEFAULT_TYPE, char_result_len, char_result_offset, Character, CN_CONST, CN_INT_TO_C, CN_INTEGER_ONE_IDX, CN_INTEGER_ZERO_IDX, CN_POOL_IDX, CN_Tbl_Idx, CN_TYPE_IDX, expr_semantics_args::constant, COPY_OPND, CP_CONSTANT, Cvrt_Opr, Div_Opr, Eq_Opr, Error, FALSE, find_opnd_line_and_column(), opnd_entry::fld, folder_driver(), FREE_IR_LIST_NODE, Func_Entry, Func_Exit, Ge_Opr, GET_LCV_CONST, opnd_entry::idx, IL_COL_NUM, IL_ELEMENT, IL_FLD, IL_IDX, IL_LINE_NUM, IL_LIST_CNT, IL_NEXT_LIST_IDX, IL_OPND, IL_Tbl_Idx, increment_count(), Internal, interpret_constructor(), IR_ARRAY_SYNTAX, IR_COL_NUM, IR_IDX_L, IR_IDX_R, IR_LINE_NUM, IR_Tbl_Idx, L, Le_Opr, arg_desc_node::line, expr_semantics_args::linear_type, Lt_Opr, Minus_Opr, Not_Referenced, ntr_const_tbl(), NTR_IR_LIST_TBL, NULL, NULL_IDX, num_host_wds, OPND_FLD, OPND_IDX, Plus_Opr, PRINTMSG(), expr_semantics_args::rank, result_value, SET_LCV_CONST, expr_semantics_args::shape, THIS_IS_TRUE, TRACE, TRUE, TYP_LINEAR, expr_semantics_args::type, expr_semantics_args::type_idx, unequal_char_lens, and write_constant().

Referenced by interpret_constructor().

Here is the call graph for this function:

static boolean interpret_index_opr	(	int	ir_idx,
		expr_arg_type *	exp_desc,
		boolean	count,
		long64 *	element
	)		[static]

Definition at line 8476 of file s_cnstrct.c.

References C_INT_TO_CN, CG_INTEGER_DEFAULT_TYPE, char_result_buffer, char_result_len, char_result_offset, Character, CHARACTER_DEFAULT_TYPE, CLEAR_TBL_NTRY, CN_Tbl_Idx, Const_Len_Char, expr_semantics_args::constant, COPY_OPND, COPY_SHAPE, Error, FALSE, fold_relationals(), folder_driver(), Func_Entry, Func_Exit, IL_IDX, IL_NEXT_LIST_IDX, IL_OPND, interpret_constructor(), IR_COL_NUM, IR_IDX_L, IR_LINE_NUM, IR_OPR, IR_RANK, IR_TYPE_IDX, arg_desc_node::line, expr_semantics_args::linear_type, LOGICAL_DEFAULT_TYPE, Ne_Opr, no_result_value, ntr_type_tbl(), NULL, NULL_IDX, OPND_IDX, PRINTMSG(), expr_semantics_args::rank, result_value, expr_semantics_args::shape, TRACE, TRUE, TYP_CHAR_CLASS, TYP_FLD, TYP_IDX, TYP_LINEAR, TYP_TYPE, TYP_WORK_IDX, expr_semantics_args::type, expr_semantics_args::type_idx, and type_tbl.

Referenced by interpret_constructor().

Here is the call graph for this function:

static boolean interpret_max_min_opr	(	int	ir_idx,
		expr_arg_type *	exp_desc,
		boolean	count,
		long64 *	element
	)		[static]

Definition at line 7833 of file s_cnstrct.c.

References expr_semantics_args::constant, COPY_OPND, COPY_SHAPE, Cvrt_Opr, Error, FALSE, fold_relationals(), folder_driver(), Func_Entry, Func_Exit, Gt_Opr, IL_IDX, IL_NEXT_LIST_IDX, IL_OPND, interpret_constructor(), IR_COL_NUM, IR_IDX_L, IR_LINE_NUM, IR_OPR, IR_RANK, IR_TYPE_IDX, arg_desc_node::line, expr_semantics_args::linear_type, Lt_Opr, Max_Opr, Ne_Opr, no_result_value, NULL, NULL_IDX, OPND_IDX, PRINTMSG(), expr_semantics_args::rank, result_value, expr_semantics_args::shape, THIS_IS_TRUE, TRACE, TRUE, TYP_LINEAR, TYP_TYPE, expr_semantics_args::type, and expr_semantics_args::type_idx.

Referenced by interpret_constructor().

Here is the call graph for this function:

static boolean interpret_ref	(	opnd_type *	top_opnd,
		expr_arg_type *	exp_desc,
		boolean	count,
		long64 *	element
	)		[static]

Definition at line 3315 of file s_cnstrct.c.

References ATD_ARRAY_IDX, ATD_CPNT_OFFSET_IDX, ATD_FLD, ATD_TMP_IDX, ATD_TYPE_IDX, ATT_CHAR_SEQ, ATT_STRUCT_BIT_LEN_IDX, BD_LB_IDX, BD_RANK, BD_SM_IDX, C_INT_TO_CN, CG_INTEGER_DEFAULT_TYPE, arg_desc_node::char_len, char_result_buffer, char_result_buffer_len, char_result_len, char_result_offset, Character, CN_CONST, CN_INT_TO_C, CN_POOL_IDX, CN_Tbl_Idx, CN_TYPE_IDX, compare_cn_and_value(), Complex, Complex_4, expr_semantics_args::constant, COPY_OPND, CP_CONSTANT, enlarge_char_result_buffer(), F_INT_TO_C, FALSE, find_base_attr(), find_left_attr(), opnd_entry::fld, expr_semantics_args::foldable, folder_driver(), FREE_IR_LIST_NODE, Func_Entry, Func_Exit, opnd_entry::idx, IL_ELEMENT, IL_FLD, IL_IDX, IL_LIST_CNT, IL_NEXT_LIST_IDX, IL_OPND, IL_PE_SUBSCRIPT, IL_PREV_LIST_IDX, IL_Tbl_Idx, IL_VECTOR_SUBSCRIPT, Integer, Integer_8, Internal, interpret_constructor(), IR_COL_NUM, IR_FLD_R, IR_IDX_L, IR_IDX_R, IR_LINE_NUM, IR_LIST_CNT_R, IR_OPND_L, IR_OPR, IR_RANK, IR_Tbl_Idx, IR_TYPE_IDX, L, Le_Opr, arg_desc_node::line, expr_semantics_args::linear_type, Logical, Minus_Opr, Mult_Opr, no_result_value, NO_Tbl_Idx, NTR_IR_LIST_TBL, NULL, NULL_IDX, OPND_FLD, OPND_IDX, PRINTMSG(), arg_desc_node::rank, expr_semantics_args::rank, Real, result_value, Section_Subscript_Opr, expr_semantics_args::shape, Short_Char_Const, sm_unit_in_bits(), storage_bit_size_tbl, Struct_Opr, Structure, Subscript_Opr, substring_offset, the_cn_bit_offset, the_cn_idx, TRACE, Triplet_Opr, TRUE, TYP_BIT_LEN, TYP_IDX, TYP_LINEAR, TYP_TYPE, expr_semantics_args::type, expr_semantics_args::type_idx, Typeless, Whole_Subscript_Opr, and write_constant().

Referenced by interpret_constructor().

Here is the call graph for this function:

static boolean interpret_repeat_intrinsic	(	int	ir_idx,
		expr_arg_type *	exp_desc,
		boolean	count,
		long64 *	element
	)		[static]

Definition at line 6097 of file s_cnstrct.c.

References arg_info_list, CG_INTEGER_DEFAULT_TYPE, char_result_buffer, char_result_buffer_len, char_result_len, char_result_offset, expr_semantics_args::constant, COPY_OPND, copy_subtree(), enlarge_char_result_buffer(), F_INT_TO_C, FALSE, Func_Entry, Func_Exit, IL_ARG_DESC_IDX, IL_NEXT_LIST_IDX, IL_OPND, interpret_constructor(), IR_COL_NUM_R, IR_IDX_R, IR_LINE_NUM_R, IR_OPND_L, IR_OPND_R, IR_OPR, IR_Tbl_Idx, IR_TYPE_IDX, expr_semantics_args::linear_type, Mult_Opr, NTR_IR_TBL, NULL, OPND_FLD, OPND_IDX, result_value, stmt_start_col, stmt_start_line, TRACE, TRUE, TYP_LINEAR, TYP_TYPE, expr_semantics_args::type, and expr_semantics_args::type_idx.

Referenced by interpret_constructor().

Here is the call graph for this function:

static boolean interpret_reshape_intrinsic	(	int	ir_idx,
		expr_arg_type *	exp_desc,
		boolean	count,
		long64 *	element
	)		[static]

Definition at line 6528 of file s_cnstrct.c.

References arg_info_list, AT_SEMANTICS_DONE, AT_Tbl_Idx, ATD_ARRAY_IDX, ATD_FLD, ATD_STOR_BLK_IDX, ATD_TMP_IDX, ATD_TYPE_IDX, int_dope_entry::base_addr, C_INT_TO_CN, CG_INTEGER_DEFAULT_TYPE, char_len_in_bytes, Character, check_type_conversion, CLEAR_TBL_NTRY, CN_Tbl_Idx, expr_semantics_args::constant, COPY_OPND, create_bd_ntry_for_const(), curr_scp_idx, int_dope_entry::dim, do_constructor_init, arg_strct::ed, int_dope_entry::el_len, int_dope_entry::extent, FALSE, opnd_entry::fld, folder_driver(), FREE_IR_LIST_NODE, Func_Entry, Func_Exit, gen_compiler_tmp(), gen_internal_dope_vector(), gen_whole_subscript(), gen_whole_substring(), opnd_entry::idx, IL_ARG_DESC_IDX, IL_FLD, IL_NEXT_LIST_IDX, IL_OPND, init_target_opnd, interpret_constructor(), IR_COL_NUM, IR_IDX_R, IR_LINE_NUM, IR_LIST_CNT_R, IR_TYPE_IDX, arg_desc_node::line, expr_semantics_args::linear_type, Long_Typeless, NO_Tbl_Idx, ntr_const_tbl(), NTR_IR_LIST_TBL, ntr_type_tbl(), NULL, null_opnd, int_dope_entry::num_dims, OPND_COL_NUM, OPND_FLD, OPND_IDX, OPND_LINE_NUM, expr_semantics_args::rank, Reshape_Opr, RESTORE_ENV, result_value, SAVE_ENV, SCP_SB_STATIC_IDX, expr_semantics_args::shape, Shared, TRACE, TRUE, TYP_BIT_LEN, TYP_LINEAR, TYP_TYPE, TYP_WORK_IDX, expr_semantics_args::type, expr_semantics_args::type_idx, type_tbl, and Typeless.

Referenced by interpret_constructor().

Here is the call graph for this function:

static boolean interpret_shape_intrinsic	(	int	ir_idx,
		expr_arg_type *	exp_desc,
		boolean	count,
		long64 *	element
	)		[static]

Definition at line 7043 of file s_cnstrct.c.

References arg_info_list, C_INT_TO_CN, CG_INTEGER_DEFAULT_TYPE, CN_Tbl_Idx, expr_semantics_args::constant, COPY_OPND, arg_strct::ed, FALSE, opnd_entry::fld, Func_Entry, Func_Exit, opnd_entry::idx, IL_ARG_DESC_IDX, interpret_constructor(), IR_IDX_R, IR_TYPE_IDX, expr_semantics_args::linear_type, NULL, expr_semantics_args::rank, expr_semantics_args::shape, TRACE, TRUE, TYP_LINEAR, TYP_TYPE, expr_semantics_args::type, expr_semantics_args::type_idx, and write_constant().

Referenced by interpret_constructor().

Here is the call graph for this function:

static boolean interpret_sik_intrinsic	(	int	ir_idx,
		expr_arg_type *	exp_desc,
		boolean	count,
		long64 *	element
	)		[static]

Definition at line 7129 of file s_cnstrct.c.

References C_TO_F_INT, expr_semantics_args::constant, COPY_OPND, F_INT_TO_C, Func_Entry, Func_Exit, IL_OPND, interpret_constructor(), IR_IDX_R, IR_TYPE_IDX, expr_semantics_args::linear_type, NULL, RANGE_INT2_F90, RANGE_INT4_F90, RANGE_INT8_F90, result_value, TRACE, TRUE, TYP_LINEAR, TYP_TYPE, expr_semantics_args::type, and expr_semantics_args::type_idx.

Referenced by interpret_constructor().

Here is the call graph for this function:

static boolean interpret_size_intrinsic	(	int	ir_idx,
		expr_arg_type *	exp_desc,
		boolean	count,
		long64 *	element
	)		[static]

Definition at line 6835 of file s_cnstrct.c.

References arg_info_list, C_TO_F_INT, CG_INTEGER_DEFAULT_TYPE, CN_CONST, CN_INTEGER_ZERO_IDX, expr_semantics_args::constant, COPY_OPND, arg_strct::ed, F_INT_TO_C, FALSE, folder_driver(), Func_Entry, Func_Exit, IL_ARG_DESC_IDX, Integer_8, interpret_constructor(), IR_COL_NUM, IR_IDX_R, IR_LINE_NUM, IR_TYPE_IDX, Le_Opr, expr_semantics_args::linear_type, NULL, expr_semantics_args::rank, result_value, expr_semantics_args::shape, THIS_IS_TRUE, TRACE, TRUE, TYP_LINEAR, TYP_TYPE, expr_semantics_args::type, and expr_semantics_args::type_idx.

Referenced by interpret_constructor().

Here is the call graph for this function:

static boolean interpret_srk_intrinsic	(	int	ir_idx,
		expr_arg_type *	exp_desc,
		boolean	count,
		long64 *	element
	)		[static]

Definition at line 7217 of file s_cnstrct.c.

References expr_semantics_args::constant, COPY_OPND, folder_driver(), Func_Entry, Func_Exit, IL_IDX, IL_NEXT_LIST_IDX, IL_OPND, interpret_constructor(), IR_COL_NUM, IR_IDX_R, IR_LINE_NUM, IR_TYPE_IDX, expr_semantics_args::linear_type, NULL, NULL_IDX, result_value, SRK_Opr, TRACE, TRUE, TYP_LINEAR, TYP_TYPE, expr_semantics_args::type, and expr_semantics_args::type_idx.

Referenced by interpret_constructor().

Here is the call graph for this function:

static boolean interpret_struct_construct_opr	(	int	ir_idx,
		expr_arg_type *	exp_desc,
		boolean	count,
		long64 *	element
	)		[static]

Definition at line 4869 of file s_cnstrct.c.

References ATD_ARRAY_IDX, ATD_CPNT_OFFSET_IDX, ATD_TYPE_IDX, ATT_FIRST_CPNT_IDX, ATT_STRUCT_BIT_LEN_IDX, bcast_cn_bit_offset, BD_ARRAY_CLASS, BD_LEN_IDX, BD_RANK, BD_XT_IDX, bits_in_constructor, save_env_entry::bits_in_constructor, broadcast_scalar(), char_result_offset, Character, Character_1, save_env_entry::check_type_conversion, check_type_conversion, CN_INT_TO_C, compare_cn_and_value(), Complex, expr_semantics_args::constant, COPY_OPND, Deferred_Shape, Eq_Opr, Error, FALSE, find_opnd_line_and_column(), fold_relationals(), Func_Entry, Func_Exit, opnd_entry::idx, IL_FLD, IL_IDX, IL_NEXT_LIST_IDX, IL_OPND, Integer, interpret_constructor(), IR_ARRAY_SYNTAX, IR_IDX_L, IR_IDX_R, IR_Tbl_Idx, IR_TYPE_IDX, expr_semantics_args::linear_type, Logical, Ne_Opr, NULL, PRINTMSG(), expr_semantics_args::rank, Real, expr_semantics_args::shape, SN_ATTR_IDX, SN_SIBLING_LINK, save_env_entry::target_char_len_idx, target_char_len_idx, save_env_entry::target_type_idx, target_type_idx, the_cn_bit_offset, TRACE, TRUE, TYP_IDX, TYP_LINEAR, TYP_TYPE, expr_semantics_args::type, expr_semantics_args::type_idx, and write_constant().

Referenced by interpret_constructor().

Here is the call graph for this function:

static boolean interpret_transfer_intrinsic	(	int	ir_idx,
		expr_arg_type *	exp_desc,
		boolean	count,
		long64 *	element
	)		[static]

Definition at line 6228 of file s_cnstrct.c.

References arg_info_list, AT_SEMANTICS_DONE, AT_Tbl_Idx, ATD_ARRAY_IDX, ATD_FLD, ATD_STOR_BLK_IDX, ATD_TMP_IDX, ATD_TYPE_IDX, int_dope_entry::base_addr, bits_in_constructor, save_env_entry::bits_in_constructor, C_INT_TO_CN, CG_INTEGER_DEFAULT_TYPE, char_len_in_bytes, char_result_len, Character, check_type_conversion, CLEAR_TBL_NTRY, CN_Tbl_Idx, expr_semantics_args::constant, COPY_OPND, create_bd_ntry_for_const(), curr_scp_idx, int_dope_entry::dim, do_constructor_init, arg_strct::ed, int_dope_entry::el_len, int_dope_entry::extent, FALSE, opnd_entry::fld, folder_driver(), FREE_IR_LIST_NODE, Func_Entry, Func_Exit, gen_compiler_tmp(), gen_internal_dope_vector(), gen_whole_subscript(), gen_whole_substring(), opnd_entry::idx, IL_ARG_DESC_IDX, IL_FLD, IL_NEXT_LIST_IDX, IL_OPND, increment_count(), init_target_opnd, interpret_constructor(), IR_COL_NUM, IR_IDX_R, IR_LINE_NUM, IR_LIST_CNT_R, IR_TYPE_IDX, arg_desc_node::line, expr_semantics_args::linear_type, Long_Typeless, NO_Tbl_Idx, ntr_const_tbl(), NTR_IR_LIST_TBL, ntr_type_tbl(), NULL, null_opnd, int_dope_entry::num_dims, OPND_COL_NUM, OPND_FLD, OPND_IDX, OPND_LINE_NUM, expr_semantics_args::rank, RESTORE_ENV, result_value, SAVE_ENV, SCP_SB_STATIC_IDX, expr_semantics_args::shape, Shared, TRACE, Transfer_Opr, TRUE, TYP_BIT_LEN, TYP_LINEAR, TYP_TYPE, TYP_WORK_IDX, expr_semantics_args::type, expr_semantics_args::type_idx, type_tbl, and Typeless.

Referenced by interpret_constructor().

Here is the call graph for this function:

static boolean interpret_trim_intrinsic	(	int	ir_idx,
		expr_arg_type *	exp_desc,
		boolean	count,
		long64 *	element
	)		[static]

Definition at line 5892 of file s_cnstrct.c.

References CG_INTEGER_DEFAULT_TYPE, char_result_buffer, char_result_len, char_result_offset, expr_semantics_args::constant, COPY_OPND, copy_subtree(), F_INT_TO_C, FALSE, Func_Entry, Func_Exit, IL_OPND, interpret_constructor(), IR_IDX_R, IR_OPND_L, IR_OPR, IR_Tbl_Idx, IR_TYPE_IDX, Len_Trim_Opr, expr_semantics_args::linear_type, NTR_IR_TBL, NULL, OPND_FLD, OPND_IDX, result_value, TRACE, TRUE, TYP_LINEAR, TYP_TYPE, expr_semantics_args::type, and expr_semantics_args::type_idx.

Referenced by interpret_constructor().

Here is the call graph for this function:

static boolean interpret_ubound_intrinsic	(	int	ir_idx,
		expr_arg_type *	exp_desc,
		boolean	count,
		long64 *	element
	)		[static]

Definition at line 6935 of file s_cnstrct.c.

References arg_info_list, C_INT_TO_CN, C_TO_F_INT, CG_INTEGER_DEFAULT_TYPE, CN_CONST, CN_INTEGER_ZERO_IDX, CN_Tbl_Idx, expr_semantics_args::constant, COPY_OPND, arg_strct::ed, FALSE, opnd_entry::fld, folder_driver(), Func_Entry, Func_Exit, opnd_entry::idx, IL_ARG_DESC_IDX, interpret_constructor(), IR_COL_NUM, IR_IDX_R, IR_LINE_NUM, IR_TYPE_IDX, Le_Opr, expr_semantics_args::linear_type, NULL, expr_semantics_args::rank, result_value, expr_semantics_args::shape, THIS_IS_TRUE, TRACE, TRUE, TYP_LINEAR, TYP_TYPE, expr_semantics_args::type, expr_semantics_args::type_idx, and write_constant().

Referenced by interpret_constructor().

Here is the call graph for this function:

static boolean interpret_unary_intrinsic_opr	(	int	ir_idx,
		expr_arg_type *	exp_desc,
		boolean	count,
		long64 *	element
	)		[static]

Definition at line 7352 of file s_cnstrct.c.

References Adjustl_Opr, Adjustr_Opr, C_INT_TO_CN, C_TO_F_INT, CG_INTEGER_DEFAULT_TYPE, Char_Opr, char_result_buffer, char_result_buffer_len, char_result_len, char_result_offset, Character, CHARACTER_DEFAULT_TYPE, CLEAR_TBL_NTRY, CN_Tbl_Idx, Const_Len_Char, expr_semantics_args::constant, COPY_OPND, enlarge_char_result_buffer(), F_INT_TO_C, FALSE, folder_driver(), Func_Entry, Func_Exit, Ichar_Opr, IL_OPND, IL_Tbl_Idx, interpret_constructor(), IR_COL_NUM, IR_FLD_L, IR_IDX_L, IR_LINE_NUM, IR_OPND_L, IR_OPR, IR_RANK, IR_TYPE_IDX, Len_Trim_Opr, arg_desc_node::line, expr_semantics_args::linear_type, no_result_value, ntr_type_tbl(), NULL, NULL_IDX, OPND_COL_NUM, OPND_FLD, OPND_IDX, OPND_LINE_NUM, result_value, TRACE, TRUE, TYP_CHAR_CLASS, TYP_FLD, TYP_IDX, TYP_LINEAR, TYP_TYPE, TYP_WORK_IDX, expr_semantics_args::type, expr_semantics_args::type_idx, and type_tbl.

Referenced by interpret_constructor().

Here is the call graph for this function:

static boolean interpret_unary_opr	(	int	ir_idx,
		expr_arg_type *	exp_desc,
		boolean	count,
		long64 *	element
	)		[static]

Definition at line 5410 of file s_cnstrct.c.

References expr_semantics_args::constant, COPY_OPND, folder_driver(), Func_Entry, Func_Exit, IL_OPND, IL_Tbl_Idx, interpret_constructor(), IR_COL_NUM, IR_FLD_L, IR_IDX_L, IR_LINE_NUM, IR_OPND_L, IR_OPR, IR_RANK, IR_TYPE_IDX, arg_desc_node::line, expr_semantics_args::linear_type, no_result_value, NULL, NULL_IDX, result_value, TRACE, TRUE, TYP_LINEAR, TYP_TYPE, expr_semantics_args::type, expr_semantics_args::type_idx, and Uplus_Opr.

Referenced by interpret_constructor().

Here is the call graph for this function:

static void write_constant

(

int

type_idx

)

[static]

Definition at line 1990 of file s_cnstrct.c.

References char_result_buffer, char_result_len, char_result_offset, Character, Character_1, check_type_conversion, CN_CONST, CN_INT_TO_C, CN_POOL_IDX, Complex, Complex_4, dump_flags_entry::constant_bits, CP_CONSTANT, Cvrt_Opr, dump_flags, folder_driver(), Func_Entry, Func_Exit, Integer, Logical, no_result_value, NULL, NULL_IDX, Real, result_value, stmt_start_col, stmt_start_line, storage_bit_size_tbl, Structure, target_char_len_idx, target_type_idx, the_cn_bit_offset, the_cn_idx, TRACE, TYP_BIT_LEN, TYP_LINEAR, TYP_TYPE, Typeless, and write.

Referenced by fold_aggragate_expression(), interpret_array_construct_opr(), interpret_implied_do(), interpret_ref(), interpret_shape_intrinsic(), interpret_struct_construct_opr(), and interpret_ubound_intrinsic().

Here is the call graph for this function:

---

Variable Documentation

char USMID[] = "\n@(#)5.0_pl/sources/s_cnstrct.c 5.6 09/29/99 00:38:21\n" [static]

Definition at line 37 of file s_cnstrct.c.