#include <PUXlationContext.h>

Collaboration diagram for whirl2xaif::PUXlationContext:

Public Member Functions
	PUXlationContext (const std::string &anOriginator, Open64IRInterface &anIrInterface)
	~PUXlationContext ()
void	createXlationContext ()
void	createXlationContext (XlationContext::Flags_E f)
void	createXlationContext (XlationContext::Flags_E f, WN *aWNp)
void	deleteXlationContext ()
XlationContext &	currentXlationContext ()
WN *	getMostRecentWN ()
WN *	findParentWN (WN *)
WN *	findParentBlockWN (WN *)
fortTkSupport::WhirlParentMap *	getWNParentMap () const
void	setWNParentMap (fortTkSupport::WhirlParentMap *aWhirlParentMapP)
fortTkSupport::SymTabId	findSymTabId (ST_TAB *stab)
fortTkSupport::SymTabToSymTabIdMap *	getSymTabToIdMap () const
void	setSymTabToIdMap (fortTkSupport::SymTabToSymTabIdMap *aSymTabToSymTabIdMapP)
fortTkSupport::PUId	findPUId (PU_Info *pu)
fortTkSupport::PUToPUIdMap *	getPUToIdMap () const
void	setPUToIdMap (fortTkSupport::PUToPUIdMap *aPUToPUIdMapP)
fortTkSupport::WNId	findWNId (WN *wn)
fortTkSupport::WNToWNIdMap *	getWNToIdMap () const
void	setWNToIdMap (fortTkSupport::WNToWNIdMap *x)
int	findUDDUChainId (WN *wnexpr)
OA::OA_ptr < OA::XAIF::UDDUChainsXAIF >	getUDDUChains () const
void	setUDDUChains (OA::OA_ptr< OA::XAIF::UDDUChainsXAIF > x)
int	findDoChainId (WN *wn)
OA::OA_ptr < OA::XAIF::ReachDefsOverwriteXAIF >	getDoChains () const
void	setDoChains (OA::OA_ptr< OA::XAIF::ReachDefsOverwriteXAIF > x)
fortTkSupport::ScalarizedRef *	findScalarizedRef (WN *wn)
fortTkSupport::ScalarizedRefTab_W2X *	getScalarizedRefTab () const
void	setScalarizedRefTab (fortTkSupport::ScalarizedRefTab_W2X *aScalarizedRefTab_W2Xp)
int	isActiveSym (ST *st)
int	isActiveStmt (PU_Info pu, WN wn)
int	isActiveVarRef (PU_Info pu, WN wn)
void	setActivity (OA::OA_ptr< OA::Activity::InterActiveFortran > anActivityMap)
void	setAlias (OA::OA_ptr< OA::Alias::InterAliasMap > anAliasMap)
int	getAliasMapKey (WN *wnexpr)
void	setAliasMapXAIF (OA::OA_ptr< OA::XAIF::AliasMapXAIF > anAliasMapXAIF)
void	dump (std::ostream &o, const std::string &indent) const
void	ddump () const
bool	isF90 () const
void	setF90 (bool aFlag)
Open64IRInterface &	getIrInterface ()
Private Types
typedef std::list< XlationContext >	XlationContextStack
Private Member Functions
	PUXlationContext (const XlationContext &x)
	PUXlationContext ()
PUXlationContext &	operator= (const PUXlationContext &x)
void	PushNewXlationContext (XlationContext::Flags_E f, WN *aWNp)
Private Attributes
fortTkSupport::WhirlParentMap *	myWNParentMapP
fortTkSupport::SymTabToSymTabIdMap *	myStab2idMapP
fortTkSupport::PUToPUIdMap *	myPU2idMapP
fortTkSupport::WNToWNIdMap *	myWN2idMapP
OA::OA_ptr < OA::Activity::InterActiveFortran >	myActivity
OA::OA_ptr < OA::Alias::InterAliasMap >	myAlias
OA::OA_ptr < OA::XAIF::AliasMapXAIF >	myAliasMapXAIF_p
OA::OA_ptr < OA::XAIF::UDDUChainsXAIF >	myUdduchains
OA::OA_ptr < OA::XAIF::ReachDefsOverwriteXAIF >	myDoChains
fortTkSupport::ScalarizedRefTab_W2X *	myScalarizedRefTab_W2Xp
XlationContextStack	myXlationContextStack
std::string	myOriginator
bool	myF90Flag
Open64IRInterface &	myIrInterface

