cwh_io.i File Reference

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

Go to the source code of this file.

Classes
struct	impdo_info
struct	marked_set
struct	nlist
Defines
#define	Impdo_index(x)   ((x)->index)
#define	Impdo_next(x)   ((x)->next)
#define	Nlist_wn(x)   ((x)->wn)
#define	Nlist_next(x)   ((x)->next)
#define	Marked_st(x)   ((x)->st)
#define	Marked_next(x)   ((x)->next)
Typedefs
typedef struct impdo_info	IMPDO_INFO
typedef struct marked_set	MARKED_SET
typedef struct nlist	NLIST
Functions
static WN *	cwh_io_create_new_label (void)
static ST *	cwh_io_ST_base (ST *st)
static BOOL	cwh_io_analyse_io_statement (WN *tree, int mode)
static BOOL	cwh_io_analyse_io_item (WN *tree, IMPDO_INFO *impdo_set, int mode)
static BOOL	cwh_io_analyse_expr (WN *tree, IMPDO_INFO *impdo_set, int mode)
static BOOL	cwh_io_analyse_arr (WN *tree, IMPDO_INFO *impdo_set, int mode)
static INT32	cwh_io_analyse_index_expr (WN *tree, IMPDO_INFO *impdo_set, int mode)
static INT32	member (ST *st, IMPDO_INFO *impdo_set)
static void	cwh_io_create_dopes (WN *tree)
static void	cwh_io_create_dope_from_item (WN *parent, int kid_num, IMPDO_INFO *impdo_set)
static WN *	cwh_io_conv_array_to_dope (WN *arr, IMPDO_INFO *impdo_set, WN *old_item, WN *char_len, TY_IDX ty, WN *craytype)
static WN *	cwh_io_conv_arrsection_to_dope (WN *arr, IMPDO_INFO *impdo_set, WN *old_item, WN *char_len, TY_IDX ty, WN *craytype)
static INT32	cwh_io_search_implied_do_index (WN *tree, IMPDO_INFO *impdo_set)
static void	cwh_io_add_st_to_marked_set (ST *st)
static void	cwh_io_unmark (void)
static WN *	Substitute_1_For_Impdo_Index_Val (WN *tree, IMPDO_INFO *impdo)
static void	cwh_io_split_io_statement (WN *tree)
static void	cwh_io_split_io_items (IOSTATEMENT ios, WN **cilist, INT32 num_cilist_items, WN *item)
static BOOL	OPCODE_has_aux (const OPCODE opc)
static BOOL	is_f90_pointer (WN *tree)
static WN *	cwh_io_cvt_tos_label_to_wn (BOOL flag)
Variables
INT	cwh_io_in_ioblock = 0

---

Define Documentation

#define Impdo_index

(

x

)

((x)->index)

Definition at line 53 of file cwh_io.i.

Referenced by cwh_io_analyse_io_item(), cwh_io_conv_array_to_dope(), cwh_io_conv_arrsection_to_dope(), cwh_io_create_dope_from_item(), member(), and Substitute_1_For_Impdo_Index_Val().

#define Impdo_next

(

x

)

((x)->next)

Definition at line 54 of file cwh_io.i.

Referenced by cwh_io_analyse_io_item(), cwh_io_conv_array_to_dope(), cwh_io_conv_arrsection_to_dope(), cwh_io_create_dope_from_item(), and member().

#define Marked_next

(

x

)

((x)->next)

Definition at line 60 of file cwh_io.i.

Referenced by cwh_io_add_st_to_marked_set(), and cwh_io_unmark().

#define Marked_st

(

x

)

((x)->st)

Definition at line 59 of file cwh_io.i.

Referenced by cwh_io_add_st_to_marked_set(), and cwh_io_unmark().

#define Nlist_next

(

x

)

((x)->next)

Definition at line 57 of file cwh_io.i.

Referenced by fei_control_list().

#define Nlist_wn

(

x

)

((x)->wn)

Definition at line 56 of file cwh_io.i.

Referenced by fei_control_list().

---

Typedef Documentation

typedef struct impdo_info IMPDO_INFO

Definition at line 35 of file cwh_io.i.

typedef struct marked_set MARKED_SET

Definition at line 36 of file cwh_io.i.

typedef struct nlist NLIST

---

Function Documentation

static void cwh_io_add_st_to_marked_set

(

ST *

st

)

[static]

static BOOL cwh_io_analyse_arr	(	WN *	tree,
		IMPDO_INFO *	impdo_set,
		int	mode
	)		[static]

static BOOL cwh_io_analyse_expr	(	WN *	tree,
		IMPDO_INFO *	impdo_set,
		int	mode
	)		[static]

static INT32 cwh_io_analyse_index_expr	(	WN *	tree,
		IMPDO_INFO *	impdo_set,
		int	mode
	)		[static]

static BOOL cwh_io_analyse_io_item	(	WN *	tree,
		IMPDO_INFO *	impdo_set,
		int	mode
	)		[static]

static BOOL cwh_io_analyse_io_statement	(	WN *	tree,
		int	mode
	)		[static]

static WN* cwh_io_conv_array_to_dope	(	WN *	arr,
		IMPDO_INFO *	impdo_set,
		WN *	old_item,
		WN *	char_len,
		TY_IDX	ty,
		WN *	craytype
	)		[static]

static WN* cwh_io_conv_arrsection_to_dope	(	WN *	arr,
		IMPDO_INFO *	impdo_set,
		WN *	old_item,
		WN *	char_len,
		TY_IDX	ty,
		WN *	craytype
	)		[static]

static void cwh_io_create_dope_from_item	(	WN *	parent,
		int	kid_num,
		IMPDO_INFO *	impdo_set
	)		[static]

static void cwh_io_create_dopes

(

WN *

tree

)

[static]

static WN* cwh_io_create_new_label

(

void

)

[static]

static WN* cwh_io_cvt_tos_label_to_wn

(

BOOL

flag

)

[static]

static INT32 cwh_io_search_implied_do_index	(	WN *	tree,
		IMPDO_INFO *	impdo_set
	)		[static]

static void cwh_io_split_io_items	(	IOSTATEMENT	ios,
		WN **	cilist,
		INT32	num_cilist_items,
		WN *	item
	)		[static]

static void cwh_io_split_io_statement

(

WN *

tree

)

[static]

static ST* cwh_io_ST_base

(

ST *

st

)

[static]

static void cwh_io_unmark

(

void

)

[static]

static BOOL is_f90_pointer

(

WN *

tree

)

[static]

static INT32 member	(	ST *	st,
		IMPDO_INFO *	impdo_set
	)		[static]

static BOOL OPCODE_has_aux

(

const OPCODE

opc

)

[static]

static WN* Substitute_1_For_Impdo_Index_Val	(	WN *	tree,
		IMPDO_INFO *	impdo
	)		[static]

---

Variable Documentation

INT cwh_io_in_ioblock = 0

Definition at line 89 of file cwh_io.i.

Referenced by fei_end_ioblock(), fei_start_ioblock(), and fei_subscr_size().