AdjustInterfaces Class Reference

#include <AdjustInterfaces.h>

Collaboration diagram for AdjustInterfaces:

[legend]

List of all members.

Public Member Functions
	AdjustInterfaces (PU_Info *aPUInfoForest_p)
void	doIt ()
Private Member Functions
void	forPUInfoTree (PU_Info *aPUInfoTree_p)
void	forPUInfo (PU_Info *aPUInfo_p)
TY_IDX	findPUSymbolType (ST *puName_ST_p, ST *dummyLocal_ST_p, INT wnKidIdx)
PU_Info *	findPU (ST *puName_ST_p)
Private Attributes
PU_Info *	myPUInfoForest_p

---

Detailed Description

for local explicit interfaces the front-end generates references to local symbol table that do not reflect type changes made to definitions if they exist in the input source. We need to adjust the type information.

Definition at line 13 of file AdjustInterfaces.h.

---

Constructor & Destructor Documentation

AdjustInterfaces::AdjustInterfaces

(

PU_Info *

aPUInfoForest_p

)

[inline]

Definition at line 17 of file AdjustInterfaces.h.

---

Member Function Documentation

void AdjustInterfaces::doIt

(

)

top level routine that does it for the forest of PU trees

Definition at line 5 of file AdjustInterfaces.cxx.

References forPUInfoTree(), myPUInfoForest_p, NULL, and PU_Info_next.

Referenced by xaif2whirl::real_main().

Here is the call graph for this function:

PU_Info * AdjustInterfaces::findPU

(

ST *

puName_ST_p

)

[private]

find a PU in the forest

Definition at line 167 of file AdjustInterfaces.cxx.

References FORTTK_ASSERT_WARN, myPUInfoForest_p, NULL, pu_info::proc_sym, PU_Info_next, ST_name(), and ST_st_idx().

Referenced by findPUSymbolType().

Here is the call graph for this function:

TY_IDX AdjustInterfaces::findPUSymbolType	(	ST *	puName_ST_p,
		ST *	dummyLocal_ST_p,
		INT	wnKidIdx
	)			[private]

Definition at line 132 of file AdjustInterfaces.cxx.

References WN_TREE_CONTAINER< order >::begin(), Current_PU_Info, WN_TREE_CONTAINER< order >::end(), findPU(), FORTTK_ASSERT_WARN, FORTTK_MSG, OPR_FUNC_ENTRY, PU_Info_tree_ptr, PU_SetGlobalState(), ST_name(), ST_type(), WN_TREE_ITER_base< WHIRL >::Wn(), WN_has_sym, WN_kid(), WN_operator(), and WN_st().

Referenced by forPUInfo().

Here is the call graph for this function:

void AdjustInterfaces::forPUInfo

(

PU_Info *

aPUInfo_p

)

[private]

for each PU within a tree of PUs

Definition at line 72 of file AdjustInterfaces.cxx.

References WN_TREE_CONTAINER< order >::begin(), copyTypeAdjust(), WN_TREE_CONTAINER< order >::end(), findPUSymbolType(), FORTTK_ASSERT, FORTTK_MSG, KIND_SCALAR, OPR_INTERFACE, PU_Info_tree_ptr, PU_SetGlobalState(), Set_ST_type(), ST_is_in_module(), ST_name(), ST_type(), TY_IDX_index(), TY_kind(), WN_TREE_ITER_base< WHIRL >::Wn(), WN_kid(), WN_kid0(), WN_kid_count(), WN_operator(), and WN_st().

Referenced by forPUInfoTree().

Here is the call graph for this function:

void AdjustInterfaces::forPUInfoTree

(

PU_Info *

aPUInfoTree_p

)

[private]

recursively for each (sub) tree of PUs

Definition at line 14 of file AdjustInterfaces.cxx.

References forPUInfo(), NULL, PU_Info_child, and PU_Info_next.

Referenced by doIt().

Here is the call graph for this function:

---

Member Data Documentation

PU_Info* AdjustInterfaces::myPUInfoForest_p [private]

we don't own this

Definition at line 50 of file AdjustInterfaces.h.

Referenced by doIt(), and findPU().

---

The documentation for this class was generated from the following files:

• /nfs/mercurial/ad/OpenADFortTk/src/xaif2whirl/AdjustInterfaces.h
• /nfs/mercurial/ad/OpenADFortTk/src/xaif2whirl/AdjustInterfaces.cxx