Detailed Description

PUXlationContext for whirl2xaif: Represents information about a WHIRL->XAIF translation context. Designed to convey information about a parent context to children contexts.

PUXlationContext maintains an internal stack of XlationContexts, allowing users to 1) create new child contexts (push), 2) destroy and return to parent contexts (pop) and 3) query the current context. The current translation context provides information about the containing WHIRL context. There should always be at least one context on the stack. (Upon creation, one context exists on the stack.) Because this class is designed to represent information about one procedure (WHIRL PU) at a time, information that applies for a whole PU is located outside instead of inside the stack.

For whirl2xaif, a translation context for an XAIF construct corresponds to its parent construct. Thus there will be one translation context on the stack for every 'indendation' level. Context flags indicate significant facts about the parent construct and will typically correspond to XAIF concepts (as opposed to WHIRL).

Definition at line 46 of file PUXlationContext.h.

Member Typedef Documentation

typedef std::list<XlationContext> whirl2xaif::PUXlationContext::XlationContextStack [private]

Use a list instead a stack so that we can easily examine contents. The top of the stack will be the *front* of the list. (push_front, pop_front).

Definition at line 225 of file PUXlationContext.h.

Constructor & Destructor Documentation

whirl2xaif::PUXlationContext::PUXlationContext	(	const std::string &	anOriginator,
		Open64IRInterface &	anIrInterface
	)

the originator is some name that we can use for debugging purposes

Definition at line 10 of file PUXlationContext.cxx.

References myXlationContextStack.

whirl2xaif::PUXlationContext::~PUXlationContext ( )

Definition at line 22 of file PUXlationContext.cxx.

References myXlationContextStack.

whirl2xaif::PUXlationContext::PUXlationContext ( const XlationContext & x ) [private]

no def

whirl2xaif::PUXlationContext::PUXlationContext ( ) [private]

no def

Member Function Documentation

void whirl2xaif::PUXlationContext::createXlationContext ( )

Create a new child context and make it the current context.

Definition at line 27 of file PUXlationContext.cxx.

References whirl2xaif::XlationContext::NOFLAG, and PushNewXlationContext().

Here is the call graph for this function:

void whirl2xaif::PUXlationContext::createXlationContext ( XlationContext::Flags_E f )

Create a new child context and make it the current context. We pass flags that should apply to the new context. Note that that these flags *do not* override any inherited flags.

Definition at line 31 of file PUXlationContext.cxx.

References PushNewXlationContext().

Here is the call graph for this function:

void whirl2xaif::PUXlationContext::createXlationContext	(	XlationContext::Flags_E	f,
		WN *	aWNp
	)

Create a new child context and make it the current context. We pass flags that should apply to the new context. Note that that these flags *do not* override any inherited flags. Also pass along a whirl node.

Definition at line 35 of file PUXlationContext.cxx.

References PushNewXlationContext().

Here is the call graph for this function:

XlationContext & whirl2xaif::PUXlationContext::currentXlationContext ( )

Returns the current context

Definition at line 58 of file PUXlationContext.cxx.

References myXlationContextStack.

void whirl2xaif::PUXlationContext::ddump ( ) const

Definition at line 520 of file PUXlationContext.cxx.

References dump().

Here is the call graph for this function:

void whirl2xaif::PUXlationContext::deleteXlationContext ( )

Delete the current context and make its parent the current context. Everything (including memory) associated with the old context will be deleted.

Definition at line 51 of file PUXlationContext.cxx.

References myXlationContextStack.

void whirl2xaif::PUXlationContext::dump	(	std::ostream &	o,
		const std::string &	indent
	)		const

Definition at line 511 of file PUXlationContext.cxx.

References myOriginator, and myXlationContextStack.

Referenced by ddump().

int whirl2xaif::PUXlationContext::findDoChainId ( WN * wn )

Definition at line 331 of file PUXlationContext.cxx.

References whirl2sexp::DumpWN(), FORTTK_DIE, FORTTK_MSG, and myDoChains.

