init2f.cxx File Reference

#include "whirl2f_common.h"
#include "PUinfo.h"
#include "st2f.h"
#include "wn2f.h"
#include "ty2f.h"
#include "tcon2f.h"
#include "init2f.h"

Include dependency graph for init2f.cxx:

Go to the source code of this file.

Classes
struct	Array_Segment
Defines
#define	OFFSET_IS_IN_FLD(fld, ofst)
Typedefs
typedef struct Array_Segment	ARRAY_SEGMENT
Functions
static void	Set_Tcon_Value (TCON *tcon, MTYPE mtype, INT typesize, char *bytes)
static void	INIT2F_Prepend_Equivalence (TOKEN_BUFFER tokens, TOKEN_BUFFER name1_tokens, UINT tmpvar_idx)
static void	INIT2F_Append_Initializer (TOKEN_BUFFER tokens, TOKEN_BUFFER *init_tokens, INT repeat)
static UINT16	INIT2F_choose_repeat (const INITV &initv)
static void	INIT2F_Next_Initv (const INITV &initv, UINT *initv_idx, UINT *initv_times)
static void	INIT2F_Skip_Padding (INITV_IDX *initv_array, TY_IDX object_ty, STAB_OFFSET *ofst, UINT *initv_idx)
static UINT	INIT2F_Number_Of_Initvs (INITV_IDX initv)
static void	INIT2F_Collect_Initvs (INITV_IDX *initv_array, UINT *initv_idx, INITV_IDX initv)
static INITV_IDX *	INIT2F_Get_Initv_Array (ST *st, INITO_IDX first_inito)
static TY_IDX	INITVKIND_ty (INITV_IDX initv_idx)
static void	INITVKIND_symoff (TOKEN_BUFFER tokens, INT repeat, ST *st, STAB_OFFSET ofst, TY_IDX object_ty)
static void	INITVKIND_val (TOKEN_BUFFER tokens, INT repeat, TCON *tcon, TY_IDX object_ty)
static void	INITVKIND_const (TOKEN_BUFFER tokens, INT repeat, const char **tbl, TY_IDX ty)
static void	INITVKIND_translate (TOKEN_BUFFER tokens, INITV_IDX initv_idx, TY_IDX object_ty, UINT repeat)
static void	INIT2F_Translate_Char_Ref (TOKEN_BUFFER tokens, ST *base_object, TY_IDX array_etype, STAB_OFFSET base_ofst, STAB_OFFSET array_ofst, STAB_OFFSET string_ofst, UINT string_size, WN2F_CONTEXT context)
static BOOL	INIT2F_is_string_initv (INITV &ini, TY_IDX ty)
static ARRAY_SEGMENT	INIT2F_Get_Array_Segment (INITV_IDX *initv_array, UINT *initv_idx, UINT *initv_times, TY_IDX object_type, STAB_OFFSET *object_ofst)
static void	INIT2F_Translate_Array_Value (TOKEN_BUFFER tokens, const ARRAY_SEGMENT *aseg)
static void	INIT2F_Implied_DoLoop (TOKEN_BUFFER tokens, TOKEN_BUFFER *abase_tokens, const ARRAY_SEGMENT *aseg)
static void	INIT2F_Translate_Array_Ref (TOKEN_BUFFER tokens, ST *base_object, STAB_OFFSET base_ofst, const ARRAY_SEGMENT *aseg)
static void	INIT2F_translate (TOKEN_BUFFER lhs_tokens, TOKEN_BUFFER rhs_tokens, ST *base_object, STAB_OFFSET base_ofst, STAB_OFFSET *object_ofst, TY_IDX object_ty, INITV_IDX *initv_array, UINT *initv_idx, UINT *initv_times)
static void	INIT2F_ptr_or_scalar (TOKEN_BUFFER lhs_tokens, TOKEN_BUFFER rhs_tokens, ST *base_object, STAB_OFFSET base_ofst, STAB_OFFSET *object_ofst, TY_IDX object_ty, INITV_IDX *initv_array, UINT *initv_idx, UINT *initv_times)
static void	INIT2F_array (TOKEN_BUFFER lhs_tokens, TOKEN_BUFFER rhs_tokens, ST *base_object, STAB_OFFSET base_ofst, STAB_OFFSET *object_ofst, TY_IDX object_ty, INITV_IDX *initv_array, UINT *initv_idx, UINT *initv_times)
static void	INIT2F_substring (TOKEN_BUFFER lhs_tokens, TOKEN_BUFFER rhs_tokens, ST *base_object, STAB_OFFSET base_ofst, STAB_OFFSET *object_ofst, TY_IDX object_ty, INITV_IDX *initv_array, UINT *initv_idx, UINT *initv_times)
static void	INIT2F_structured (TOKEN_BUFFER lhs_tokens, TOKEN_BUFFER rhs_tokens, ST *base_object, STAB_OFFSET *object_ofst, TY_IDX object_ty, INITV_IDX *initv_array, UINT *initv_idx, UINT *initv_times)
void	INITO2F_translate (TOKEN_BUFFER tokens, INITO_IDX inito)
void	PARAMETER2F_translate (TOKEN_BUFFER tokens, INITO_IDX inito)
Variables
TOKEN_BUFFER	Data_Stmt_Tokens
static const char *	one_consts [6] = { "1", ".TRUE.", "1_1", "1_2" , "1_4", "1_8"}
static const char *	zero_consts [6] = { "0", ".FALSE.","0_1", "0_2" , "0_4", "0_8"}

