173a6bdd9SChris Lattner //===- ExtractFunction.cpp - Extract a function from Program --------------===//
273a6bdd9SChris Lattner //
309344dcfSJohn Criswell //                     The LLVM Compiler Infrastructure
409344dcfSJohn Criswell //
509344dcfSJohn Criswell // This file was developed by the LLVM research group and is distributed under
609344dcfSJohn Criswell // the University of Illinois Open Source License. See LICENSE.TXT for details.
709344dcfSJohn Criswell //
809344dcfSJohn Criswell //===----------------------------------------------------------------------===//
909344dcfSJohn Criswell //
10fd72bed3SChris Lattner // This file implements several methods that are used to extract functions,
11fd72bed3SChris Lattner // loops, or portions of a module from the rest of the module.
1273a6bdd9SChris Lattner //
1373a6bdd9SChris Lattner //===----------------------------------------------------------------------===//
1473a6bdd9SChris Lattner 
1573a6bdd9SChris Lattner #include "BugDriver.h"
160c2305b1SMisha Brukman #include "llvm/Constant.h"
1773a6bdd9SChris Lattner #include "llvm/Module.h"
1873a6bdd9SChris Lattner #include "llvm/PassManager.h"
19ef432703SBrian Gaeke #include "llvm/Pass.h"
200c2305b1SMisha Brukman #include "llvm/Type.h"
210c2305b1SMisha Brukman #include "llvm/Analysis/Verifier.h"
2273a6bdd9SChris Lattner #include "llvm/Transforms/IPO.h"
230eb5ce94SChris Lattner #include "llvm/Transforms/Scalar.h"
2473a6bdd9SChris Lattner #include "llvm/Transforms/Utils/Cloning.h"
25f3e8f97dSChris Lattner #include "llvm/Target/TargetData.h"
268d8de422SChris Lattner #include "Support/CommandLine.h"
27567543f0SChris Lattner #include "Support/Debug.h"
28233b0691SChris Lattner #include "Support/FileUtilities.h"
293f1ad878SChris Lattner using namespace llvm;
30960707c3SBrian Gaeke 
31960707c3SBrian Gaeke namespace llvm {
32d1e2aaefSChris Lattner   bool DisableSimplifyCFG = false;
33960707c3SBrian Gaeke } // End llvm namespace
34960707c3SBrian Gaeke 
358d8de422SChris Lattner namespace {
368d8de422SChris Lattner   cl::opt<bool>
378d8de422SChris Lattner   NoDCE ("disable-dce",
388d8de422SChris Lattner          cl::desc("Do not use the -dce pass to reduce testcases"));
39d1e2aaefSChris Lattner   cl::opt<bool, true>
40d1e2aaefSChris Lattner   NoSCFG("disable-simplifycfg", cl::location(DisableSimplifyCFG),
418d8de422SChris Lattner          cl::desc("Do not use the -simplifycfg pass to reduce testcases"));
428d8de422SChris Lattner }
4373a6bdd9SChris Lattner 
440eb5ce94SChris Lattner /// deleteInstructionFromProgram - This method clones the current Program and
450eb5ce94SChris Lattner /// deletes the specified instruction from the cloned module.  It then runs a
460eb5ce94SChris Lattner /// series of cleanup passes (ADCE and SimplifyCFG) to eliminate any code which
470eb5ce94SChris Lattner /// depends on the value.  The modified module is then returned.
480eb5ce94SChris Lattner ///
49b943b6b0SChris Lattner Module *BugDriver::deleteInstructionFromProgram(const Instruction *I,
500eb5ce94SChris Lattner                                                 unsigned Simplification) const {
510eb5ce94SChris Lattner   Module *Result = CloneModule(Program);
520eb5ce94SChris Lattner 
53b943b6b0SChris Lattner   const BasicBlock *PBB = I->getParent();
54b943b6b0SChris Lattner   const Function *PF = PBB->getParent();
550eb5ce94SChris Lattner 
560eb5ce94SChris Lattner   Module::iterator RFI = Result->begin(); // Get iterator to corresponding fn
57b943b6b0SChris Lattner   std::advance(RFI, std::distance(PF->getParent()->begin(),
58b943b6b0SChris Lattner                                   Module::const_iterator(PF)));
590eb5ce94SChris Lattner 
600eb5ce94SChris Lattner   Function::iterator RBI = RFI->begin();  // Get iterator to corresponding BB
61b943b6b0SChris Lattner   std::advance(RBI, std::distance(PF->begin(), Function::const_iterator(PBB)));
620eb5ce94SChris Lattner 
630eb5ce94SChris Lattner   BasicBlock::iterator RI = RBI->begin(); // Get iterator to corresponding inst
64b943b6b0SChris Lattner   std::advance(RI, std::distance(PBB->begin(), BasicBlock::const_iterator(I)));
65b943b6b0SChris Lattner   Instruction *TheInst = RI;              // Got the corresponding instruction!
660eb5ce94SChris Lattner 
670eb5ce94SChris Lattner   // If this instruction produces a value, replace any users with null values
68b943b6b0SChris Lattner   if (TheInst->getType() != Type::VoidTy)
69b943b6b0SChris Lattner     TheInst->replaceAllUsesWith(Constant::getNullValue(TheInst->getType()));
700eb5ce94SChris Lattner 
710eb5ce94SChris Lattner   // Remove the instruction from the program.
72b943b6b0SChris Lattner   TheInst->getParent()->getInstList().erase(TheInst);
730eb5ce94SChris Lattner 
7410c0469bSChris Lattner   // Spiff up the output a little bit.
750eb5ce94SChris Lattner   PassManager Passes;
76f3e8f97dSChris Lattner   // Make sure that the appropriate target data is always used...
77f3e8f97dSChris Lattner   Passes.add(new TargetData("bugpoint", Result));
78f3e8f97dSChris Lattner 
79fd72bed3SChris Lattner   /// FIXME: If this used runPasses() like the methods below, we could get rid
80fd72bed3SChris Lattner   /// of the -disable-* options!
818d8de422SChris Lattner   if (Simplification > 1 && !NoDCE)
820eb5ce94SChris Lattner     Passes.add(createDeadCodeEliminationPass());
83d1e2aaefSChris Lattner   if (Simplification && !DisableSimplifyCFG)
840eb5ce94SChris Lattner     Passes.add(createCFGSimplificationPass());      // Delete dead control flow
8544ffd7c3SChris Lattner 
8644ffd7c3SChris Lattner   Passes.add(createVerifierPass());
870eb5ce94SChris Lattner   Passes.run(*Result);
880eb5ce94SChris Lattner   return Result;
890eb5ce94SChris Lattner }
90514c02ebSChris Lattner 
912920100eSChris Lattner static const PassInfo *getPI(Pass *P) {
922920100eSChris Lattner   const PassInfo *PI = P->getPassInfo();
932920100eSChris Lattner   delete P;
942920100eSChris Lattner   return PI;
952920100eSChris Lattner }
962920100eSChris Lattner 
97514c02ebSChris Lattner /// performFinalCleanups - This method clones the current Program and performs
98514c02ebSChris Lattner /// a series of cleanups intended to get rid of extra cruft on the module
99514c02ebSChris Lattner /// before handing it to the user...
100514c02ebSChris Lattner ///
1012920100eSChris Lattner Module *BugDriver::performFinalCleanups(Module *M, bool MayModifySemantics) {
1022b3ab562SChris Lattner   // Make all functions external, so GlobalDCE doesn't delete them...
1032b3ab562SChris Lattner   for (Module::iterator I = M->begin(), E = M->end(); I != E; ++I)
1042b3ab562SChris Lattner     I->setLinkage(GlobalValue::ExternalLinkage);
1052b3ab562SChris Lattner 
1062920100eSChris Lattner   std::vector<const PassInfo*> CleanupPasses;
1072920100eSChris Lattner   CleanupPasses.push_back(getPI(createFunctionResolvingPass()));
1082920100eSChris Lattner   CleanupPasses.push_back(getPI(createGlobalDCEPass()));
1092920100eSChris Lattner   CleanupPasses.push_back(getPI(createDeadTypeEliminationPass()));
1103f1ad878SChris Lattner 
1113f1ad878SChris Lattner   if (MayModifySemantics)
1122920100eSChris Lattner     CleanupPasses.push_back(getPI(createDeadArgHackingPass()));
1133f1ad878SChris Lattner   else
1143f1ad878SChris Lattner     CleanupPasses.push_back(getPI(createDeadArgEliminationPass()));
1152920100eSChris Lattner 
1166ce2d033SChris Lattner   Module *New = runPassesOn(M, CleanupPasses);
1176ce2d033SChris Lattner   if (New == 0) {
1183fe96bc9SChris Lattner     std::cerr << "Final cleanups failed.  Sorry. :(  Please report a bug!\n";
1196ce2d033SChris Lattner   }
1202920100eSChris Lattner   delete M;
1216ce2d033SChris Lattner   return New;
122514c02ebSChris Lattner }
123567543f0SChris Lattner 
124567543f0SChris Lattner 
1253fe96bc9SChris Lattner /// ExtractLoop - Given a module, extract up to one loop from it into a new
1263fe96bc9SChris Lattner /// function.  This returns null if there are no extractable loops in the
1273fe96bc9SChris Lattner /// program or if the loop extractor crashes.
1283fe96bc9SChris Lattner Module *BugDriver::ExtractLoop(Module *M) {
1293fe96bc9SChris Lattner   std::vector<const PassInfo*> LoopExtractPasses;
1303fe96bc9SChris Lattner   LoopExtractPasses.push_back(getPI(createSingleLoopExtractorPass()));
1313fe96bc9SChris Lattner 
1326ce2d033SChris Lattner   Module *NewM = runPassesOn(M, LoopExtractPasses);
1336ce2d033SChris Lattner   if (NewM == 0) {
134*bcec7875SChris Lattner     Module *Old = swapProgramIn(M);
135*bcec7875SChris Lattner     std::cout << "*** Loop extraction failed: ";
136*bcec7875SChris Lattner     EmitProgressBytecode("loopextraction", true);
137*bcec7875SChris Lattner     std::cout << "*** Sorry. :(  Please report a bug!\n";
138*bcec7875SChris Lattner     swapProgramIn(Old);
1393fe96bc9SChris Lattner     return 0;
1403fe96bc9SChris Lattner   }
1413fe96bc9SChris Lattner 
1423fe96bc9SChris Lattner   // Check to see if we created any new functions.  If not, no loops were
1433fe96bc9SChris Lattner   // extracted and we should return null.
1443fe96bc9SChris Lattner   if (M->size() != NewM->size()) {
1453fe96bc9SChris Lattner     delete NewM;
1463fe96bc9SChris Lattner     return 0;
1473fe96bc9SChris Lattner   }
1483fe96bc9SChris Lattner 
1493fe96bc9SChris Lattner   return NewM;
1503fe96bc9SChris Lattner }
1513fe96bc9SChris Lattner 
1523fe96bc9SChris Lattner 
153567543f0SChris Lattner // DeleteFunctionBody - "Remove" the function by deleting all of its basic
154567543f0SChris Lattner // blocks, making it external.
155567543f0SChris Lattner //
156567543f0SChris Lattner void llvm::DeleteFunctionBody(Function *F) {
157567543f0SChris Lattner   // delete the body of the function...
158567543f0SChris Lattner   F->deleteBody();
159567543f0SChris Lattner   assert(F->isExternal() && "This didn't make the function external!");
160567543f0SChris Lattner }
161567543f0SChris Lattner 
162567543f0SChris Lattner /// SplitFunctionsOutOfModule - Given a module and a list of functions in the
163567543f0SChris Lattner /// module, split the functions OUT of the specified module, and place them in
164567543f0SChris Lattner /// the new module.
1655a5e414bSChris Lattner ///
1665a5e414bSChris Lattner /// FIXME: this could be made DRAMATICALLY more efficient for large programs if
1675a5e414bSChris Lattner /// we just MOVED functions from one module to the other, instead of cloning the
1685a5e414bSChris Lattner /// whole module, then proceeding to delete an entire module's worth of stuff.
1695a5e414bSChris Lattner ///
170567543f0SChris Lattner Module *llvm::SplitFunctionsOutOfModule(Module *M,
171567543f0SChris Lattner                                         const std::vector<Function*> &F) {
172567543f0SChris Lattner   // Make sure functions & globals are all external so that linkage
173567543f0SChris Lattner   // between the two modules will work.
174567543f0SChris Lattner   for (Module::iterator I = M->begin(), E = M->end(); I != E; ++I)
175567543f0SChris Lattner     I->setLinkage(GlobalValue::ExternalLinkage);
176567543f0SChris Lattner   for (Module::giterator I = M->gbegin(), E = M->gend(); I != E; ++I)
177567543f0SChris Lattner     I->setLinkage(GlobalValue::ExternalLinkage);
178567543f0SChris Lattner 
179567543f0SChris Lattner   Module *New = CloneModule(M);
180567543f0SChris Lattner 
181567543f0SChris Lattner   // Make sure global initializers exist only in the safe module (CBE->.so)
182567543f0SChris Lattner   for (Module::giterator I = New->gbegin(), E = New->gend(); I != E; ++I)
183567543f0SChris Lattner     I->setInitializer(0);  // Delete the initializer to make it external
184567543f0SChris Lattner 
185567543f0SChris Lattner   // Remove the Test functions from the Safe module
186567543f0SChris Lattner   for (unsigned i = 0, e = F.size(); i != e; ++i) {
187567543f0SChris Lattner     Function *TNOF = M->getFunction(F[i]->getName(), F[i]->getFunctionType());
188567543f0SChris Lattner     DEBUG(std::cerr << "Removing function " << F[i]->getName() << "\n");
189567543f0SChris Lattner     assert(TNOF && "Function doesn't exist in module!");
190567543f0SChris Lattner     DeleteFunctionBody(TNOF);       // Function is now external in this module!
191567543f0SChris Lattner   }
192567543f0SChris Lattner 
193567543f0SChris Lattner   // Remove the Safe functions from the Test module
194567543f0SChris Lattner   for (Module::iterator I = New->begin(), E = New->end(); I != E; ++I) {
195567543f0SChris Lattner     bool funcFound = false;
196567543f0SChris Lattner     for (std::vector<Function*>::const_iterator FI = F.begin(), Fe = F.end();
197567543f0SChris Lattner          FI != Fe; ++FI)
198567543f0SChris Lattner       if (I->getName() == (*FI)->getName()) funcFound = true;
199567543f0SChris Lattner 
200567543f0SChris Lattner     if (!funcFound)
201567543f0SChris Lattner       DeleteFunctionBody(I);
202567543f0SChris Lattner   }
203567543f0SChris Lattner   return New;
204567543f0SChris Lattner }
205