Referenced by whirl2xaif::xlate_ISTORE(), whirl2xaif::xlate_LoopInitialization(), whirl2xaif::xlate_LoopUpdate(), and whirl2xaif::xlate_STID().

Here is the call graph for this function:

WN * whirl2xaif::PUXlationContext::findParentBlockWN ( WN * wn )

Definition at line 85 of file PUXlationContext.cxx.

References fortTkSupport::WhirlParentMap::FindBlock(), FORTTK_DIE, and myWNParentMapP.

Referenced by whirl2xaif::xlate_PassiveStmt().

Here is the call graph for this function:

WN * whirl2xaif::PUXlationContext::findParentWN ( WN * wn )

Definition at line 77 of file PUXlationContext.cxx.

References fortTkSupport::WhirlParentMap::Find(), FORTTK_DIE, and myWNParentMapP.

Referenced by findUDDUChainId(), getAliasMapKey(), whirl2xaif::xlate_CALL(), and whirl2xaif::xlate_PassiveStmt().

Here is the call graph for this function:

fortTkSupport::PUId whirl2xaif::PUXlationContext::findPUId ( PU_Info * pu )

Definition at line 138 of file PUXlationContext.cxx.

References fortTkSupport::BaseMap< FromTy, ToTy >::Find(), FORTTK_DIE, and myPU2idMapP.

Referenced by whirl2xaif::Whirl2Xaif::translatePU().

Here is the call graph for this function:

fortTkSupport::ScalarizedRef * whirl2xaif::PUXlationContext::findScalarizedRef ( WN * wn )

Definition at line 379 of file PUXlationContext.cxx.

References fortTkSupport::ScalarizedRefTab< ScalarizedRefTab_Base::W2X >::Find(), FORTTK_DIE, and myScalarizedRefTab_W2Xp.

Referenced by whirl2xaif::xlate_MemRef(), and whirl2xaif::xlate_SymRef().

Here is the call graph for this function:

fortTkSupport::SymTabId whirl2xaif::PUXlationContext::findSymTabId ( ST_TAB * stab )

Definition at line 116 of file PUXlationContext.cxx.

References fortTkSupport::BaseMap< FromTy, ToTy >::Find(), FORTTK_DIE, and myStab2idMapP.

Referenced by whirl2xaif::Whirl2Xaif::translatePU(), whirl2xaif::Whirl2Xaif::translateScopeHierarchy(), whirl2xaif::Whirl2Xaif::translateScopeHierarchyPU(), whirl2xaif::xlate_CALL(), whirl2xaif::xlate_EntryPoint(), whirl2xaif::xlate_FUNC_ENTRY(), whirl2xaif::xlate_MemRef(), whirl2xaif::xlate_PregRef(), whirl2xaif::xlate_SideEffectEntry(), whirl2xaif::xlate_SideEffectNamedLocation(), whirl2xaif::xlate_STUse_VAR(), and whirl2xaif::xlate_SymRef().

Here is the call graph for this function:

int whirl2xaif::PUXlationContext::findUDDUChainId ( WN * wnexpr )

Definition at line 192 of file PUXlationContext.cxx.

References whirl2sexp::DumpWN(), findParentWN(), FORTTK_DIE, FORTTK_MSG, fortTkSupport::Diagnostics::getDiagnosticFilterLevel(), and myUdduchains.

Referenced by whirl2xaif::WN2F_arrsection(), whirl2xaif::WN2F_String_Argument(), whirl2xaif::xlate_ARRAY(), whirl2xaif::xlate_ISTORE(), whirl2xaif::xlate_MemRef(), whirl2xaif::xlate_PregRef(), whirl2xaif::xlate_STID(), and whirl2xaif::xlate_SymRef().

Here is the call graph for this function:

fortTkSupport::WNId whirl2xaif::PUXlationContext::findWNId ( WN * wn )

Definition at line 160 of file PUXlationContext.cxx.

References fortTkSupport::BaseMap< FromTy, ToTy >::Find(), FORTTK_DIE, and myWN2idMapP.

Here is the call graph for this function:

int whirl2xaif::PUXlationContext::getAliasMapKey ( WN * wnexpr )