---

Define Documentation

#define OFFSET_IS_IN_FLD	(		fld,
			ofst
	)

Value:

(FLD_ofst(fld) == ofst || \
    (ofst > FLD_ofst(fld) && (ofst - FLD_ofst(fld) < TY_size(FLD_type(fld)))))

Definition at line 97 of file init2f.cxx.

Referenced by INIT2F_structured().

---

Typedef Documentation

typedef struct Array_Segment ARRAY_SEGMENT

---

Function Documentation

static void INIT2F_Append_Initializer	(	TOKEN_BUFFER	tokens,
		TOKEN_BUFFER *	init_tokens,
		INT	repeat
	)		[static]

Definition at line 236 of file init2f.cxx.

References Append_And_Reclaim_Token_List(), Append_Token_Special(), Is_Empty_Token_Buffer(), Number_as_String(), Prepend_Token_Special(), and Prepend_Token_String().

Referenced by INIT2F_ptr_or_scalar(), INIT2F_substring(), INIT2F_Translate_Array_Ref(), INITVKIND_const(), INITVKIND_symoff(), and INITVKIND_val().

Here is the call graph for this function:

static void INIT2F_array	(	TOKEN_BUFFER	lhs_tokens,
		TOKEN_BUFFER	rhs_tokens,
		ST *	base_object,
		STAB_OFFSET	base_ofst,
		STAB_OFFSET *	object_ofst,
		TY_IDX	object_ty,
		INITV_IDX *	initv_array,
		UINT *	initv_idx,
		UINT *	initv_times
	)		[static]

Definition at line 1095 of file init2f.cxx.

References ASSERT_DBG_FATAL, DIAG_W2F_UNEXPECTED_INITV, DIAG_W2F_UNEXPECTED_TYPE_KIND, INIT2F_Get_Array_Segment(), INIT2F_Skip_Padding(), INIT2F_Translate_Array_Ref(), INIT2F_Translate_Array_Value(), INITV_kind(), Initv_Table, INITV_tc_val(), INITVKIND_VAL, MTYPE_STRING, TCON_ty, TY_Is_Array(), TY_Is_Array_Of_Chars(), TY_is_character(), TY_kind(), and TY_size().

Referenced by INIT2F_translate().

Here is the call graph for this function:

static UINT16 INIT2F_choose_repeat

(

const INITV &

initv

)

[static]

Definition at line 255 of file init2f.cxx.

