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 //
1073a6bdd9SChris Lattner // This file implements a method that extracts a function from program, cleans
1173a6bdd9SChris Lattner // it up, and returns it as a new 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 
798d8de422SChris Lattner   if (Simplification > 1 && !NoDCE)
800eb5ce94SChris Lattner     Passes.add(createDeadCodeEliminationPass());
81d1e2aaefSChris Lattner   if (Simplification && !DisableSimplifyCFG)
820eb5ce94SChris Lattner     Passes.add(createCFGSimplificationPass());      // Delete dead control flow
8344ffd7c3SChris Lattner 
8444ffd7c3SChris Lattner   Passes.add(createVerifierPass());
850eb5ce94SChris Lattner   Passes.run(*Result);
860eb5ce94SChris Lattner   return Result;
870eb5ce94SChris Lattner }
88514c02ebSChris Lattner 
892920100eSChris Lattner static const PassInfo *getPI(Pass *P) {
902920100eSChris Lattner   const PassInfo *PI = P->getPassInfo();
912920100eSChris Lattner   delete P;
922920100eSChris Lattner   return PI;
932920100eSChris Lattner }
942920100eSChris Lattner 
95514c02ebSChris Lattner /// performFinalCleanups - This method clones the current Program and performs
96514c02ebSChris Lattner /// a series of cleanups intended to get rid of extra cruft on the module
97514c02ebSChris Lattner /// before handing it to the user...
98514c02ebSChris Lattner ///
992920100eSChris Lattner Module *BugDriver::performFinalCleanups(Module *M, bool MayModifySemantics) {
1002b3ab562SChris Lattner   // Make all functions external, so GlobalDCE doesn't delete them...
1012b3ab562SChris Lattner   for (Module::iterator I = M->begin(), E = M->end(); I != E; ++I)
1022b3ab562SChris Lattner     I->setLinkage(GlobalValue::ExternalLinkage);
1032b3ab562SChris Lattner 
1042920100eSChris Lattner   std::vector<const PassInfo*> CleanupPasses;
1052920100eSChris Lattner   CleanupPasses.push_back(getPI(createFunctionResolvingPass()));
1062920100eSChris Lattner   CleanupPasses.push_back(getPI(createGlobalDCEPass()));
1072920100eSChris Lattner   CleanupPasses.push_back(getPI(createDeadTypeEliminationPass()));
1083f1ad878SChris Lattner 
1093f1ad878SChris Lattner   if (MayModifySemantics)
1102920100eSChris Lattner     CleanupPasses.push_back(getPI(createDeadArgHackingPass()));
1113f1ad878SChris Lattner   else
1123f1ad878SChris Lattner     CleanupPasses.push_back(getPI(createDeadArgEliminationPass()));
1132920100eSChris Lattner 
1142920100eSChris Lattner   std::swap(Program, M);
1152920100eSChris Lattner   std::string Filename;
1162920100eSChris Lattner   bool Failed = runPasses(CleanupPasses, Filename);
1172920100eSChris Lattner   std::swap(Program, M);
1182920100eSChris Lattner 
1192920100eSChris Lattner   if (Failed) {
1202920100eSChris Lattner     std::cerr << "Final cleanups failed.  Sorry.  :(\n";
1212920100eSChris Lattner   } else {
1222920100eSChris Lattner     delete M;
1232920100eSChris Lattner     M = ParseInputFile(Filename);
1242920100eSChris Lattner     if (M == 0) {
1252920100eSChris Lattner       std::cerr << getToolName() << ": Error reading bytecode file '"
1262920100eSChris Lattner                 << Filename << "'!\n";
1272920100eSChris Lattner       exit(1);
1282920100eSChris Lattner     }
129233b0691SChris Lattner     removeFile(Filename);
1302920100eSChris Lattner   }
1312920100eSChris Lattner   return M;
132514c02ebSChris Lattner }
133567543f0SChris Lattner 
134567543f0SChris Lattner 
135567543f0SChris Lattner // DeleteFunctionBody - "Remove" the function by deleting all of its basic
136567543f0SChris Lattner // blocks, making it external.
137567543f0SChris Lattner //
138567543f0SChris Lattner void llvm::DeleteFunctionBody(Function *F) {
139567543f0SChris Lattner   // delete the body of the function...
140567543f0SChris Lattner   F->deleteBody();
141567543f0SChris Lattner   assert(F->isExternal() && "This didn't make the function external!");
142567543f0SChris Lattner }
143567543f0SChris Lattner 
144567543f0SChris Lattner /// SplitFunctionsOutOfModule - Given a module and a list of functions in the
145567543f0SChris Lattner /// module, split the functions OUT of the specified module, and place them in
146567543f0SChris Lattner /// the new module.
147*5a5e414bSChris Lattner ///
148*5a5e414bSChris Lattner /// FIXME: this could be made DRAMATICALLY more efficient for large programs if
149*5a5e414bSChris Lattner /// we just MOVED functions from one module to the other, instead of cloning the
150*5a5e414bSChris Lattner /// whole module, then proceeding to delete an entire module's worth of stuff.
151*5a5e414bSChris Lattner ///
152567543f0SChris Lattner Module *llvm::SplitFunctionsOutOfModule(Module *M,
153567543f0SChris Lattner                                         const std::vector<Function*> &F) {
154567543f0SChris Lattner   // Make sure functions & globals are all external so that linkage
155567543f0SChris Lattner   // between the two modules will work.
156567543f0SChris Lattner   for (Module::iterator I = M->begin(), E = M->end(); I != E; ++I)
157567543f0SChris Lattner     I->setLinkage(GlobalValue::ExternalLinkage);
158567543f0SChris Lattner   for (Module::giterator I = M->gbegin(), E = M->gend(); I != E; ++I)
159567543f0SChris Lattner     I->setLinkage(GlobalValue::ExternalLinkage);
160567543f0SChris Lattner 
161567543f0SChris Lattner   Module *New = CloneModule(M);
162567543f0SChris Lattner 
163567543f0SChris Lattner   // Make sure global initializers exist only in the safe module (CBE->.so)
164567543f0SChris Lattner   for (Module::giterator I = New->gbegin(), E = New->gend(); I != E; ++I)
165567543f0SChris Lattner     I->setInitializer(0);  // Delete the initializer to make it external
166567543f0SChris Lattner 
167567543f0SChris Lattner   // Remove the Test functions from the Safe module
168567543f0SChris Lattner   for (unsigned i = 0, e = F.size(); i != e; ++i) {
169567543f0SChris Lattner     Function *TNOF = M->getFunction(F[i]->getName(), F[i]->getFunctionType());
170567543f0SChris Lattner     DEBUG(std::cerr << "Removing function " << F[i]->getName() << "\n");
171567543f0SChris Lattner     assert(TNOF && "Function doesn't exist in module!");
172567543f0SChris Lattner     DeleteFunctionBody(TNOF);       // Function is now external in this module!
173567543f0SChris Lattner   }
174567543f0SChris Lattner 
175567543f0SChris Lattner   // Remove the Safe functions from the Test module
176567543f0SChris Lattner   for (Module::iterator I = New->begin(), E = New->end(); I != E; ++I) {
177567543f0SChris Lattner     bool funcFound = false;
178567543f0SChris Lattner     for (std::vector<Function*>::const_iterator FI = F.begin(), Fe = F.end();
179567543f0SChris Lattner          FI != Fe; ++FI)
180567543f0SChris Lattner       if (I->getName() == (*FI)->getName()) funcFound = true;
181567543f0SChris Lattner 
182567543f0SChris Lattner     if (!funcFound)
183567543f0SChris Lattner       DeleteFunctionBody(I);
184567543f0SChris Lattner   }
185567543f0SChris Lattner   return New;
186567543f0SChris Lattner }
187