X-Git-Url: http://demsky.eecs.uci.edu/git/?a=blobdiff_plain;f=lib%2FTransforms%2FUtils%2FPromoteMemoryToRegister.cpp;h=a25ea6b54de4d537d24e5f7f5e0e57b01c199a1a;hb=40b6555561f083930a40c5c9e8b1023c81910402;hp=74ac04c8edf7da16ba8204c87b1eacd9cb83f392;hpb=98a37c2b9c9c7f2791e0a8abda33b9a2eb36ad8e;p=oota-llvm.git diff --git a/lib/Transforms/Utils/PromoteMemoryToRegister.cpp b/lib/Transforms/Utils/PromoteMemoryToRegister.cpp index 74ac04c8edf..a25ea6b54de 100644 --- a/lib/Transforms/Utils/PromoteMemoryToRegister.cpp +++ b/lib/Transforms/Utils/PromoteMemoryToRegister.cpp @@ -1,335 +1,762 @@ -//===- PromoteMemoryToRegister.cpp - Convert memory refs to regs ----------===// +//===- PromoteMemoryToRegister.cpp - Convert allocas to registers ---------===// // -// This pass is used to promote memory references to be register references. A -// simple example of the transformation performed by this pass is: +// The LLVM Compiler Infrastructure // -// FROM CODE TO CODE -// %X = alloca int, uint 1 ret int 42 -// store int 42, int *%X -// %Y = load int* %X -// ret int %Y +// This file was developed by the LLVM research group and is distributed under +// the University of Illinois Open Source License. See LICENSE.TXT for details. // -// To do this transformation, a simple analysis is done to ensure it is safe. -// Currently this just loops over all alloca instructions, looking for -// instructions that are only used in simple load and stores. +//===----------------------------------------------------------------------===// // -// After this, the code is transformed by...something magical :) +// This file promote memory references to be register references. It promotes +// alloca instructions which only have loads and stores as uses. An alloca is +// transformed by using dominator frontiers to place PHI nodes, then traversing +// the function in depth-first order to rewrite loads and stores as appropriate. +// This is just the standard SSA construction algorithm to construct "pruned" +// SSA form. // //===----------------------------------------------------------------------===// -#include "llvm/Transforms/Scalar/PromoteMemoryToRegister.h" +#include "llvm/Transforms/Utils/PromoteMemToReg.h" +#include "llvm/Constants.h" +#include "llvm/DerivedTypes.h" +#include "llvm/Function.h" +#include "llvm/Instructions.h" #include "llvm/Analysis/Dominators.h" -#include "llvm/iMemory.h" -#include "llvm/Pass.h" -#include "llvm/Method.h" -#include "llvm/BasicBlock.h" -#include "llvm/Assembly/Writer.h" // For debugging -#include "llvm/iPHINode.h" -#include "llvm/iTerminators.h" - -using namespace std; - - -using cfg::DominanceFrontier; - - -//instance of the promoter -- to keep all the local method data. -// gets re-created for each method processed -class PromoteInstance -{ - protected: - vector Allocas; // the alloca instruction.. - map AllocaLookup; //reverse mapping of above - - vector > WriteSets; // index corresponds to Allocas - vector > PhiNodes; // index corresponds to Allocas - vector > CurrentValue; //the current value stack - - //list of instructions to remove at end of pass :) - vector killlist; - - set visited; //the basic blocks we've already visited - map > new_phinodes; //the phinodes we're adding - - - void traverse(BasicBlock *f, BasicBlock * predecessor); - bool PromoteMethod(Method *M, DominanceFrontier & DF); - bool queuePhiNode(BasicBlock *bb, int alloca_index); - void findSafeAllocas(Method *M); - bool didchange; - public: - // I do this so that I can force the deconstruction of the local variables - PromoteInstance(Method *M, DominanceFrontier & DF) - { - didchange=PromoteMethod(M, DF); - } - //This returns whether the pass changes anything - operator bool () { return didchange; } -}; - -class PromotePass : public MethodPass { - public: - - // runOnMethod - To run this pass, first we calculate the alloca instructions - // that are safe for promotion, then we promote each one. - // - virtual bool runOnMethod(Method *M) - { - PromoteInstance inst(M, getAnalysis()); - return (bool)inst; - } - - - // getAnalysisUsageInfo - We need dominance frontiers - // - virtual void getAnalysisUsageInfo(Pass::AnalysisSet &Requires, - Pass::AnalysisSet &Destroyed, - Pass::AnalysisSet &Provided) { - Requires.push_back(DominanceFrontier::ID); - } -}; - - -// findSafeAllocas - Find allocas that are safe to promote +#include "llvm/Analysis/AliasSetTracker.h" +#include "llvm/ADT/SmallVector.h" +#include "llvm/ADT/StringExtras.h" +#include "llvm/Support/CFG.h" +#include "llvm/Support/StableBasicBlockNumbering.h" +#include "llvm/Support/Compiler.h" +#include +using namespace llvm; + +/// isAllocaPromotable - Return true if this alloca is legal for promotion. +/// This is true if there are only loads and stores to the alloca. +/// +bool llvm::isAllocaPromotable(const AllocaInst *AI, const TargetData &TD) { + // FIXME: If the memory unit is of pointer or integer type, we can permit + // assignments to subsections of the memory unit. + + // Only allow direct loads and stores... + for (Value::use_const_iterator UI = AI->use_begin(), UE = AI->use_end(); + UI != UE; ++UI) // Loop over all of the uses of the alloca + if (isa(*UI)) { + // noop + } else if (const StoreInst *SI = dyn_cast(*UI)) { + if (SI->getOperand(0) == AI) + return false; // Don't allow a store OF the AI, only INTO the AI. + } else { + return false; // Not a load or store. + } + + return true; +} + +namespace { + struct VISIBILITY_HIDDEN PromoteMem2Reg { + /// Allocas - The alloca instructions being promoted. + /// + std::vector Allocas; + SmallVector &RetryList; + DominatorTree &DT; + DominanceFrontier &DF; + const TargetData &TD; + + /// AST - An AliasSetTracker object to update. If null, don't update it. + /// + AliasSetTracker *AST; + + /// AllocaLookup - Reverse mapping of Allocas. + /// + std::map AllocaLookup; + + /// NewPhiNodes - The PhiNodes we're adding. + /// + std::map > NewPhiNodes; + + /// PointerAllocaValues - If we are updating an AliasSetTracker, then for + /// each alloca that is of pointer type, we keep track of what to copyValue + /// to the inserted PHI nodes here. + /// + std::vector PointerAllocaValues; + + /// Visited - The set of basic blocks the renamer has already visited. + /// + std::set Visited; + + /// BBNumbers - Contains a stable numbering of basic blocks to avoid + /// non-determinstic behavior. + StableBasicBlockNumbering BBNumbers; + + public: + PromoteMem2Reg(const std::vector &A, + SmallVector &Retry, DominatorTree &dt, + DominanceFrontier &df, const TargetData &td, + AliasSetTracker *ast) + : Allocas(A), RetryList(Retry), DT(dt), DF(df), TD(td), AST(ast) {} + + void run(); + + /// properlyDominates - Return true if I1 properly dominates I2. + /// + bool properlyDominates(Instruction *I1, Instruction *I2) const { + if (InvokeInst *II = dyn_cast(I1)) + I1 = II->getNormalDest()->begin(); + return DT[I1->getParent()]->properlyDominates(DT[I2->getParent()]); + } + + /// dominates - Return true if BB1 dominates BB2 using the DominatorTree. + /// + bool dominates(BasicBlock *BB1, BasicBlock *BB2) const { + return DT[BB1]->dominates(DT[BB2]); + } + + private: + void MarkDominatingPHILive(BasicBlock *BB, unsigned AllocaNum, + std::set &DeadPHINodes); + bool PromoteLocallyUsedAlloca(BasicBlock *BB, AllocaInst *AI); + void PromoteLocallyUsedAllocas(BasicBlock *BB, + const std::vector &AIs); + + void RenamePass(BasicBlock *BB, BasicBlock *Pred, + std::vector &IncVals); + bool QueuePhiNode(BasicBlock *BB, unsigned AllocaIdx, unsigned &Version, + std::set &InsertedPHINodes); + }; +} // end of anonymous namespace + +void PromoteMem2Reg::run() { + Function &F = *DF.getRoot()->getParent(); + + // LocallyUsedAllocas - Keep track of all of the alloca instructions which are + // only used in a single basic block. These instructions can be efficiently + // promoted by performing a single linear scan over that one block. Since + // individual basic blocks are sometimes large, we group together all allocas + // that are live in a single basic block by the basic block they are live in. + std::map > LocallyUsedAllocas; + + if (AST) PointerAllocaValues.resize(Allocas.size()); + + for (unsigned AllocaNum = 0; AllocaNum != Allocas.size(); ++AllocaNum) { + AllocaInst *AI = Allocas[AllocaNum]; + + assert(isAllocaPromotable(AI, TD) && + "Cannot promote non-promotable alloca!"); + assert(AI->getParent()->getParent() == &F && + "All allocas should be in the same function, which is same as DF!"); + + if (AI->use_empty()) { + // If there are no uses of the alloca, just delete it now. + if (AST) AST->deleteValue(AI); + AI->eraseFromParent(); + + // Remove the alloca from the Allocas list, since it has been processed + Allocas[AllocaNum] = Allocas.back(); + Allocas.pop_back(); + --AllocaNum; + continue; + } + + // Calculate the set of read and write-locations for each alloca. This is + // analogous to finding the 'uses' and 'definitions' of each variable. + std::vector DefiningBlocks; + std::vector UsingBlocks; + + StoreInst *OnlyStore = 0; + BasicBlock *OnlyBlock = 0; + bool OnlyUsedInOneBlock = true; + + // As we scan the uses of the alloca instruction, keep track of stores, and + // decide whether all of the loads and stores to the alloca are within the + // same basic block. + Value *AllocaPointerVal = 0; + for (Value::use_iterator U =AI->use_begin(), E = AI->use_end(); U != E;++U){ + Instruction *User = cast(*U); + if (StoreInst *SI = dyn_cast(User)) { + // Remember the basic blocks which define new values for the alloca + DefiningBlocks.push_back(SI->getParent()); + AllocaPointerVal = SI->getOperand(0); + OnlyStore = SI; + } else { + LoadInst *LI = cast(User); + // Otherwise it must be a load instruction, keep track of variable reads + UsingBlocks.push_back(LI->getParent()); + AllocaPointerVal = LI; + } + + if (OnlyUsedInOneBlock) { + if (OnlyBlock == 0) + OnlyBlock = User->getParent(); + else if (OnlyBlock != User->getParent()) + OnlyUsedInOneBlock = false; + } + } + + // If the alloca is only read and written in one basic block, just perform a + // linear sweep over the block to eliminate it. + if (OnlyUsedInOneBlock) { + LocallyUsedAllocas[OnlyBlock].push_back(AI); + + // Remove the alloca from the Allocas list, since it will be processed. + Allocas[AllocaNum] = Allocas.back(); + Allocas.pop_back(); + --AllocaNum; + continue; + } + + // If there is only a single store to this value, replace any loads of + // it that are directly dominated by the definition with the value stored. + if (DefiningBlocks.size() == 1) { + // Be aware of loads before the store. + std::set ProcessedBlocks; + for (unsigned i = 0, e = UsingBlocks.size(); i != e; ++i) + // If the store dominates the block and if we haven't processed it yet, + // do so now. + if (dominates(OnlyStore->getParent(), UsingBlocks[i])) + if (ProcessedBlocks.insert(UsingBlocks[i]).second) { + BasicBlock *UseBlock = UsingBlocks[i]; + + // If the use and store are in the same block, do a quick scan to + // verify that there are no uses before the store. + if (UseBlock == OnlyStore->getParent()) { + BasicBlock::iterator I = UseBlock->begin(); + for (; &*I != OnlyStore; ++I) { // scan block for store. + if (isa(I) && I->getOperand(0) == AI) + break; + } + if (&*I != OnlyStore) break; // Do not handle this case. + } + + // Otherwise, if this is a different block or if all uses happen + // after the store, do a simple linear scan to replace loads with + // the stored value. + for (BasicBlock::iterator I = UseBlock->begin(),E = UseBlock->end(); + I != E; ) { + if (LoadInst *LI = dyn_cast(I++)) { + if (LI->getOperand(0) == AI) { + LI->replaceAllUsesWith(OnlyStore->getOperand(0)); + if (AST && isa(LI->getType())) + AST->deleteValue(LI); + LI->eraseFromParent(); + } + } + } + + // Finally, remove this block from the UsingBlock set. + UsingBlocks[i] = UsingBlocks.back(); + --i; --e; + } + + // Finally, after the scan, check to see if the store is all that is left. + if (UsingBlocks.empty()) { + // The alloca has been processed, move on. + Allocas[AllocaNum] = Allocas.back(); + Allocas.pop_back(); + --AllocaNum; + continue; + } + } + + + if (AST) + PointerAllocaValues[AllocaNum] = AllocaPointerVal; + + // If we haven't computed a numbering for the BB's in the function, do so + // now. + BBNumbers.compute(F); + + // Compute the locations where PhiNodes need to be inserted. Look at the + // dominance frontier of EACH basic-block we have a write in. + // + unsigned CurrentVersion = 0; + std::set InsertedPHINodes; + std::vector DFBlocks; + while (!DefiningBlocks.empty()) { + BasicBlock *BB = DefiningBlocks.back(); + DefiningBlocks.pop_back(); + + // Look up the DF for this write, add it to PhiNodes + DominanceFrontier::const_iterator it = DF.find(BB); + if (it != DF.end()) { + const DominanceFrontier::DomSetType &S = it->second; + + // In theory we don't need the indirection through the DFBlocks vector. + // In practice, the order of calling QueuePhiNode would depend on the + // (unspecified) ordering of basic blocks in the dominance frontier, + // which would give PHI nodes non-determinstic subscripts. Fix this by + // processing blocks in order of the occurance in the function. + for (DominanceFrontier::DomSetType::const_iterator P = S.begin(), + PE = S.end(); P != PE; ++P) + DFBlocks.push_back(BBNumbers.getNumber(*P)); + + // Sort by which the block ordering in the function. + std::sort(DFBlocks.begin(), DFBlocks.end()); + + for (unsigned i = 0, e = DFBlocks.size(); i != e; ++i) { + BasicBlock *BB = BBNumbers.getBlock(DFBlocks[i]); + if (QueuePhiNode(BB, AllocaNum, CurrentVersion, InsertedPHINodes)) + DefiningBlocks.push_back(BB); + } + DFBlocks.clear(); + } + } + + // Now that we have inserted PHI nodes along the Iterated Dominance Frontier + // of the writes to the variable, scan through the reads of the variable, + // marking PHI nodes which are actually necessary as alive (by removing them + // from the InsertedPHINodes set). This is not perfect: there may PHI + // marked alive because of loads which are dominated by stores, but there + // will be no unmarked PHI nodes which are actually used. + // + for (unsigned i = 0, e = UsingBlocks.size(); i != e; ++i) + MarkDominatingPHILive(UsingBlocks[i], AllocaNum, InsertedPHINodes); + UsingBlocks.clear(); + + // If there are any PHI nodes which are now known to be dead, remove them! + for (std::set::iterator I = InsertedPHINodes.begin(), + E = InsertedPHINodes.end(); I != E; ++I) { + PHINode *PN = *I; + std::vector &BBPNs = NewPhiNodes[PN->getParent()]; + BBPNs[AllocaNum] = 0; + + // Check to see if we just removed the last inserted PHI node from this + // basic block. If so, remove the entry for the basic block. + bool HasOtherPHIs = false; + for (unsigned i = 0, e = BBPNs.size(); i != e; ++i) + if (BBPNs[i]) { + HasOtherPHIs = true; + break; + } + if (!HasOtherPHIs) + NewPhiNodes.erase(PN->getParent()); + + if (AST && isa(PN->getType())) + AST->deleteValue(PN); + PN->eraseFromParent(); + } + + // Keep the reverse mapping of the 'Allocas' array. + AllocaLookup[Allocas[AllocaNum]] = AllocaNum; + } + + // Process all allocas which are only used in a single basic block. + for (std::map >::iterator I = + LocallyUsedAllocas.begin(), E = LocallyUsedAllocas.end(); I != E; ++I){ + const std::vector &LocAllocas = I->second; + assert(!LocAllocas.empty() && "empty alloca list??"); + + // It's common for there to only be one alloca in the list. Handle it + // efficiently. + if (LocAllocas.size() == 1) { + // If we can do the quick promotion pass, do so now. + if (PromoteLocallyUsedAlloca(I->first, LocAllocas[0])) + RetryList.push_back(LocAllocas[0]); // Failed, retry later. + } else { + // Locally promote anything possible. Note that if this is unable to + // promote a particular alloca, it puts the alloca onto the Allocas vector + // for global processing. + PromoteLocallyUsedAllocas(I->first, LocAllocas); + } + } + + if (Allocas.empty()) + return; // All of the allocas must have been trivial! + + // Set the incoming values for the basic block to be null values for all of + // the alloca's. We do this in case there is a load of a value that has not + // been stored yet. In this case, it will get this null value. + // + std::vector Values(Allocas.size()); + for (unsigned i = 0, e = Allocas.size(); i != e; ++i) + Values[i] = UndefValue::get(Allocas[i]->getAllocatedType()); + + // Walks all basic blocks in the function performing the SSA rename algorithm + // and inserting the phi nodes we marked as necessary + // + RenamePass(F.begin(), 0, Values); + + // The renamer uses the Visited set to avoid infinite loops. Clear it now. + Visited.clear(); + + // Remove the allocas themselves from the function. + for (unsigned i = 0, e = Allocas.size(); i != e; ++i) { + Instruction *A = Allocas[i]; + + // If there are any uses of the alloca instructions left, they must be in + // sections of dead code that were not processed on the dominance frontier. + // Just delete the users now. + // + if (!A->use_empty()) + A->replaceAllUsesWith(UndefValue::get(A->getType())); + if (AST) AST->deleteValue(A); + A->eraseFromParent(); + } + + + // Loop over all of the PHI nodes and see if there are any that we can get + // rid of because they merge all of the same incoming values. This can + // happen due to undef values coming into the PHI nodes. This process is + // iterative, because eliminating one PHI node can cause others to be removed. + bool EliminatedAPHI = true; + while (EliminatedAPHI) { + EliminatedAPHI = false; + + for (std::map >::iterator I = + NewPhiNodes.begin(), E = NewPhiNodes.end(); I != E; ++I) { + std::vector &PNs = I->second; + for (unsigned i = 0, e = PNs.size(); i != e; ++i) { + if (!PNs[i]) continue; + + // If this PHI node merges one value and/or undefs, get the value. + if (Value *V = PNs[i]->hasConstantValue(true)) { + if (!isa(V) || + properlyDominates(cast(V), PNs[i])) { + if (AST && isa(PNs[i]->getType())) + AST->deleteValue(PNs[i]); + PNs[i]->replaceAllUsesWith(V); + PNs[i]->eraseFromParent(); + PNs[i] = 0; + EliminatedAPHI = true; + continue; + } + } + } + } + } + + // At this point, the renamer has added entries to PHI nodes for all reachable + // code. Unfortunately, there may be blocks which are not reachable, which + // the renamer hasn't traversed. If this is the case, the PHI nodes may not + // have incoming values for all predecessors. Loop over all PHI nodes we have + // created, inserting undef values if they are missing any incoming values. + // + for (std::map >::iterator I = + NewPhiNodes.begin(), E = NewPhiNodes.end(); I != E; ++I) { + + std::vector Preds(pred_begin(I->first), pred_end(I->first)); + std::vector &PNs = I->second; + assert(!PNs.empty() && "Empty PHI node list??"); + PHINode *SomePHI = 0; + for (unsigned i = 0, e = PNs.size(); i != e; ++i) + if (PNs[i]) { + SomePHI = PNs[i]; + break; + } + + // Only do work here if there the PHI nodes are missing incoming values. We + // know that all PHI nodes that were inserted in a block will have the same + // number of incoming values, so we can just check any PHI node. + if (SomePHI && Preds.size() != SomePHI->getNumIncomingValues()) { + // Ok, now we know that all of the PHI nodes are missing entries for some + // basic blocks. Start by sorting the incoming predecessors for efficient + // access. + std::sort(Preds.begin(), Preds.end()); + + // Now we loop through all BB's which have entries in SomePHI and remove + // them from the Preds list. + for (unsigned i = 0, e = SomePHI->getNumIncomingValues(); i != e; ++i) { + // Do a log(n) search of the Preds list for the entry we want. + std::vector::iterator EntIt = + std::lower_bound(Preds.begin(), Preds.end(), + SomePHI->getIncomingBlock(i)); + assert(EntIt != Preds.end() && *EntIt == SomePHI->getIncomingBlock(i)&& + "PHI node has entry for a block which is not a predecessor!"); + + // Remove the entry + Preds.erase(EntIt); + } + + // At this point, the blocks left in the preds list must have dummy + // entries inserted into every PHI nodes for the block. + for (unsigned i = 0, e = PNs.size(); i != e; ++i) + if (PHINode *PN = PNs[i]) { + Value *UndefVal = UndefValue::get(PN->getType()); + for (unsigned pred = 0, e = Preds.size(); pred != e; ++pred) + PN->addIncoming(UndefVal, Preds[pred]); + } + } + } +} + +// MarkDominatingPHILive - Mem2Reg wants to construct "pruned" SSA form, not +// "minimal" SSA form. To do this, it inserts all of the PHI nodes on the IDF +// as usual (inserting the PHI nodes in the DeadPHINodes set), then processes +// each read of the variable. For each block that reads the variable, this +// function is called, which removes used PHI nodes from the DeadPHINodes set. +// After all of the reads have been processed, any PHI nodes left in the +// DeadPHINodes set are removed. // -void PromoteInstance::findSafeAllocas(Method *M) -{ - BasicBlock *BB = M->front(); // Get the entry node for the method - - // Look at all instructions in the entry node - for (BasicBlock::iterator I = BB->begin(), E = BB->end(); I != E; ++I) - if (AllocaInst *AI = dyn_cast(*I)) // Is it an alloca? - if (!AI->isArrayAllocation()) { - bool isSafe = true; - for (Value::use_iterator UI = AI->use_begin(), UE = AI->use_end(); - UI != UE; ++UI) { // Loop over all of the uses of the alloca - - // Only allow nonindexed memory access instructions... - if (MemAccessInst *MAI = dyn_cast(*UI)) { - if (MAI->hasIndices()) { // indexed? - // Allow the access if there is only one index and the index is zero. - if (*MAI->idx_begin() != ConstantUInt::get(Type::UIntTy, 0) || - MAI->idx_begin()+1 != MAI->idx_end()) { - isSafe = false; break; - } - } - } else { - isSafe = false; break; // Not a load or store? - } - } - if (isSafe) // If all checks pass, add alloca to safe list - { - AllocaLookup[AI]=Allocas.size(); - Allocas.push_back(AI); - } +void PromoteMem2Reg::MarkDominatingPHILive(BasicBlock *BB, unsigned AllocaNum, + std::set &DeadPHINodes) { + // Scan the immediate dominators of this block looking for a block which has a + // PHI node for Alloca num. If we find it, mark the PHI node as being alive! + for (DominatorTree::Node *N = DT[BB]; N; N = N->getIDom()) { + BasicBlock *DomBB = N->getBlock(); + std::map >::iterator + I = NewPhiNodes.find(DomBB); + if (I != NewPhiNodes.end() && I->second[AllocaNum]) { + // Ok, we found an inserted PHI node which dominates this value. + PHINode *DominatingPHI = I->second[AllocaNum]; + + // Find out if we previously thought it was dead. + std::set::iterator DPNI = DeadPHINodes.find(DominatingPHI); + if (DPNI != DeadPHINodes.end()) { + // Ok, until now, we thought this PHI node was dead. Mark it as being + // alive/needed. + DeadPHINodes.erase(DPNI); + + // Now that we have marked the PHI node alive, also mark any PHI nodes + // which it might use as being alive as well. + for (pred_iterator PI = pred_begin(DomBB), PE = pred_end(DomBB); + PI != PE; ++PI) + MarkDominatingPHILive(*PI, AllocaNum, DeadPHINodes); } + } + } +} + +/// PromoteLocallyUsedAlloca - Many allocas are only used within a single basic +/// block. If this is the case, avoid traversing the CFG and inserting a lot of +/// potentially useless PHI nodes by just performing a single linear pass over +/// the basic block using the Alloca. +/// +/// If we cannot promote this alloca (because it is read before it is written), +/// return true. This is necessary in cases where, due to control flow, the +/// alloca is potentially undefined on some control flow paths. e.g. code like +/// this is potentially correct: +/// +/// for (...) { if (c) { A = undef; undef = B; } } +/// +/// ... so long as A is not used before undef is set. +/// +bool PromoteMem2Reg::PromoteLocallyUsedAlloca(BasicBlock *BB, AllocaInst *AI) { + assert(!AI->use_empty() && "There are no uses of the alloca!"); + + // Handle degenerate cases quickly. + if (AI->hasOneUse()) { + Instruction *U = cast(AI->use_back()); + if (LoadInst *LI = dyn_cast(U)) { + // Must be a load of uninitialized value. + LI->replaceAllUsesWith(UndefValue::get(AI->getAllocatedType())); + if (AST && isa(LI->getType())) + AST->deleteValue(LI); + } else { + // Otherwise it must be a store which is never read. + assert(isa(U)); + } + BB->getInstList().erase(U); + } else { + // Uses of the uninitialized memory location shall get undef. + Value *CurVal = 0; + + for (BasicBlock::iterator I = BB->begin(), E = BB->end(); I != E; ) { + Instruction *Inst = I++; + if (LoadInst *LI = dyn_cast(Inst)) { + if (LI->getOperand(0) == AI) { + if (!CurVal) return true; // Could not locally promote! + + // Loads just returns the "current value"... + LI->replaceAllUsesWith(CurVal); + if (AST && isa(LI->getType())) + AST->deleteValue(LI); + BB->getInstList().erase(LI); + } + } else if (StoreInst *SI = dyn_cast(Inst)) { + if (SI->getOperand(1) == AI) { + // Store updates the "current value"... + CurVal = SI->getOperand(0); + BB->getInstList().erase(SI); + } + } + } + } + + // After traversing the basic block, there should be no more uses of the + // alloca, remove it now. + assert(AI->use_empty() && "Uses of alloca from more than one BB??"); + if (AST) AST->deleteValue(AI); + AI->getParent()->getInstList().erase(AI); + return false; +} + +/// PromoteLocallyUsedAllocas - This method is just like +/// PromoteLocallyUsedAlloca, except that it processes multiple alloca +/// instructions in parallel. This is important in cases where we have large +/// basic blocks, as we don't want to rescan the entire basic block for each +/// alloca which is locally used in it (which might be a lot). +void PromoteMem2Reg:: +PromoteLocallyUsedAllocas(BasicBlock *BB, const std::vector &AIs) { + std::map CurValues; + for (unsigned i = 0, e = AIs.size(); i != e; ++i) + CurValues[AIs[i]] = 0; // Insert with null value + + for (BasicBlock::iterator I = BB->begin(), E = BB->end(); I != E; ) { + Instruction *Inst = I++; + if (LoadInst *LI = dyn_cast(Inst)) { + // Is this a load of an alloca we are tracking? + if (AllocaInst *AI = dyn_cast(LI->getOperand(0))) { + std::map::iterator AIt = CurValues.find(AI); + if (AIt != CurValues.end()) { + // If loading an uninitialized value, allow the inter-block case to + // handle it. Due to control flow, this might actually be ok. + if (AIt->second == 0) { // Use of locally uninitialized value?? + RetryList.push_back(AI); // Retry elsewhere. + CurValues.erase(AIt); // Stop tracking this here. + if (CurValues.empty()) return; + } else { + // Loads just returns the "current value"... + LI->replaceAllUsesWith(AIt->second); + if (AST && isa(LI->getType())) + AST->deleteValue(LI); + BB->getInstList().erase(LI); + } + } + } + } else if (StoreInst *SI = dyn_cast(Inst)) { + if (AllocaInst *AI = dyn_cast(SI->getOperand(1))) { + std::map::iterator AIt = CurValues.find(AI); + if (AIt != CurValues.end()) { + // Store updates the "current value"... + AIt->second = SI->getOperand(0); + BB->getInstList().erase(SI); + } + } + } + } } -// newPromoteMemoryToRegister - Provide an entry point to create this pass. +// QueuePhiNode - queues a phi-node to be added to a basic-block for a specific +// Alloca returns true if there wasn't already a phi-node for that variable // -Pass *newPromoteMemoryToRegister() { - return new PromotePass(); +bool PromoteMem2Reg::QueuePhiNode(BasicBlock *BB, unsigned AllocaNo, + unsigned &Version, + std::set &InsertedPHINodes) { + // Look up the basic-block in question. + std::vector &BBPNs = NewPhiNodes[BB]; + if (BBPNs.empty()) BBPNs.resize(Allocas.size()); + + // If the BB already has a phi node added for the i'th alloca then we're done! + if (BBPNs[AllocaNo]) return false; + + // Create a PhiNode using the dereferenced type... and add the phi-node to the + // BasicBlock. + PHINode *PN = new PHINode(Allocas[AllocaNo]->getAllocatedType(), + Allocas[AllocaNo]->getName() + "." + + utostr(Version++), BB->begin()); + BBPNs[AllocaNo] = PN; + InsertedPHINodes.insert(PN); + + if (AST && isa(PN->getType())) + AST->copyValue(PointerAllocaValues[AllocaNo], PN); + + return true; } -bool PromoteInstance::PromoteMethod(Method *M, DominanceFrontier & DF) { - // Calculate the set of safe allocas - findSafeAllocas(M); - - // Add each alloca to the killlist - // note: killlist is destroyed MOST recently added to least recently. - killlist.assign(Allocas.begin(), Allocas.end()); - - // Calculate the set of write-locations for each alloca. - // this is analogous to counting the number of 'redefinitions' of each variable. - for (unsigned i = 0; i()); //add a new set - for (Value::use_iterator U = AI->use_begin();U!=AI->use_end();++U) - { - if (MemAccessInst *MAI = dyn_cast(*U)) { - WriteSets[i].push_back(MAI->getParent()); // jot down the basic-block it came from - } - } - } - - // Compute the locations where PhiNodes need to be inserted - // look at the dominance frontier of EACH basic-block we have a write in - PhiNodes.resize(Allocas.size()); - for (unsigned i = 0; isecond; - for (DominanceFrontier::DomSetType::iterator p = s.begin(); p!=s.end(); ++p) - { - if (queuePhiNode((BasicBlock *)*p,i)) - PhiNodes[i].push_back((BasicBlock*)*p); - } - } - } - - // Walks all basic blocks in the method - // performing the SSA rename algorithm - // and inserting the phi nodes we marked as necessary - BasicBlock * f = M->front(); //get root basic-block - - CurrentValue.push_back(vector(Allocas.size())); - - traverse(f, NULL); // there is no predecessor of the root node - - - // ** REMOVE EVERYTHING IN THE KILL-LIST ** - // we need to kill 'uses' before root values - // so we should probably run through in reverse - for (vector::reverse_iterator i = killlist.rbegin(); i!=killlist.rend(); ++i) - { - Instruction * r = *i; - BasicBlock * o = r->getParent(); - //now go find.. - - BasicBlock::InstListType & l = o->getInstList(); - o->getInstList().remove(r); - delete r; - } - - return !Allocas.empty(); -} +// RenamePass - Recursively traverse the CFG of the function, renaming loads and +// stores to the allocas which we are promoting. IncomingVals indicates what +// value each Alloca contains on exit from the predecessor block Pred. +// +void PromoteMem2Reg::RenamePass(BasicBlock *BB, BasicBlock *Pred, + std::vector &IncomingVals) { + + // If this BB needs a PHI node, update the PHI node for each variable we need + // PHI nodes for. + std::map >::iterator + BBPNI = NewPhiNodes.find(BB); + if (BBPNI != NewPhiNodes.end()) { + std::vector &BBPNs = BBPNI->second; + for (unsigned k = 0; k != BBPNs.size(); ++k) + if (PHINode *PN = BBPNs[k]) { + // Add this incoming value to the PHI node. + PN->addIncoming(IncomingVals[k], Pred); + + // The currently active variable for this block is now the PHI. + IncomingVals[k] = PN; + } + } + + // don't revisit nodes + if (Visited.count(BB)) return; + // mark as visited + Visited.insert(BB); + for (BasicBlock::iterator II = BB->begin(); !isa(II); ) { + Instruction *I = II++; // get the instruction, increment iterator -void PromoteInstance::traverse(BasicBlock *f, BasicBlock * predecessor) -{ - vector * tos = &CurrentValue.back(); //look at top- - - //if this is a BB needing a phi node, lookup/create the phinode for - // each variable we need phinodes for. - map >::iterator nd = new_phinodes.find(f); - if (nd!=new_phinodes.end()) - { - for (unsigned k = 0; k!=nd->second.size(); ++k) - if (nd->second[k]) - { - //at this point we can assume that the array has phi nodes.. let's - // add the incoming data - if ((*tos)[k]) - nd->second[k]->addIncoming((*tos)[k],predecessor); - //also note that the active variable IS designated by the phi node - (*tos)[k] = nd->second[k]; - } - } - - //don't revisit nodes - if (visited.find(f)!=visited.end()) - return; - //mark as visited - visited.insert(f); - - BasicBlock::iterator i = f->begin(); - //keep track of the value of each variable we're watching.. how? - while(i!=f->end()) - { - Instruction * inst = *i; //get the instruction - //is this a write/read? - if (LoadInst * LI = dyn_cast(inst)) - { - // This is a bit weird... - Value * ptr = LI->getPointerOperand(); //of type value - if (AllocaInst * srcinstr = dyn_cast(ptr)) - { - map::iterator ai = AllocaLookup.find(srcinstr); - if (ai!=AllocaLookup.end()) - { - if (Value *r = (*tos)[ai->second]) - { - //walk the use list of this load and replace - // all uses with r - LI->replaceAllUsesWith(r); - //now delete the instruction.. somehow.. - killlist.push_back((Instruction *)LI); - } - } - } - } - else if (StoreInst * SI = dyn_cast(inst)) - { - // delete this instruction and mark the name as the - // current holder of the value - Value * ptr = SI->getPointerOperand(); //of type value - if (Instruction * srcinstr = dyn_cast(ptr)) - { - map::iterator ai = AllocaLookup.find(srcinstr); - if (ai!=AllocaLookup.end()) - { - //what value were we writing? - Value * writeval = SI->getOperand(0); - //write down... - (*tos)[ai->second] = writeval; - //now delete it.. somehow? - killlist.push_back((Instruction *)SI); - } - } - - } - else if (TerminatorInst * TI = dyn_cast(inst)) - { - // Recurse across our sucessors - for (unsigned i = 0; i!=TI->getNumSuccessors(); i++) - { - CurrentValue.push_back(CurrentValue.back()); - traverse(TI->getSuccessor(i),f); //this node IS the predecessor - CurrentValue.pop_back(); - } - } - i++; - } + if (LoadInst *LI = dyn_cast(I)) { + if (AllocaInst *Src = dyn_cast(LI->getPointerOperand())) { + std::map::iterator AI = AllocaLookup.find(Src); + if (AI != AllocaLookup.end()) { + Value *V = IncomingVals[AI->second]; + + // walk the use list of this load and replace all uses with r + LI->replaceAllUsesWith(V); + if (AST && isa(LI->getType())) + AST->deleteValue(LI); + BB->getInstList().erase(LI); + } + } + } else if (StoreInst *SI = dyn_cast(I)) { + // Delete this instruction and mark the name as the current holder of the + // value + if (AllocaInst *Dest = dyn_cast(SI->getPointerOperand())) { + std::map::iterator ai = AllocaLookup.find(Dest); + if (ai != AllocaLookup.end()) { + // what value were we writing? + IncomingVals[ai->second] = SI->getOperand(0); + BB->getInstList().erase(SI); + } + } + } + } + + // Recurse to our successors. + TerminatorInst *TI = BB->getTerminator(); + for (unsigned i = 0; i != TI->getNumSuccessors(); i++) { + std::vector OutgoingVals(IncomingVals); + RenamePass(TI->getSuccessor(i), BB, OutgoingVals); + } } -// queues a phi-node to be added to a basic-block for a specific Alloca -// returns true if there wasn't already a phi-node for that variable - - -bool PromoteInstance::queuePhiNode(BasicBlock *bb, int i /*the alloca*/) -{ - map >::iterator nd; - //look up the basic-block in question - nd = new_phinodes.find(bb); - //if the basic-block has no phi-nodes added, or at least none - //for the i'th alloca. then add. - if (nd==new_phinodes.end() || nd->second[i]==NULL) - { - //we're not added any phi nodes to this basicblock yet - // create the phi-node array. - if (nd==new_phinodes.end()) - { - new_phinodes[bb] = vector(Allocas.size()); - nd = new_phinodes.find(bb); - } - - //find the type the alloca returns - const PointerType * pt = Allocas[i]->getType(); - //create a phi-node using the DEREFERENCED type - PHINode * ph = new PHINode(pt->getElementType(), Allocas[i]->getName()+".mem2reg"); - nd->second[i] = ph; - //add the phi-node to the basic-block - bb->getInstList().push_front(ph); - return true; - } - return false; +/// PromoteMemToReg - Promote the specified list of alloca instructions into +/// scalar registers, inserting PHI nodes as appropriate. This function makes +/// use of DominanceFrontier information. This function does not modify the CFG +/// of the function at all. All allocas must be from the same function. +/// +/// If AST is specified, the specified tracker is updated to reflect changes +/// made to the IR. +/// +void llvm::PromoteMemToReg(const std::vector &Allocas, + DominatorTree &DT, DominanceFrontier &DF, + const TargetData &TD, AliasSetTracker *AST) { + // If there is nothing to do, bail out... + if (Allocas.empty()) return; + + SmallVector RetryList; + PromoteMem2Reg(Allocas, RetryList, DT, DF, TD, AST).run(); + + // PromoteMem2Reg may not have been able to promote all of the allocas in one + // pass, run it again if needed. + std::vector NewAllocas; + while (!RetryList.empty()) { + // If we need to retry some allocas, this is due to there being no store + // before a read in a local block. To counteract this, insert a store of + // undef into the alloca right after the alloca itself. + for (unsigned i = 0, e = RetryList.size(); i != e; ++i) { + BasicBlock::iterator BBI = RetryList[i]; + + new StoreInst(UndefValue::get(RetryList[i]->getAllocatedType()), + RetryList[i], ++BBI); + } + + NewAllocas.assign(RetryList.begin(), RetryList.end()); + RetryList.clear(); + PromoteMem2Reg(NewAllocas, RetryList, DT, DF, TD, AST).run(); + NewAllocas.clear(); + } }