References INITV_kind(), INITV_repeat1(), INITV_repeat2(), INITVKIND_ONE, INITVKIND_VAL, and INITVKIND_ZERO.

Referenced by INIT2F_Collect_Initvs(), INIT2F_Get_Array_Segment(), INIT2F_Next_Initv(), INIT2F_Number_Of_Initvs(), INIT2F_Skip_Padding(), INIT2F_Translate_Array_Ref(), and INIT2F_Translate_Array_Value().

Here is the call graph for this function:

static void INIT2F_Collect_Initvs	(	INITV_IDX *	initv_array,
		UINT *	initv_idx,
		INITV_IDX	initv
	)		[static]

Definition at line 344 of file init2f.cxx.

References INIT2F_choose_repeat(), INITV_blk(), INITV_kind(), INITV_next(), Initv_Table, and INITVKIND_BLOCK.

Referenced by INIT2F_Get_Initv_Array().

Here is the call graph for this function:

static ARRAY_SEGMENT INIT2F_Get_Array_Segment	(	INITV_IDX *	initv_array,
		UINT *	initv_idx,
		UINT *	initv_times,
		TY_IDX	object_type,
		STAB_OFFSET *	object_ofst
	)		[static]

Definition at line 674 of file init2f.cxx.

References ASSERT_DBG_WARN, Array_Segment::atype, DIAG_W2F_UNEXPECTED_INITV, DIAG_W2F_UNEXPEXTED_NULL_PTR, Array_Segment::end_ofst, Array_Segment::etype, FALSE, Array_Segment::first_idx, Array_Segment::first_repeat, INIT2F_choose_repeat(), INIT2F_is_string_initv(), INIT2F_Next_Initv(), Array_Segment::initv_array, INITV_kind(), Initv_Table, INITV_tc_val(), INITVKIND_PAD, Array_Segment::last_idx, Array_Segment::last_repeat, Array_Segment::missing_padding, MTYPE_STRING, Array_Segment::num_initvs, Array_Segment::start_ofst, Targ_String_Length(), TCON_ty, TRUE, TY_AR_etype(), TY_is_character(), TY_size(), Ty_Table, and WN2F_F90_pu.

Referenced by INIT2F_array().

Here is the call graph for this function:

static INITV_IDX* INIT2F_Get_Initv_Array	(	ST *	st,
		INITO_IDX	first_inito
	)		[static]

Definition at line 361 of file init2f.cxx.

References FOREACH_INITO, INIT2F_Collect_Initvs(), INIT2F_Number_Of_Initvs(), INITO_st(), Inito_Table, INITO_val(), ST_level(), and TYPE_ALLOC_N.

Referenced by INITO2F_translate(), and PARAMETER2F_translate().

Here is the call graph for this function:

static void INIT2F_Implied_DoLoop	(	TOKEN_BUFFER	tokens,
		TOKEN_BUFFER *	abase_tokens,
		const ARRAY_SEGMENT *	aseg
	)		[static]

Definition at line 805 of file init2f.cxx.

References Append_And_Reclaim_Token_List(), Append_Token_Special(), Append_Token_String(), ARB_lbnd_val(), ARB_ubnd_val(), Array_Segment::atype, Current_Indentation(), Array_Segment::end_ofst, Array_Segment::etype, FALSE, Host_To_Targ(), INIT2F_Prepend_Equivalence(), MTYPE_I4, MTYPE_I8, New_Token_Buffer(), Number_as_String(), PUinfo_local_decls_indent, Reclaim_Token_Buffer(), Set_Current_Indentation(), ST2F_Declare_Tempvar(), Stab_Array_Of(), Stab_Lock_Tmpvar(), Stab_Mtype_To_Ty(), Stab_Unlock_Tmpvar(), Array_Segment::start_ofst, TCON2F_translate(), TY_AR_ndims(), TY_arb(), TY_size(), and W2CF_Symtab_Nameof_Tempvar().

