173a6bdd9SChris Lattner //===- ExtractFunction.cpp - Extract a function from Program --------------===//
273a6bdd9SChris Lattner //
373a6bdd9SChris Lattner // This file implements a method that extracts a function from program, cleans
473a6bdd9SChris Lattner // it up, and returns it as a new module.
573a6bdd9SChris Lattner //
673a6bdd9SChris Lattner //===----------------------------------------------------------------------===//
773a6bdd9SChris Lattner 
873a6bdd9SChris Lattner #include "BugDriver.h"
973a6bdd9SChris Lattner #include "llvm/Module.h"
1073a6bdd9SChris Lattner #include "llvm/PassManager.h"
1173a6bdd9SChris Lattner #include "llvm/Transforms/IPO.h"
120eb5ce94SChris Lattner #include "llvm/Transforms/Scalar.h"
1373a6bdd9SChris Lattner #include "llvm/Transforms/Utils/Cloning.h"
1444ffd7c3SChris Lattner #include "llvm/Analysis/Verifier.h"
150eb5ce94SChris Lattner #include "llvm/Type.h"
160eb5ce94SChris Lattner #include "llvm/Constant.h"
178d8de422SChris Lattner #include "Support/CommandLine.h"
188d8de422SChris Lattner 
198d8de422SChris Lattner namespace {
208d8de422SChris Lattner   cl::opt<bool>
218d8de422SChris Lattner   NoADCE("disable-adce",
228d8de422SChris Lattner          cl::desc("Do not use the -adce pass to reduce testcases"));
238d8de422SChris Lattner   cl::opt<bool>
248d8de422SChris Lattner   NoDCE ("disable-dce",
258d8de422SChris Lattner          cl::desc("Do not use the -dce pass to reduce testcases"));
268d8de422SChris Lattner   cl::opt<bool>
278d8de422SChris Lattner   NoSCFG("disable-simplifycfg",
288d8de422SChris Lattner          cl::desc("Do not use the -simplifycfg pass to reduce testcases"));
29*d9b15958SChris Lattner   cl::opt<bool>
30*d9b15958SChris Lattner   NoFinalCleanup("disable-final-cleanup",
31*d9b15958SChris Lattner                  cl::desc("Disable the final cleanup phase of narrowing"));
328d8de422SChris Lattner }
3373a6bdd9SChris Lattner 
340eb5ce94SChris Lattner /// deleteInstructionFromProgram - This method clones the current Program and
350eb5ce94SChris Lattner /// deletes the specified instruction from the cloned module.  It then runs a
360eb5ce94SChris Lattner /// series of cleanup passes (ADCE and SimplifyCFG) to eliminate any code which
370eb5ce94SChris Lattner /// depends on the value.  The modified module is then returned.
380eb5ce94SChris Lattner ///
390eb5ce94SChris Lattner Module *BugDriver::deleteInstructionFromProgram(Instruction *I,
400eb5ce94SChris Lattner                                                 unsigned Simplification) const {
410eb5ce94SChris Lattner   Module *Result = CloneModule(Program);
420eb5ce94SChris Lattner 
430eb5ce94SChris Lattner   BasicBlock *PBB = I->getParent();
440eb5ce94SChris Lattner   Function *PF = PBB->getParent();
450eb5ce94SChris Lattner 
460eb5ce94SChris Lattner   Module::iterator RFI = Result->begin(); // Get iterator to corresponding fn
470eb5ce94SChris Lattner   std::advance(RFI, std::distance(Program->begin(), Module::iterator(PF)));
480eb5ce94SChris Lattner 
490eb5ce94SChris Lattner   Function::iterator RBI = RFI->begin();  // Get iterator to corresponding BB
500eb5ce94SChris Lattner   std::advance(RBI, std::distance(PF->begin(), Function::iterator(PBB)));
510eb5ce94SChris Lattner 
520eb5ce94SChris Lattner   BasicBlock::iterator RI = RBI->begin(); // Get iterator to corresponding inst
530eb5ce94SChris Lattner   std::advance(RI, std::distance(PBB->begin(), BasicBlock::iterator(I)));
540eb5ce94SChris Lattner   I = RI;                                 // Got the corresponding instruction!
550eb5ce94SChris Lattner 
560eb5ce94SChris Lattner   // If this instruction produces a value, replace any users with null values
570eb5ce94SChris Lattner   if (I->getType() != Type::VoidTy)
580eb5ce94SChris Lattner     I->replaceAllUsesWith(Constant::getNullValue(I->getType()));
590eb5ce94SChris Lattner 
600eb5ce94SChris Lattner   // Remove the instruction from the program.
610eb5ce94SChris Lattner   I->getParent()->getInstList().erase(I);
620eb5ce94SChris Lattner 
6310c0469bSChris Lattner   // Spiff up the output a little bit.
640eb5ce94SChris Lattner   PassManager Passes;
658d8de422SChris Lattner   if (Simplification > 2 && !NoADCE)
660eb5ce94SChris Lattner     Passes.add(createAggressiveDCEPass());          // Remove dead code...
670eb5ce94SChris Lattner   //Passes.add(createInstructionCombiningPass());
688d8de422SChris Lattner   if (Simplification > 1 && !NoDCE)
690eb5ce94SChris Lattner     Passes.add(createDeadCodeEliminationPass());
708d8de422SChris Lattner   if (Simplification && !NoSCFG)
710eb5ce94SChris Lattner     Passes.add(createCFGSimplificationPass());      // Delete dead control flow
7244ffd7c3SChris Lattner 
7344ffd7c3SChris Lattner   Passes.add(createVerifierPass());
740eb5ce94SChris Lattner   Passes.run(*Result);
750eb5ce94SChris Lattner   return Result;
760eb5ce94SChris Lattner }
77514c02ebSChris Lattner 
78514c02ebSChris Lattner /// performFinalCleanups - This method clones the current Program and performs
79514c02ebSChris Lattner /// a series of cleanups intended to get rid of extra cruft on the module
80514c02ebSChris Lattner /// before handing it to the user...
81514c02ebSChris Lattner ///
82514c02ebSChris Lattner Module *BugDriver::performFinalCleanups() const {
83b0143880SChris Lattner   Module *M = CloneModule(Program);
842b3ab562SChris Lattner 
85*d9b15958SChris Lattner   // Allow disabling these passes if they crash bugpoint.
86*d9b15958SChris Lattner   //
87*d9b15958SChris Lattner   // FIXME: This should eventually run these passes in a pass list to prevent
88*d9b15958SChris Lattner   // them from being able to crash bugpoint at all!
89*d9b15958SChris Lattner   //
90*d9b15958SChris Lattner   if (NoFinalCleanup) return M;
91*d9b15958SChris Lattner 
922b3ab562SChris Lattner   // Make all functions external, so GlobalDCE doesn't delete them...
932b3ab562SChris Lattner   for (Module::iterator I = M->begin(), E = M->end(); I != E; ++I)
942b3ab562SChris Lattner     I->setLinkage(GlobalValue::ExternalLinkage);
952b3ab562SChris Lattner 
96514c02ebSChris Lattner   PassManager CleanupPasses;
97514c02ebSChris Lattner   CleanupPasses.add(createFunctionResolvingPass());
98514c02ebSChris Lattner   CleanupPasses.add(createGlobalDCEPass());
99b0143880SChris Lattner   CleanupPasses.add(createDeadTypeEliminationPass());
10044ffd7c3SChris Lattner   CleanupPasses.add(createVerifierPass());
101514c02ebSChris Lattner   CleanupPasses.run(*M);
102514c02ebSChris Lattner   return M;
103514c02ebSChris Lattner }
104