Fix bug: ADCE/2003-01-22-PredecessorProblem.ll
[oota-llvm.git] / lib / Transforms / Scalar / ADCE.cpp
index 4c0169171b245f0c5ea571f31f5273b30491454b..24ccee60344bd76b9663b9ebbd1e1639d413d780 100644 (file)
@@ -8,21 +8,23 @@
 
 #include "llvm/Transforms/Scalar.h"
 #include "llvm/Transforms/Utils/Local.h"
+#include "llvm/Transforms/Utils/BasicBlockUtils.h"
 #include "llvm/Type.h"
-#include "llvm/Analysis/Dominators.h"
-#include "llvm/Analysis/Writer.h"
+#include "llvm/Analysis/PostDominators.h"
 #include "llvm/iTerminators.h"
 #include "llvm/iPHINode.h"
+#include "llvm/Constant.h"
 #include "llvm/Support/CFG.h"
 #include "Support/STLExtras.h"
 #include "Support/DepthFirstIterator.h"
+#include "Support/Statistic.h"
 #include <algorithm>
-#include <iostream>
 using std::cerr;
-
-#define DEBUG_ADCE 1
+using std::vector;
 
 namespace {
+  Statistic<> NumBlockRemoved("adce", "Number of basic blocks removed");
+  Statistic<> NumInstRemoved ("adce", "Number of instructions removed");
 
 //===----------------------------------------------------------------------===//
 // ADCE Class
@@ -34,27 +36,25 @@ class ADCE : public FunctionPass {
   Function *Func;                       // The function that we are working on
   std::vector<Instruction*> WorkList;   // Instructions that just became live
   std::set<Instruction*>    LiveSet;    // The set of live instructions
-  bool MadeChanges;
 
   //===--------------------------------------------------------------------===//
   // The public interface for this class
   //
 public:
-  const char *getPassName() const { return "Aggressive Dead Code Elimination"; }
-  
-  // doADCE - Execute the Aggressive Dead Code Elimination Algorithm
+  // Execute the Aggressive Dead Code Elimination Algorithm
   //
-  virtual bool runOnFunction(Function *F) {
-    Func = F; MadeChanges = false;
-    doADCE(getAnalysis<DominanceFrontier>(DominanceFrontier::PostDomID));
+  virtual bool runOnFunction(Function &F) {
+    Func = &F;
+    bool Changed = doADCE();
     assert(WorkList.empty());
     LiveSet.clear();
-    return MadeChanges;
+    return Changed;
   }
   // getAnalysisUsage - We require post dominance frontiers (aka Control
   // Dependence Graph)
   virtual void getAnalysisUsage(AnalysisUsage &AU) const {
-    AU.addRequired(DominanceFrontier::PostDomID);
+    AU.addRequired<PostDominatorTree>();
+    AU.addRequired<PostDominanceFrontier>();
   }
 
 
@@ -65,45 +65,84 @@ private:
   // doADCE() - Run the Aggressive Dead Code Elimination algorithm, returning
   // true if the function was modified.
   //
-  void doADCE(DominanceFrontier &CDG);
+  bool doADCE();
+
+  void markBlockAlive(BasicBlock *BB);
+
+
+  // dropReferencesOfDeadInstructionsInLiveBlock - Loop over all of the
+  // instructions in the specified basic block, dropping references on
+  // instructions that are dead according to LiveSet.
+  bool dropReferencesOfDeadInstructionsInLiveBlock(BasicBlock *BB);
 
   inline void markInstructionLive(Instruction *I) {
     if (LiveSet.count(I)) return;
-#ifdef DEBUG_ADCE
-    cerr << "Insn Live: " << I;
-#endif
+    DEBUG(cerr << "Insn Live: " << I);
     LiveSet.insert(I);
     WorkList.push_back(I);
   }
 
   inline void markTerminatorLive(const BasicBlock *BB) {
-#ifdef DEBUG_ADCE
-    cerr << "Terminat Live: " << BB->getTerminator();
-#endif
+    DEBUG(cerr << "Terminat Live: " << BB->getTerminator());
     markInstructionLive((Instruction*)BB->getTerminator());
   }
-
-  // fixupCFG - Walk the CFG in depth first order, eliminating references to 
-  // dead blocks.
-  //
-  BasicBlock *fixupCFG(BasicBlock *Head, std::set<BasicBlock*> &VisitedBlocks,
-                      const std::set<BasicBlock*> &AliveBlocks);
 };
 
+  RegisterOpt<ADCE> X("adce", "Aggressive Dead Code Elimination");
 } // End of anonymous namespace
 
-Pass *createAggressiveDCEPass() {
-  return new ADCE();
+Pass *createAggressiveDCEPass() { return new ADCE(); }
+
+void ADCE::markBlockAlive(BasicBlock *BB) {
+  // Mark the basic block as being newly ALIVE... and mark all branches that
+  // this block is control dependant on as being alive also...
+  //
+  PostDominanceFrontier &CDG = getAnalysis<PostDominanceFrontier>();
+
+  PostDominanceFrontier::const_iterator It = CDG.find(BB);
+  if (It != CDG.end()) {
+    // Get the blocks that this node is control dependant on...
+    const PostDominanceFrontier::DomSetType &CDB = It->second;
+    for_each(CDB.begin(), CDB.end(),   // Mark all their terminators as live
+             bind_obj(this, &ADCE::markTerminatorLive));
+  }
+  
+  // If this basic block is live, then the terminator must be as well!
+  markTerminatorLive(BB);
+}
+
+// dropReferencesOfDeadInstructionsInLiveBlock - Loop over all of the
+// instructions in the specified basic block, dropping references on
+// instructions that are dead according to LiveSet.
+bool ADCE::dropReferencesOfDeadInstructionsInLiveBlock(BasicBlock *BB) {
+  bool Changed = false;
+  for (BasicBlock::iterator I = BB->begin(), E = --BB->end(); I != E; )
+    if (!LiveSet.count(I)) {              // Is this instruction alive?
+      I->dropAllReferences();             // Nope, drop references... 
+      if (PHINode *PN = dyn_cast<PHINode>(&*I)) {
+        // We don't want to leave PHI nodes in the program that have
+        // #arguments != #predecessors, so we remove them now.
+        //
+        PN->replaceAllUsesWith(Constant::getNullValue(PN->getType()));
+        
+        // Delete the instruction...
+        I = BB->getInstList().erase(I);
+        Changed = true;
+      } else {
+        ++I;
+      }
+    } else {
+      ++I;
+    }
+  return Changed;
 }
 
 
 // doADCE() - Run the Aggressive Dead Code Elimination algorithm, returning
 // true if the function was modified.
 //
-void ADCE::doADCE(DominanceFrontier &CDG) {
-#ifdef DEBUG_ADCE
-  cerr << "Function: " << Func;
-#endif
+bool ADCE::doADCE() {
+  bool MadeChanges = false;
 
   // Iterate over all of the instructions in the function, eliminating trivially
   // dead instructions, and marking instructions live that are known to be 
@@ -115,14 +154,13 @@ void ADCE::doADCE(DominanceFrontier &CDG) {
        BBI != BBE; ++BBI) {
     BasicBlock *BB = *BBI;
     for (BasicBlock::iterator II = BB->begin(), EI = BB->end(); II != EI; ) {
-      Instruction *I = *II;
-
-      if (I->hasSideEffects() || I->getOpcode() == Instruction::Ret) {
-       markInstructionLive(I);
+      if (II->hasSideEffects() || II->getOpcode() == Instruction::Ret) {
+       markInstructionLive(II);
         ++II;  // Increment the inst iterator if the inst wasn't deleted
-      } else if (isInstructionTriviallyDead(I)) {
+      } else if (isInstructionTriviallyDead(II)) {
         // Remove the instruction from it's basic block...
-        delete BB->getInstList().remove(II);
+        II = BB->getInstList().erase(II);
+        ++NumInstRemoved;
         MadeChanges = true;
       } else {
         ++II;  // Increment the inst iterator if the inst wasn't deleted
@@ -130,9 +168,7 @@ void ADCE::doADCE(DominanceFrontier &CDG) {
     }
   }
 
-#ifdef DEBUG_ADCE
-  cerr << "Processing work list\n";
-#endif
+  DEBUG(cerr << "Processing work list\n");
 
   // AliveBlocks - Set of basic blocks that we know have instructions that are
   // alive in them...
@@ -148,23 +184,22 @@ void ADCE::doADCE(DominanceFrontier &CDG) {
     WorkList.pop_back();
 
     BasicBlock *BB = I->getParent();
-    if (AliveBlocks.count(BB) == 0) {   // Basic block not alive yet...
-      // Mark the basic block as being newly ALIVE... and mark all branches that
-      // this block is control dependant on as being alive also...
-      //
-      AliveBlocks.insert(BB);   // Block is now ALIVE!
-      DominanceFrontier::const_iterator It = CDG.find(BB);
-      if (It != CDG.end()) {
-       // Get the blocks that this node is control dependant on...
-       const DominanceFrontier::DomSetType &CDB = It->second;
-       for_each(CDB.begin(), CDB.end(),   // Mark all their terminators as live
-                bind_obj(this, &ADCE::markTerminatorLive));
-      }
-
-      // If this basic block is live, then the terminator must be as well!
-      markTerminatorLive(BB);
+    if (!AliveBlocks.count(BB)) {     // Basic block not alive yet...
+      AliveBlocks.insert(BB);         // Block is now ALIVE!
+      markBlockAlive(BB);             // Make it so now!
     }
 
+    // PHI nodes are a special case, because the incoming values are actually
+    // defined in the predecessor nodes of this block, meaning that the PHI
+    // makes the predecessors alive.
+    //
+    if (PHINode *PN = dyn_cast<PHINode>(I))
+      for (pred_iterator PI = pred_begin(BB), PE = pred_end(BB); PI != PE; ++PI)
+        if (!AliveBlocks.count(*PI)) {
+          AliveBlocks.insert(BB);         // Block is now ALIVE!
+          markBlockAlive(*PI);
+        }
+
     // Loop over all of the operands of the live instruction, making sure that
     // they are known to be alive as well...
     //
@@ -173,136 +208,191 @@ void ADCE::doADCE(DominanceFrontier &CDG) {
        markInstructionLive(Operand);
   }
 
-#ifdef DEBUG_ADCE
-  cerr << "Current Function: X = Live\n";
-  for (Function::iterator I = Func->begin(), E = Func->end(); I != E; ++I)
-    for (BasicBlock::iterator BI = (*I)->begin(), BE = (*I)->end();
-         BI != BE; ++BI) {
-      if (LiveSet.count(*BI)) cerr << "X ";
-      cerr << *BI;
-    }
-#endif
+  if (DebugFlag) {
+    cerr << "Current Function: X = Live\n";
+    for (Function::iterator I = Func->begin(), E = Func->end(); I != E; ++I)
+      for (BasicBlock::iterator BI = I->begin(), BE = I->end(); BI != BE; ++BI){
+        if (LiveSet.count(BI)) cerr << "X ";
+        cerr << *BI;
+      }
+  }
 
-  // After the worklist is processed, recursively walk the CFG in depth first
-  // order, patching up references to dead blocks...
+  // Find the first postdominator of the entry node that is alive.  Make it the
+  // new entry node...
   //
-  std::set<BasicBlock*> VisitedBlocks;
-  BasicBlock *EntryBlock = fixupCFG(Func->front(), VisitedBlocks, AliveBlocks);
+  PostDominatorTree &DT = getAnalysis<PostDominatorTree>();
 
-  // Now go through and tell dead blocks to drop all of their references so they
-  // can be safely deleted.  Also, as we are doing so, if the block has
-  // successors that are still live (and that have PHI nodes in them), remove
-  // the entry for this block from the phi nodes.
-  //
-  for (Function::iterator BI = Func->begin(), BE = Func->end(); BI != BE; ++BI){
-    BasicBlock *BB = *BI;
-    if (!AliveBlocks.count(BB)) {
-      // Remove entries from successors PHI nodes if they are still alive...
-      for (succ_iterator SI = succ_begin(BB), SE = succ_end(BB); SI != SE; ++SI)
-        if (AliveBlocks.count(*SI)) {  // Only if the successor is alive...
-          BasicBlock *Succ = *SI;
-          for (BasicBlock::iterator I = Succ->begin();// Loop over all PHI nodes
-               PHINode *PN = dyn_cast<PHINode>(*I); ++I)
-            PN->removeIncomingValue(BB);         // Remove value for this block
-        }
 
-      BB->dropAllReferences();
+  if (AliveBlocks.size() == Func->size()) {  // No dead blocks?
+    for (Function::iterator I = Func->begin(), E = Func->end(); I != E; ++I)
+      // Loop over all of the instructions in the function, telling dead
+      // instructions to drop their references.  This is so that the next sweep
+      // over the program can safely delete dead instructions without other dead
+      // instructions still refering to them.
+      //
+      dropReferencesOfDeadInstructionsInLiveBlock(I);
+    
+  } else {                                   // If there are some blocks dead...
+    // If the entry node is dead, insert a new entry node to eliminate the entry
+    // node as a special case.
+    //
+    if (!AliveBlocks.count(&Func->front())) {
+      BasicBlock *NewEntry = new BasicBlock();
+      NewEntry->getInstList().push_back(new BranchInst(&Func->front()));
+      Func->getBasicBlockList().push_front(NewEntry);
+      AliveBlocks.insert(NewEntry);    // This block is always alive!
     }
+    
+    // Loop over all of the alive blocks in the function.  If any successor
+    // blocks are not alive, we adjust the outgoing branches to branch to the
+    // first live postdominator of the live block, adjusting any PHI nodes in
+    // the block to reflect this.
+    //
+    for (Function::iterator I = Func->begin(), E = Func->end(); I != E; ++I)
+      if (AliveBlocks.count(I)) {
+        BasicBlock *BB = I;
+        TerminatorInst *TI = BB->getTerminator();
+      
+        // Loop over all of the successors, looking for ones that are not alive.
+        // We cannot save the number of successors in the terminator instruction
+        // here because we may remove them if we don't have a postdominator...
+        //
+        for (unsigned i = 0; i != TI->getNumSuccessors(); ++i)
+          if (!AliveBlocks.count(TI->getSuccessor(i))) {
+            // Scan up the postdominator tree, looking for the first
+            // postdominator that is alive, and the last postdominator that is
+            // dead...
+            //
+            PostDominatorTree::Node *LastNode = DT[TI->getSuccessor(i)];
+
+            // There is a special case here... if there IS no post-dominator for
+            // the block we have no owhere to point our branch to.  Instead,
+            // convert it to a return.  This can only happen if the code
+            // branched into an infinite loop.  Note that this may not be
+            // desirable, because we _are_ altering the behavior of the code.
+            // This is a well known drawback of ADCE, so in the future if we
+            // choose to revisit the decision, this is where it should be.
+            //
+            if (LastNode == 0) {        // No postdominator!
+              // Call RemoveSuccessor to transmogrify the terminator instruction
+              // to not contain the outgoing branch, or to create a new
+              // terminator if the form fundementally changes (ie unconditional
+              // branch to return).  Note that this will change a branch into an
+              // infinite loop into a return instruction!
+              //
+              RemoveSuccessor(TI, i);
+
+              // RemoveSuccessor may replace TI... make sure we have a fresh
+              // pointer... and e variable.
+              //
+              TI = BB->getTerminator();
+
+              // Rescan this successor...
+              --i;
+            } else {
+              PostDominatorTree::Node *NextNode = LastNode->getIDom();
+
+              while (!AliveBlocks.count(NextNode->getNode())) {
+                LastNode = NextNode;
+                NextNode = NextNode->getIDom();
+              }
+            
+              // Get the basic blocks that we need...
+              BasicBlock *LastDead = LastNode->getNode();
+              BasicBlock *NextAlive = NextNode->getNode();
+
+              // Make the conditional branch now go to the next alive block...
+              TI->getSuccessor(i)->removePredecessor(BB);
+              TI->setSuccessor(i, NextAlive);
+
+              // If there are PHI nodes in NextAlive, we need to add entries to
+              // the PHI nodes for the new incoming edge.  The incoming values
+              // should be identical to the incoming values for LastDead.
+              //
+              for (BasicBlock::iterator II = NextAlive->begin();
+                   PHINode *PN = dyn_cast<PHINode>(&*II); ++II) {
+                // Get the incoming value for LastDead...
+                int OldIdx = PN->getBasicBlockIndex(LastDead);
+                assert(OldIdx != -1 && "LastDead is not a pred of NextAlive!");
+                Value *InVal = PN->getIncomingValue(OldIdx);
+                
+                // Add an incoming value for BB now...
+                PN->addIncoming(InVal, BB);
+              }
+            }
+          }
+
+        // Now loop over all of the instructions in the basic block, telling
+        // dead instructions to drop their references.  This is so that the next
+        // sweep over the program can safely delete dead instructions without
+        // other dead instructions still refering to them.
+        //
+        dropReferencesOfDeadInstructionsInLiveBlock(BB);
+      }
   }
 
-  cerr << "Before Deleting Blocks: " << Func;
+  // We make changes if there are any dead blocks in the function...
+  if (unsigned NumDeadBlocks = Func->size() - AliveBlocks.size()) {
+    MadeChanges = true;
+    NumBlockRemoved += NumDeadBlocks;
+  }
 
-  // Now loop through all of the blocks and delete them.  We can safely do this
-  // now because we know that there are no references to dead blocks (because
-  // they have dropped all of their references...
+  // Loop over all of the basic blocks in the function, removing control flow
+  // edges to live blocks (also eliminating any entries in PHI functions in
+  // referenced blocks).
   //
-  for (Function::iterator BI = Func->begin(); BI != Func->end();) {
-    if (!AliveBlocks.count(*BI)) {
-      delete Func->getBasicBlocks().remove(BI);
-      MadeChanges = true;
-      continue;                                     // Don't increment iterator
+  for (Function::iterator BB = Func->begin(), E = Func->end(); BB != E; ++BB)
+    if (!AliveBlocks.count(BB)) {
+      // Remove all outgoing edges from this basic block and convert the
+      // terminator into a return instruction.
+      vector<BasicBlock*> Succs(succ_begin(BB), succ_end(BB));
+      
+      if (!Succs.empty()) {
+        // Loop over all of the successors, removing this block from PHI node
+        // entries that might be in the block...
+        while (!Succs.empty()) {
+          Succs.back()->removePredecessor(BB);
+          Succs.pop_back();
+        }
+        
+        // Delete the old terminator instruction...
+        BB->getInstList().pop_back();
+        const Type *RetTy = Func->getReturnType();
+        BB->getInstList().push_back(new ReturnInst(RetTy != Type::VoidTy ?
+                                           Constant::getNullValue(RetTy) : 0));
+      }
     }
-    ++BI;                                           // Increment iterator...
-  }
-
-  if (EntryBlock && EntryBlock != Func->front()) {
-    // We need to move the new entry block to be the first bb of the function
-    Function::iterator EBI = find(Func->begin(), Func->end(), EntryBlock);
-    std::swap(*EBI, *Func->begin()); // Exchange old location with start of fn
-  }
 
-  while (PHINode *PN = dyn_cast<PHINode>(EntryBlock->front())) {
-    assert(PN->getNumIncomingValues() == 1 &&
-           "Can only have a single incoming value at this point...");
-    // The incoming value must be outside of the scope of the function, a
-    // global variable, constant or parameter maybe...
-    //
-    PN->replaceAllUsesWith(PN->getIncomingValue(0));
-    
-    // Nuke the phi node...
-    delete EntryBlock->getInstList().remove(EntryBlock->begin());
-  }
-}
 
+  // Loop over all of the basic blocks in the function, dropping references of
+  // the dead basic blocks.  We must do this after the previous step to avoid
+  // dropping references to PHIs which still have entries...
+  //
+  for (Function::iterator BB = Func->begin(), E = Func->end(); BB != E; ++BB)
+    if (!AliveBlocks.count(BB))
+      BB->dropAllReferences();
 
-// fixupCFG - Walk the CFG in depth first order, eliminating references to 
-// dead blocks:
-//  If the BB is alive (in AliveBlocks):
-//   1. Eliminate all dead instructions in the BB
-//   2. Recursively traverse all of the successors of the BB:
-//      - If the returned successor is non-null, update our terminator to
-//         reference the returned BB
-//   3. Return 0 (no update needed)
-//
-//  If the BB is dead (not in AliveBlocks):
-//   1. Add the BB to the dead set
-//   2. Recursively traverse all of the successors of the block:
-//      - Only one shall return a nonnull value (or else this block should have
-//        been in the alive set).
-//   3. Return the nonnull child, or 0 if no non-null children.
-//
-BasicBlock *ADCE::fixupCFG(BasicBlock *BB, std::set<BasicBlock*> &VisitedBlocks,
-                          const std::set<BasicBlock*> &AliveBlocks) {
-  if (VisitedBlocks.count(BB)) return 0;   // Revisiting a node? No update.
-  VisitedBlocks.insert(BB);                // We have now visited this node!
-
-#ifdef DEBUG_ADCE
-  cerr << "Fixing up BB: " << BB;
-#endif
-
-  if (AliveBlocks.count(BB)) {             // Is the block alive?
-    // Yes it's alive: loop through and eliminate all dead instructions in block
-    for (BasicBlock::iterator II = BB->begin(); II != BB->end()-1; )
-      if (!LiveSet.count(*II)) {             // Is this instruction alive?
-       // Nope... remove the instruction from it's basic block...
-       delete BB->getInstList().remove(II);
-       MadeChanges = true;
-      } else {
-        ++II;
-      }
+  // Now loop through all of the blocks and delete the dead ones.  We can safely
+  // do this now because we know that there are no references to dead blocks
+  // (because they have dropped all of their references...  we also remove dead
+  // instructions from alive blocks.
+  //
+  for (Function::iterator BI = Func->begin(); BI != Func->end(); )
+    if (!AliveBlocks.count(BI)) {                // Delete dead blocks...
+      BI = Func->getBasicBlockList().erase(BI);
+    } else {                                     // Scan alive blocks...
+      for (BasicBlock::iterator II = BI->begin(); II != --BI->end(); )
+        if (!LiveSet.count(II)) {             // Is this instruction alive?
+          // Nope... remove the instruction from it's basic block...
+          II = BI->getInstList().erase(II);
+          ++NumInstRemoved;
+          MadeChanges = true;
+        } else {
+          ++II;
+        }
 
-    // Recursively traverse successors of this basic block.  
-    for (succ_iterator SI = succ_begin(BB), SE = succ_end(BB); SI != SE; ++SI) {
-      BasicBlock *Succ = *SI;
-      BasicBlock *Repl = fixupCFG(Succ, VisitedBlocks, AliveBlocks);
-      if (Repl && Repl != Succ) {          // We have to replace the successor
-       Succ->replaceAllUsesWith(Repl);
-       MadeChanges = true;
-      }
-    }
-    return BB;
-  } else {                                 // Otherwise the block is dead...
-    BasicBlock *ReturnBB = 0;              // Default to nothing live down here
-    
-    // Recursively traverse successors of this basic block.  
-    for (succ_iterator SI = succ_begin(BB), SE = succ_end(BB); SI != SE; ++SI) {
-      BasicBlock *RetBB = fixupCFG(*SI, VisitedBlocks, AliveBlocks);
-      if (RetBB) {
-       assert(ReturnBB == 0 && "At most one live child allowed!");
-       ReturnBB = RetBB;
-      }
+      ++BI;                                           // Increment iterator...
     }
-    return ReturnBB;                       // Return the result of traversal
-  }
-}
 
+  return MadeChanges;
+}