Referenced by INIT2F_Translate_Array_Ref().

Here is the call graph for this function:

static BOOL INIT2F_is_string_initv	(	INITV &	ini,
		TY_IDX	ty
	)		[static]

Definition at line 659 of file init2f.cxx.

References FALSE, INITV_kind(), INITV_tc_val(), INITVKIND_VAL, MTYPE_STRING, Targ_String_Length(), TCON_ty, and TY_size().

Referenced by INIT2F_Get_Array_Segment(), and INIT2F_Translate_Array_Ref().

Here is the call graph for this function:

static void INIT2F_Next_Initv	(	const INITV &	initv,
		UINT *	initv_idx,
		UINT *	initv_times
	)		[static]

Definition at line 276 of file init2f.cxx.

References INIT2F_choose_repeat().

Referenced by INIT2F_Get_Array_Segment(), INIT2F_ptr_or_scalar(), INIT2F_substring(), and INIT2F_Translate_Array_Ref().

Here is the call graph for this function:

static UINT INIT2F_Number_Of_Initvs

(

INITV_IDX

initv

)

[static]

Definition at line 321 of file init2f.cxx.

References INIT2F_choose_repeat(), INITV_blk(), INITV_kind(), INITV_next(), Initv_Table, and INITVKIND_BLOCK.

Referenced by INIT2F_Get_Initv_Array().

Here is the call graph for this function:

static void INIT2F_Prepend_Equivalence	(	TOKEN_BUFFER	tokens,
		TOKEN_BUFFER	name1_tokens,
		UINT	tmpvar_idx
	)		[static]

Definition at line 216 of file init2f.cxx.

References NULL, Prepend_And_Copy_Token_List(), Prepend_F77_Indented_Newline(), Prepend_Token_Special(), Prepend_Token_String(), and W2CF_Symtab_Nameof_Tempvar().

Referenced by INIT2F_Implied_DoLoop().

Here is the call graph for this function:

static void INIT2F_ptr_or_scalar	(	TOKEN_BUFFER	lhs_tokens,
		TOKEN_BUFFER	rhs_tokens,
		ST *	base_object,
		STAB_OFFSET	base_ofst,
		STAB_OFFSET *	object_ofst,
		TY_IDX	object_ty,
		INITV_IDX *	initv_array,
		UINT *	initv_idx,
		UINT *	initv_times
	)		[static]

Definition at line 1048 of file init2f.cxx.

References ASSERT_DBG_WARN, DIAG_W2F_UNEXPEXTED_OFFSET, INIT2F_Append_Initializer(), INIT2F_Next_Initv(), INIT_WN2F_CONTEXT, Initv_Table, INITVKIND_translate(), New_Token_Buffer(), ST_type(), Stab_Pointer_To(), TY_size(), and WN2F_Offset_Symref().

Referenced by INIT2F_translate().

Here is the call graph for this function:

static void INIT2F_Skip_Padding	(	INITV_IDX *	initv_array,
		TY_IDX	object_ty,
		STAB_OFFSET *	ofst,
		UINT *	initv_idx
	)		[static]

Definition at line 297 of file init2f.cxx.

References INIT2F_choose_repeat(), INITV_kind(), INITV_pad(), Initv_Table, INITVKIND_PAD, and TY_size().

Referenced by INIT2F_array(), INIT2F_structured(), and INIT2F_substring().

Here is the call graph for this function:

static void INIT2F_structured	(	TOKEN_BUFFER	lhs_tokens,
		TOKEN_BUFFER	rhs_tokens,
		ST *	base_object,
		STAB_OFFSET *	object_ofst,
		TY_IDX	object_ty,
		INITV_IDX *	initv_array,
		UINT *	initv_idx,
		UINT *	initv_times
	)		[static]

Definition at line 1230 of file init2f.cxx.