Definition at line 251 of file PUXlationContext.cxx.

References whirl2sexp::DumpWN(), findParentWN(), FORTTK_DIE, FORTTK_MSG, fortTkSupport::Diagnostics::getDiagnosticFilterLevel(), and myAliasMapXAIF_p.

Referenced by whirl2xaif::WN2F_arrsection(), whirl2xaif::WN2F_String_Argument(), whirl2xaif::xlate_ARRAY(), whirl2xaif::xlate_ISTORE(), whirl2xaif::xlate_MemRef(), whirl2xaif::xlate_PregRef(), whirl2xaif::xlate_STID(), and whirl2xaif::xlate_SymRef().

Here is the call graph for this function:

OA::OA_ptr< OA::XAIF::ReachDefsOverwriteXAIF > whirl2xaif::PUXlationContext::getDoChains ( ) const

Definition at line 355 of file PUXlationContext.cxx.

References FORTTK_DIE, and myDoChains.

Open64IRInterface & whirl2xaif::PUXlationContext::getIrInterface ( )

Definition at line 532 of file PUXlationContext.cxx.

References myIrInterface.

Referenced by whirl2xaif::xlate_SideEffectEntry().

WN * whirl2xaif::PUXlationContext::getMostRecentWN ( )

get WN* the most recent non-NULL WN.

Definition at line 62 of file PUXlationContext.cxx.

References FORTTK_DIE, and myXlationContextStack.

Referenced by whirl2xaif::xlate_MemRef(), whirl2xaif::xlate_PregRef(), and whirl2xaif::xlate_SymRef().

fortTkSupport::PUToPUIdMap * whirl2xaif::PUXlationContext::getPUToIdMap ( ) const

Definition at line 146 of file PUXlationContext.cxx.

References FORTTK_DIE, and myPU2idMapP.

fortTkSupport::ScalarizedRefTab_W2X * whirl2xaif::PUXlationContext::getScalarizedRefTab ( ) const

Definition at line 405 of file PUXlationContext.cxx.

References FORTTK_DIE, and myScalarizedRefTab_W2Xp.

fortTkSupport::SymTabToSymTabIdMap * whirl2xaif::PUXlationContext::getSymTabToIdMap ( ) const

Definition at line 124 of file PUXlationContext.cxx.

References FORTTK_DIE, and myStab2idMapP.

OA::OA_ptr< OA::XAIF::UDDUChainsXAIF > whirl2xaif::PUXlationContext::getUDDUChains ( ) const

Definition at line 307 of file PUXlationContext.cxx.

References FORTTK_DIE, and myUdduchains.

fortTkSupport::WhirlParentMap * whirl2xaif::PUXlationContext::getWNParentMap ( ) const

Definition at line 93 of file PUXlationContext.cxx.

References FORTTK_DIE, and myWNParentMapP.

fortTkSupport::WNToWNIdMap * whirl2xaif::PUXlationContext::getWNToIdMap ( ) const

Definition at line 168 of file PUXlationContext.cxx.

References FORTTK_DIE, and myWN2idMapP.

int whirl2xaif::PUXlationContext::isActiveStmt	(	PU_Info *	pu,
		WN *	wn
	)

Definition at line 459 of file PUXlationContext.cxx.

References FORTTK_DIE, and myActivity.

int whirl2xaif::PUXlationContext::isActiveSym ( ST * st )

Definition at line 411 of file PUXlationContext.cxx.

References FORTTK_DIE, whirl2xaif::Whirl2Xaif::getOAAnalMap(), fortTkSupport::IntraOAInfo::isGlobalSymbolActive(), myActivity, and myAlias.

Referenced by whirl2xaif::activeInCommon(), whirl2xaif::equivalencedToActive(), whirl2xaif::equivalencedToActiveBlock(), and whirl2xaif::xlate_STDecl_VAR().

Here is the call graph for this function:

int whirl2xaif::PUXlationContext::isActiveVarRef	(	PU_Info *	pu,
		WN *	wn
	)

Definition at line 468 of file PUXlationContext.cxx.

References FORTTK_DIE, and myActivity.

bool whirl2xaif::PUXlationContext::isF90 ( ) const

