src/whirl2xaif/PUXlationContext.h

Go to the documentation of this file.

// -*-Mode: C++;-*-
// $Header: /m_home/m_utkej/Argonne/cvs2svn/cvs/OpenADFortTk/src/whirl2xaif/PUXlationContext.h,v 1.4 2008-02-06 19:51:22 utke Exp $

#ifndef PUXlationContext_INCLUDED
#define PUXlationContext_INCLUDED

#include <list> 
#include <iostream>

#include "Open64IRInterface/Open64BasicTypes.h"
#include "WhirlParentize.h"
#include "WhirlIDMaps.h"
#include "OAMaps.h"
#include "Open64IRInterface/SymTab.h"
#include "ScalarizedRefTab.h"
#include "XlationContext.h"
#include <OpenAnalysis/Location/Location.hpp>


namespace whirl2xaif {

  class PUXlationContext {
  public: 

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

    ~PUXlationContext();

    // -------------------------------------------------------
    // stacked XlationContext manipulation (Create, Delete...)
    // -------------------------------------------------------
  
    void createXlationContext();

    void createXlationContext(XlationContext::Flags_E f);

    void createXlationContext(XlationContext::Flags_E f, WN* aWNp);
  
    void deleteXlationContext();
  
    XlationContext& currentXlationContext();

    WN* getMostRecentWN();

    // -------------------------------------------------------
    // PU level maps and data
    // -------------------------------------------------------

    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);

    // -------------------------------------------------------
    // Misc
    // -------------------------------------------------------

    void dump(std::ostream& o, const std::string& indent) const;
    void ddump() const;

    bool isF90() const;

    void setF90(bool aFlag);

    Open64IRInterface& getIrInterface();

  private: 
    PUXlationContext(const XlationContext& x);

    PUXlationContext();

    PUXlationContext& operator=(const PUXlationContext& x);
  
    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;

  
    typedef std::list<XlationContext> XlationContextStack;

    XlationContextStack myXlationContextStack;

    void PushNewXlationContext(XlationContext::Flags_E f, WN* aWNp);

    std::string myOriginator;

    bool myF90Flag;

    Open64IRInterface& myIrInterface;

  };

}

#endif /* XlationContext_INCLUDED */