References ASSERT_DBG_FATAL, DIAG_W2F_UNEXPECTED_TYPE_KIND, Fld_Path_Info::fld, FLD_last_field(), FLD_ofst(), FLD_type(), INIT2F_Skip_Padding(), INIT2F_translate(), INITVKIND_ty(), FLD_HANDLE::Is_Null(), Make_fld_iter(), NULL, OFFSET_IS_IN_FLD, TY2F_Free_Fld_Path(), TY2F_Get_Fld_Path(), TY_fld(), TY_Is_Structured(), TY_kind(), TY_size(), and Ty_Table.

Referenced by INIT2F_translate().

Here is the call graph for this function:

static void INIT2F_substring	(	TOKEN_BUFFER	lhs_tokens,
		TOKEN_BUFFER	rhs_tokens,
		ST *	base_object,
		STAB_OFFSET	base_ofst,
		STAB_OFFSET *	object_ofst,
		TY_IDX	object_ty,
		INITV_IDX *	initv_array,
		UINT *	initv_idx,
		UINT *	initv_times
	)		[static]

Definition at line 1173 of file init2f.cxx.

References ASSERT_DBG_FATAL, DIAG_W2F_UNEXPECTED_TYPE_KIND, INIT2F_Append_Initializer(), INIT2F_Next_Initv(), INIT2F_Skip_Padding(), INIT2F_Translate_Char_Ref(), INIT_WN2F_CONTEXT, Initv_Table, INITV_tc_val(), INITVKIND_translate(), New_Token_Buffer(), Targ_String_Length(), TY_Is_Array_Of_Chars(), TY_Is_String(), TY_kind(), and TY_size().

Referenced by INIT2F_translate().

Here is the call graph for this function:

static void INIT2F_translate	(	TOKEN_BUFFER	lhs_tokens,
		TOKEN_BUFFER	rhs_tokens,
		ST *	base_object,
		STAB_OFFSET	base_ofst,
		STAB_OFFSET *	object_ofst,
		TY_IDX	object_ty,
		INITV_IDX *	initv_array,
		UINT *	initv_idx,
		UINT *	initv_times
	)		[static]

Definition at line 1317 of file init2f.cxx.

References ASSERT_DBG_WARN, DIAG_W2F_UNEXPECTED_SYMBOL, FALSE, INIT2F_array(), INIT2F_ptr_or_scalar(), INIT2F_structured(), INIT2F_substring(), TY_Is_Array(), TY_is_character(), TY_Is_Pointer_Or_Scalar(), TY_Is_Structured(), and Ty_Table.

Referenced by INIT2F_structured(), INITO2F_translate(), and PARAMETER2F_translate().

Here is the call graph for this function:

static void INIT2F_Translate_Array_Ref	(	TOKEN_BUFFER	tokens,
		ST *	base_object,
		STAB_OFFSET	base_ofst,
		const ARRAY_SEGMENT *	aseg
	)		[static]

Definition at line 911 of file init2f.cxx.

References Append_And_Copy_Token_List(), Array_Segment::atype, Array_Segment::end_ofst, Array_Segment::etype, Array_Segment::first_idx, Array_Segment::first_repeat, INIT2F_Append_Initializer(), INIT2F_choose_repeat(), INIT2F_Implied_DoLoop(), INIT2F_is_string_initv(), INIT2F_Next_Initv(), INIT2F_Translate_Char_Ref(), INIT_WN2F_CONTEXT, Array_Segment::initv_array, Initv_Table, INITV_tc_val(), Array_Segment::missing_padding, New_Token_Buffer(), Array_Segment::num_initvs, Reclaim_Token_Buffer(), ST_type(), Stab_Pointer_To(), Array_Segment::start_ofst, Targ_String_Length(), TY2F_Translate_ArrayElt(), TY_size(), and WN2F_Offset_Symref().

Referenced by INIT2F_array().

Here is the call graph for this function:

static void INIT2F_Translate_Array_Value	(	TOKEN_BUFFER	tokens,
		const ARRAY_SEGMENT *	aseg
	)		[static]

Definition at line 782 of file init2f.cxx.