Definition at line 524 of file PUXlationContext.cxx.

References myF90Flag.

Referenced by whirl2xaif::TY2F_scalar().

PUXlationContext& whirl2xaif::PUXlationContext::operator= ( const PUXlationContext & x ) [private]

no def

void whirl2xaif::PUXlationContext::PushNewXlationContext	(	XlationContext::Flags_E	f,
		WN *	aWNp
	)		`[private]`

this makes a new XlationContext and pushes it on top

Definition at line 39 of file PUXlationContext.cxx.

References currentXlationContext(), FORTTK_DIE, whirl2xaif::XlationContext::inheritFlags(), myXlationContextStack, whirl2xaif::XlationContext::setFlag(), and whirl2xaif::XlationContext::setWN().

Referenced by createXlationContext().

Here is the call graph for this function:

void whirl2xaif::PUXlationContext::setActivity ( OA::OA_ptr< OA::Activity::InterActiveFortran > anActivityMap )

Definition at line 477 of file PUXlationContext.cxx.

References FORTTK_DIE, and myActivity.

void whirl2xaif::PUXlationContext::setAlias ( OA::OA_ptr< OA::Alias::InterAliasMap > anAliasMap )

Definition at line 485 of file PUXlationContext.cxx.

References FORTTK_DIE, and myAlias.

void whirl2xaif::PUXlationContext::setAliasMapXAIF ( OA::OA_ptr< OA::XAIF::AliasMapXAIF > anAliasMapXAIF )

Definition at line 493 of file PUXlationContext.cxx.

References FORTTK_DIE, FORTTK_MSG, and myAliasMapXAIF_p.

Referenced by whirl2xaif::xlate_FUNC_ENTRY().

void whirl2xaif::PUXlationContext::setDoChains ( OA::OA_ptr< OA::XAIF::ReachDefsOverwriteXAIF > x )

Definition at line 361 of file PUXlationContext.cxx.

References FORTTK_DIE, FORTTK_MSG, and myDoChains.

Referenced by whirl2xaif::xlate_FUNC_ENTRY().

void whirl2xaif::PUXlationContext::setF90 ( bool aFlag )

Definition at line 528 of file PUXlationContext.cxx.

References myF90Flag.

Referenced by whirl2xaif::Whirl2Xaif::translatePU().

void whirl2xaif::PUXlationContext::setPUToIdMap ( fortTkSupport::PUToPUIdMap * aPUToPUIdMapP )

Definition at line 152 of file PUXlationContext.cxx.

References FORTTK_DIE, and myPU2idMapP.

void whirl2xaif::PUXlationContext::setScalarizedRefTab ( fortTkSupport::ScalarizedRefTab_W2X * aScalarizedRefTab_W2Xp )

Definition at line 387 of file PUXlationContext.cxx.

References FORTTK_DIE, FORTTK_MSG, and myScalarizedRefTab_W2Xp.

Referenced by whirl2xaif::xlate_FUNC_ENTRY().

void whirl2xaif::PUXlationContext::setSymTabToIdMap ( fortTkSupport::SymTabToSymTabIdMap * aSymTabToSymTabIdMapP )

Definition at line 130 of file PUXlationContext.cxx.

References FORTTK_DIE, and myStab2idMapP.

void whirl2xaif::PUXlationContext::setUDDUChains ( OA::OA_ptr< OA::XAIF::UDDUChainsXAIF > x )

Definition at line 313 of file PUXlationContext.cxx.

References FORTTK_DIE, FORTTK_MSG, and myUdduchains.

Referenced by whirl2xaif::xlate_FUNC_ENTRY().

void whirl2xaif::PUXlationContext::setWNParentMap ( fortTkSupport::WhirlParentMap * aWhirlParentMapP )

Definition at line 99 of file PUXlationContext.cxx.

References FORTTK_DIE, FORTTK_MSG, and myWNParentMapP.

Referenced by whirl2xaif::xlate_FUNC_ENTRY().

void whirl2xaif::PUXlationContext::setWNToIdMap ( fortTkSupport::WNToWNIdMap * x )

Definition at line 174 of file PUXlationContext.cxx.

References FORTTK_DIE, FORTTK_MSG, and myWN2idMapP.

