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 
19*d1e2aaefSChris Lattner bool DisableSimplifyCFG = false;
20*d1e2aaefSChris Lattner 
218d8de422SChris Lattner namespace {
228d8de422SChris Lattner   cl::opt<bool>
238d8de422SChris Lattner   NoADCE("disable-adce",
248d8de422SChris Lattner          cl::desc("Do not use the -adce pass to reduce testcases"));
258d8de422SChris Lattner   cl::opt<bool>
268d8de422SChris Lattner   NoDCE ("disable-dce",
278d8de422SChris Lattner          cl::desc("Do not use the -dce pass to reduce testcases"));
28*d1e2aaefSChris Lattner   cl::opt<bool, true>
29*d1e2aaefSChris Lattner   NoSCFG("disable-simplifycfg", cl::location(DisableSimplifyCFG),
308d8de422SChris Lattner          cl::desc("Do not use the -simplifycfg pass to reduce testcases"));
31d9b15958SChris Lattner   cl::opt<bool>
32d9b15958SChris Lattner   NoFinalCleanup("disable-final-cleanup",
33d9b15958SChris Lattner                  cl::desc("Disable the final cleanup phase of narrowing"));
348d8de422SChris Lattner }
3573a6bdd9SChris Lattner 
360eb5ce94SChris Lattner /// deleteInstructionFromProgram - This method clones the current Program and
370eb5ce94SChris Lattner /// deletes the specified instruction from the cloned module.  It then runs a
380eb5ce94SChris Lattner /// series of cleanup passes (ADCE and SimplifyCFG) to eliminate any code which
390eb5ce94SChris Lattner /// depends on the value.  The modified module is then returned.
400eb5ce94SChris Lattner ///
410eb5ce94SChris Lattner Module *BugDriver::deleteInstructionFromProgram(Instruction *I,
420eb5ce94SChris Lattner                                                 unsigned Simplification) const {
430eb5ce94SChris Lattner   Module *Result = CloneModule(Program);
440eb5ce94SChris Lattner 
450eb5ce94SChris Lattner   BasicBlock *PBB = I->getParent();
460eb5ce94SChris Lattner   Function *PF = PBB->getParent();
470eb5ce94SChris Lattner 
480eb5ce94SChris Lattner   Module::iterator RFI = Result->begin(); // Get iterator to corresponding fn
490eb5ce94SChris Lattner   std::advance(RFI, std::distance(Program->begin(), Module::iterator(PF)));
500eb5ce94SChris Lattner 
510eb5ce94SChris Lattner   Function::iterator RBI = RFI->begin();  // Get iterator to corresponding BB
520eb5ce94SChris Lattner   std::advance(RBI, std::distance(PF->begin(), Function::iterator(PBB)));
530eb5ce94SChris Lattner 
540eb5ce94SChris Lattner   BasicBlock::iterator RI = RBI->begin(); // Get iterator to corresponding inst
550eb5ce94SChris Lattner   std::advance(RI, std::distance(PBB->begin(), BasicBlock::iterator(I)));
560eb5ce94SChris Lattner   I = RI;                                 // Got the corresponding instruction!
570eb5ce94SChris Lattner 
580eb5ce94SChris Lattner   // If this instruction produces a value, replace any users with null values
590eb5ce94SChris Lattner   if (I->getType() != Type::VoidTy)
600eb5ce94SChris Lattner     I->replaceAllUsesWith(Constant::getNullValue(I->getType()));
610eb5ce94SChris Lattner 
620eb5ce94SChris Lattner   // Remove the instruction from the program.
630eb5ce94SChris Lattner   I->getParent()->getInstList().erase(I);
640eb5ce94SChris Lattner 
6510c0469bSChris Lattner   // Spiff up the output a little bit.
660eb5ce94SChris Lattner   PassManager Passes;
678d8de422SChris Lattner   if (Simplification > 2 && !NoADCE)
680eb5ce94SChris Lattner     Passes.add(createAggressiveDCEPass());          // Remove dead code...
690eb5ce94SChris Lattner   //Passes.add(createInstructionCombiningPass());
708d8de422SChris Lattner   if (Simplification > 1 && !NoDCE)
710eb5ce94SChris Lattner     Passes.add(createDeadCodeEliminationPass());
72*d1e2aaefSChris Lattner   if (Simplification && !DisableSimplifyCFG)
730eb5ce94SChris Lattner     Passes.add(createCFGSimplificationPass());      // Delete dead control flow
7444ffd7c3SChris Lattner 
7544ffd7c3SChris Lattner   Passes.add(createVerifierPass());
760eb5ce94SChris Lattner   Passes.run(*Result);
770eb5ce94SChris Lattner   return Result;
780eb5ce94SChris Lattner }
79514c02ebSChris Lattner 
80514c02ebSChris Lattner /// performFinalCleanups - This method clones the current Program and performs
81514c02ebSChris Lattner /// a series of cleanups intended to get rid of extra cruft on the module
82514c02ebSChris Lattner /// before handing it to the user...
83514c02ebSChris Lattner ///
84f7e12540SChris Lattner Module *BugDriver::performFinalCleanups(Module *InM) const {
85f7e12540SChris Lattner   Module *M = InM ? InM : CloneModule(Program);
862b3ab562SChris Lattner 
87d9b15958SChris Lattner   // Allow disabling these passes if they crash bugpoint.
88d9b15958SChris Lattner   //
89d9b15958SChris Lattner   // FIXME: This should eventually run these passes in a pass list to prevent
90d9b15958SChris Lattner   // them from being able to crash bugpoint at all!
91d9b15958SChris Lattner   //
92d9b15958SChris Lattner   if (NoFinalCleanup) return M;
93d9b15958SChris Lattner 
942b3ab562SChris Lattner   // Make all functions external, so GlobalDCE doesn't delete them...
952b3ab562SChris Lattner   for (Module::iterator I = M->begin(), E = M->end(); I != E; ++I)
962b3ab562SChris Lattner     I->setLinkage(GlobalValue::ExternalLinkage);
972b3ab562SChris Lattner 
98514c02ebSChris Lattner   PassManager CleanupPasses;
99514c02ebSChris Lattner   CleanupPasses.add(createFunctionResolvingPass());
100514c02ebSChris Lattner   CleanupPasses.add(createGlobalDCEPass());
101b0143880SChris Lattner   CleanupPasses.add(createDeadTypeEliminationPass());
102f7e12540SChris Lattner   CleanupPasses.add(createDeadArgEliminationPass(InM == 0));
10344ffd7c3SChris Lattner   CleanupPasses.add(createVerifierPass());
104514c02ebSChris Lattner   CleanupPasses.run(*M);
105514c02ebSChris Lattner   return M;
106514c02ebSChris Lattner }
107