References Array_Segment::etype, Array_Segment::first_idx, Array_Segment::first_repeat, INIT2F_choose_repeat(), Array_Segment::initv_array, Initv_Table, INITVKIND_translate(), Array_Segment::last_idx, and Array_Segment::last_repeat.

Referenced by INIT2F_array().

Here is the call graph for this function:

static void INIT2F_Translate_Char_Ref	(	TOKEN_BUFFER	tokens,
		ST *	base_object,
		TY_IDX	array_etype,
		STAB_OFFSET	base_ofst,
		STAB_OFFSET	array_ofst,
		STAB_OFFSET	string_ofst,
		UINT	string_size,
		WN2F_CONTEXT	context
	)		[static]

Definition at line 600 of file init2f.cxx.

References Append_Token_Special(), Append_Token_String(), Number_as_String(), ST_type(), Stab_Pointer_To(), TY_size(), and WN2F_Offset_Symref().

Referenced by INIT2F_substring(), and INIT2F_Translate_Array_Ref().

Here is the call graph for this function:

void INITO2F_translate	(	TOKEN_BUFFER	tokens,
		INITO_IDX	inito
	)

Definition at line 1384 of file init2f.cxx.

References Append_And_Reclaim_Token_List(), Append_F77_Indented_Newline(), Append_Token_Special(), Append_Token_String(), ASSERT_DBG_FATAL, DIAG_W2F_UNEXPECTED_SYMBOL, FREE, INIT2F_Get_Initv_Array(), INIT2F_translate(), INITO_st(), New_Token_Buffer(), NULL, ST_type(), Stab_Is_Common_Block(), Stab_Is_Equivalence_Block(), and TY_Is_Structured().

Referenced by write_st::operator()(), and ST2F_decl_var().

Here is the call graph for this function:

static void INITVKIND_const	(	TOKEN_BUFFER	tokens,
		INT	repeat,
		const char **	tbl,
		TY_IDX	ty
	)		[static]

Definition at line 532 of file init2f.cxx.

References Append_Token_String(), INIT2F_Append_Initializer(), MTYPE_I1, MTYPE_I2, MTYPE_I4, MTYPE_I8, New_Token_Buffer(), TY_is_logical(), TY_mtype(), Ty_Table, and WN2F_F90_pu.

Referenced by INITVKIND_translate().

Here is the call graph for this function:

static void INITVKIND_symoff	(	TOKEN_BUFFER	tokens,
		INT	repeat,
		ST *	st,
		STAB_OFFSET	ofst,
		TY_IDX	object_ty
	)		[static]

Definition at line 452 of file init2f.cxx.

References INIT2F_Append_Initializer(), INIT_WN2F_CONTEXT, New_Token_Buffer(), ST_type(), Stab_Pointer_To(), WN2F_Address_Of(), and WN2F_Offset_Symref().

Referenced by INITVKIND_translate().

Here is the call graph for this function:

static void INITVKIND_translate	(	TOKEN_BUFFER	tokens,
		INITV_IDX	initv_idx,
		TY_IDX	object_ty,
		UINT	repeat
	)		[static]

Definition at line 560 of file init2f.cxx.

References ASSERT_DBG_WARN, DIAG_W2F_UNEXPECTED_INITV, FALSE, INITV_kind(), INITV_ofst(), INITV_st(), Initv_Table, INITV_tc(), INITVKIND_const(), INITVKIND_ONE, INITVKIND_SYMOFF, INITVKIND_symoff(), INITVKIND_VAL, INITVKIND_val(), INITVKIND_ZERO, one_consts, St_Table, Tcon_Table, and zero_consts.

Referenced by INIT2F_ptr_or_scalar(), INIT2F_substring(), and INIT2F_Translate_Array_Value().

Here is the call graph for this function:

static TY_IDX INITVKIND_ty

(

INITV_IDX

initv_idx

)

[static]

Definition at line 404 of file init2f.cxx.