Referenced by whirl2xaif::Whirl2Xaif::translateScopeHierarchyPU(), and whirl2xaif::xlate_FUNC_ENTRY().

Member Data Documentation

OA::OA_ptr<OA::Activity::InterActiveFortran> whirl2xaif::PUXlationContext::myActivity [private]

we don't own this

Definition at line 193 of file PUXlationContext.h.

Referenced by isActiveStmt(), isActiveSym(), isActiveVarRef(), and setActivity().

OA::OA_ptr<OA::Alias::InterAliasMap> whirl2xaif::PUXlationContext::myAlias [private]

we don't own this

Definition at line 198 of file PUXlationContext.h.

Referenced by isActiveSym(), and setAlias().

OA::OA_ptr<OA::XAIF::AliasMapXAIF> whirl2xaif::PUXlationContext::myAliasMapXAIF_p [private]

we don't own this

Definition at line 203 of file PUXlationContext.h.

Referenced by getAliasMapKey(), and setAliasMapXAIF().

OA::OA_ptr<OA::XAIF::ReachDefsOverwriteXAIF> whirl2xaif::PUXlationContext::myDoChains [private]

we don't own this

Definition at line 213 of file PUXlationContext.h.

Referenced by findDoChainId(), getDoChains(), and setDoChains().

bool whirl2xaif::PUXlationContext::myF90Flag [private]

Definition at line 243 of file PUXlationContext.h.

Referenced by isF90(), and setF90().

Open64IRInterface& whirl2xaif::PUXlationContext::myIrInterface [private]

Definition at line 245 of file PUXlationContext.h.

Referenced by getIrInterface().

std::string whirl2xaif::PUXlationContext::myOriginator [private]

some string passed to the ctor to indicate who created this

Definition at line 241 of file PUXlationContext.h.

Referenced by dump().

fortTkSupport::PUToPUIdMap* whirl2xaif::PUXlationContext::myPU2idMapP [private]

we don't own this

Definition at line 183 of file PUXlationContext.h.

Referenced by findPUId(), getPUToIdMap(), and setPUToIdMap().

fortTkSupport::ScalarizedRefTab_W2X* whirl2xaif::PUXlationContext::myScalarizedRefTab_W2Xp [private]

we don't own this

Definition at line 218 of file PUXlationContext.h.

Referenced by findScalarizedRef(), getScalarizedRefTab(), and setScalarizedRefTab().

fortTkSupport::SymTabToSymTabIdMap* whirl2xaif::PUXlationContext::myStab2idMapP [private]

we don't own this

Definition at line 178 of file PUXlationContext.h.

Referenced by findSymTabId(), getSymTabToIdMap(), and setSymTabToIdMap().

OA::OA_ptr<OA::XAIF::UDDUChainsXAIF> whirl2xaif::PUXlationContext::myUdduchains [private]

we don't own this

Definition at line 208 of file PUXlationContext.h.

Referenced by findUDDUChainId(), getUDDUChains(), and setUDDUChains().

fortTkSupport::WNToWNIdMap* whirl2xaif::PUXlationContext::myWN2idMapP [private]

we don't own this

Definition at line 188 of file PUXlationContext.h.

Referenced by findWNId(), getWNToIdMap(), and setWNToIdMap().

fortTkSupport::WhirlParentMap* whirl2xaif::PUXlationContext::myWNParentMapP [private]

we don't own this

Definition at line 173 of file PUXlationContext.h.

Referenced by findParentBlockWN(), findParentWN(), getWNParentMap(), and setWNParentMap().

XlationContextStack whirl2xaif::PUXlationContext::myXlationContextStack [private]

the context stack, we own all the entries in it

Definition at line 230 of file PUXlationContext.h.

Referenced by currentXlationContext(), deleteXlationContext(), dump(), getMostRecentWN(), PushNewXlationContext(), PUXlationContext(), and ~PUXlationContext().

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

src/whirl2xaif/PUXlationContext.h
src/whirl2xaif/PUXlationContext.cxx

Public Member Functions

Private Types

Private Member Functions

Private Attributes

Detailed Description

Member Typedef Documentation

Constructor & Destructor Documentation

Member Function Documentation

Member Data Documentation