References ASSERT_DBG_FATAL, Be_Type_Tbl, DIAG_W2F_UNEXPECTED_INITV, FALSE, INITV_kind(), INITV_mtype(), INITV_st(), Initv_Table, INITV_tc_val(), INITVKIND_ONE, INITVKIND_SYMOFF, INITVKIND_VAL, INITVKIND_ZERO, MTYPE_STRING, MTYPE_U1, Set_TY_is_character(), ST_type(), Stab_Array_Of(), Stab_Mtype_To_Ty(), Stab_Pointer_To(), Targ_String_Length(), TCON_ty, TY_Is_Structured(), Ty_Table, and Void_Type.

Referenced by INIT2F_structured().

Here is the call graph for this function:

static void INITVKIND_val	(	TOKEN_BUFFER	tokens,
		INT	repeat,
		TCON *	tcon,
		TY_IDX	object_ty
	)		[static]

Definition at line 472 of file init2f.cxx.

References Append_Token_Special(), TCON::cmplxval, INIT2F_Append_Initializer(), MTYPE_STRING, New_Token_Buffer(), Set_Tcon_Value(), Targ_String_Address(), Targ_String_Length(), TCON2F_translate(), TCON_ty, TY_Is_Array(), TY_Is_Complex(), TY_is_logical(), TY_Is_Scalar(), TY_Is_String(), TY_mtype(), TY_size(), Ty_Table, and TCON::vals.

Referenced by INITVKIND_translate().

Here is the call graph for this function:

void PARAMETER2F_translate	(	TOKEN_BUFFER	tokens,
		INITO_IDX	inito
	)

Definition at line 1440 of file init2f.cxx.

References Append_And_Reclaim_Token_List(), Append_F77_Indented_Newline(), Append_Token_Special(), Append_Token_String(), ASSERT_DBG_FATAL, DIAG_W2F_UNEXPECTED_SYMBOL, FREE, INIT2F_Get_Initv_Array(), INIT2F_translate(), INITO_st(), New_Token_Buffer(), NULL, ST_name(), ST_type(), Stab_Is_Common_Block(), Stab_Is_Equivalence_Block(), TY_Is_Structured(), and W2CF_Symtab_Nameof_Ty().

Referenced by ST2F_decl_var().

Here is the call graph for this function:

static void Set_Tcon_Value	(	TCON *	tcon,
		MTYPE	mtype,
		INT	typesize,
		char *	bytes
	)		[static]

Definition at line 103 of file init2f.cxx.

References ASSERT_DBG_FATAL, d, DIAG_W2F_UNEXPECTED_TYPE_KIND, f, FALSE, Host_To_Targ(), Host_To_Targ_Complex(), Host_To_Targ_Complex_4(), Host_To_Targ_Complex_Quad(), Host_To_Targ_Float(), Host_To_Targ_Quad(), i1, i2, i4, i8, MTYPE_C4, MTYPE_C8, MTYPE_CQ, MTYPE_F4, MTYPE_F8, MTYPE_FQ, MTYPE_I1, MTYPE_I2, MTYPE_I4, MTYPE_I8, MTYPE_U1, MTYPE_U2, MTYPE_U4, MTYPE_U8, and val.

Referenced by INITVKIND_val().

Here is the call graph for this function:

---

Variable Documentation

TOKEN_BUFFER Data_Stmt_Tokens

Definition at line 104 of file wn2f.cxx.

Referenced by write_st::operator()(), ST2F_decl_var(), WN2F_Append_Block_Data(), WN2F_Enter_PU_Block(), and WN2F_Exit_PU_Block().

const char* one_consts[6] = { "1", ".TRUE.", "1_1", "1_2" , "1_4", "1_8"} [static]

Definition at line 528 of file init2f.cxx.

Referenced by INITVKIND_translate().

const char* zero_consts[6] = { "0", ".FALSE.","0_1", "0_2" , "0_4", "0_8"} [static]

Definition at line 529 of file init2f.cxx.

Referenced by INITVKIND_translate().