Chris Lattner | dbb1735 | 2002-04-28 05:43:27 +0000 | [diff] [blame] | 1 | //===-- Internalize.cpp - Mark functions internal -------------------------===// |
John Criswell | b576c94 | 2003-10-20 19:43:21 +0000 | [diff] [blame] | 2 | // |
| 3 | // The LLVM Compiler Infrastructure |
| 4 | // |
| 5 | // This file was developed by the LLVM research group and is distributed under |
| 6 | // the University of Illinois Open Source License. See LICENSE.TXT for details. |
| 7 | // |
| 8 | //===----------------------------------------------------------------------===// |
Chris Lattner | dbb1735 | 2002-04-28 05:43:27 +0000 | [diff] [blame] | 9 | // |
| 10 | // This pass loops over all of the functions in the input module, looking for a |
Chris Lattner | 55e41ba | 2002-07-30 19:48:44 +0000 | [diff] [blame] | 11 | // main function. If a main function is found, all other functions and all |
| 12 | // global variables with initializers are marked as internal. |
Chris Lattner | dbb1735 | 2002-04-28 05:43:27 +0000 | [diff] [blame] | 13 | // |
| 14 | //===----------------------------------------------------------------------===// |
| 15 | |
Chris Lattner | 568ddab | 2002-07-24 17:12:05 +0000 | [diff] [blame] | 16 | #include "llvm/Transforms/IPO.h" |
Chris Lattner | dbb1735 | 2002-04-28 05:43:27 +0000 | [diff] [blame] | 17 | #include "llvm/Pass.h" |
| 18 | #include "llvm/Module.h" |
Reid Spencer | 551ccae | 2004-09-01 22:55:40 +0000 | [diff] [blame] | 19 | #include "llvm/Support/CommandLine.h" |
| 20 | #include "llvm/Support/Debug.h" |
| 21 | #include "llvm/ADT/Statistic.h" |
Chris Lattner | c7a2c7f | 2003-05-22 19:34:49 +0000 | [diff] [blame] | 22 | #include <fstream> |
| 23 | #include <set> |
Chris Lattner | 1e2385b | 2003-11-21 21:54:22 +0000 | [diff] [blame] | 24 | using namespace llvm; |
Brian Gaeke | d0fde30 | 2003-11-11 22:41:34 +0000 | [diff] [blame] | 25 | |
Chris Lattner | f629309 | 2002-07-23 18:06:35 +0000 | [diff] [blame] | 26 | namespace { |
Chris Lattner | a92f696 | 2002-10-01 22:38:41 +0000 | [diff] [blame] | 27 | Statistic<> NumFunctions("internalize", "Number of functions internalized"); |
| 28 | Statistic<> NumGlobals ("internalize", "Number of global vars internalized"); |
Chris Lattner | dbb1735 | 2002-04-28 05:43:27 +0000 | [diff] [blame] | 29 | |
Chris Lattner | c7a2c7f | 2003-05-22 19:34:49 +0000 | [diff] [blame] | 30 | // APIFile - A file which contains a list of symbols that should not be marked |
| 31 | // external. |
| 32 | cl::opt<std::string> |
| 33 | APIFile("internalize-public-api-file", cl::value_desc("filename"), |
Chris Lattner | 2345d71 | 2003-05-22 19:48:00 +0000 | [diff] [blame] | 34 | cl::desc("A file containing list of symbol names to preserve")); |
| 35 | |
| 36 | // APIList - A list of symbols that should not be marked internal. |
| 37 | cl::list<std::string> |
| 38 | APIList("internalize-public-api-list", cl::value_desc("list"), |
Chris Lattner | 88c7c32 | 2003-05-22 20:27:13 +0000 | [diff] [blame] | 39 | cl::desc("A list of symbol names to preserve"), |
| 40 | cl::CommaSeparated); |
Chris Lattner | 2345d71 | 2003-05-22 19:48:00 +0000 | [diff] [blame] | 41 | |
Chris Lattner | b12914b | 2004-09-20 04:48:05 +0000 | [diff] [blame] | 42 | class InternalizePass : public ModulePass { |
Chris Lattner | c7a2c7f | 2003-05-22 19:34:49 +0000 | [diff] [blame] | 43 | std::set<std::string> ExternalNames; |
| 44 | public: |
| 45 | InternalizePass() { |
Chris Lattner | 2345d71 | 2003-05-22 19:48:00 +0000 | [diff] [blame] | 46 | if (!APIFile.empty()) // If a filename is specified, use it |
Chris Lattner | c7a2c7f | 2003-05-22 19:34:49 +0000 | [diff] [blame] | 47 | LoadFile(APIFile.c_str()); |
Chris Lattner | 2345d71 | 2003-05-22 19:48:00 +0000 | [diff] [blame] | 48 | else // Else, if a list is specified, use it. |
| 49 | ExternalNames.insert(APIList.begin(), APIList.end()); |
Chris Lattner | c7a2c7f | 2003-05-22 19:34:49 +0000 | [diff] [blame] | 50 | } |
Chris Lattner | 93fbd73 | 2002-11-08 20:34:21 +0000 | [diff] [blame] | 51 | |
Chris Lattner | c7a2c7f | 2003-05-22 19:34:49 +0000 | [diff] [blame] | 52 | void LoadFile(const char *Filename) { |
| 53 | // Load the APIFile... |
| 54 | std::ifstream In(Filename); |
| 55 | if (!In.good()) { |
| 56 | std::cerr << "WARNING: Internalize couldn't load file '" << Filename |
Chris Lattner | 2345d71 | 2003-05-22 19:48:00 +0000 | [diff] [blame] | 57 | << "'!\n"; |
Chris Lattner | c7a2c7f | 2003-05-22 19:34:49 +0000 | [diff] [blame] | 58 | return; // Do not internalize anything... |
| 59 | } |
| 60 | while (In) { |
| 61 | std::string Symbol; |
| 62 | In >> Symbol; |
| 63 | if (!Symbol.empty()) |
| 64 | ExternalNames.insert(Symbol); |
| 65 | } |
| 66 | } |
| 67 | |
Chris Lattner | b12914b | 2004-09-20 04:48:05 +0000 | [diff] [blame] | 68 | virtual bool runOnModule(Module &M) { |
Chris Lattner | 2345d71 | 2003-05-22 19:48:00 +0000 | [diff] [blame] | 69 | // If no list or file of symbols was specified, check to see if there is a |
| 70 | // "main" symbol defined in the module. If so, use it, otherwise do not |
| 71 | // internalize the module, it must be a library or something. |
| 72 | // |
| 73 | if (ExternalNames.empty()) { |
| 74 | Function *MainFunc = M.getMainFunction(); |
| 75 | if (MainFunc == 0 || MainFunc->isExternal()) |
| 76 | return false; // No main found, must be a library... |
| 77 | |
| 78 | // Preserve main, internalize all else. |
| 79 | ExternalNames.insert(MainFunc->getName()); |
| 80 | } |
| 81 | |
Chris Lattner | 55e41ba | 2002-07-30 19:48:44 +0000 | [diff] [blame] | 82 | bool Changed = false; |
| 83 | |
| 84 | // Found a main function, mark all functions not named main as internal. |
| 85 | for (Module::iterator I = M.begin(), E = M.end(); I != E; ++I) |
Chris Lattner | c7a2c7f | 2003-05-22 19:34:49 +0000 | [diff] [blame] | 86 | if (!I->isExternal() && // Function must be defined here |
| 87 | !I->hasInternalLinkage() && // Can't already have internal linkage |
| 88 | !ExternalNames.count(I->getName())) {// Not marked to keep external? |
Chris Lattner | 4ad02e7 | 2003-04-16 20:28:45 +0000 | [diff] [blame] | 89 | I->setLinkage(GlobalValue::InternalLinkage); |
Chris Lattner | 55e41ba | 2002-07-30 19:48:44 +0000 | [diff] [blame] | 90 | Changed = true; |
| 91 | ++NumFunctions; |
| 92 | DEBUG(std::cerr << "Internalizing func " << I->getName() << "\n"); |
| 93 | } |
Chris Lattner | dbb1735 | 2002-04-28 05:43:27 +0000 | [diff] [blame] | 94 | |
Chris Lattner | 55e41ba | 2002-07-30 19:48:44 +0000 | [diff] [blame] | 95 | // Mark all global variables with initializers as internal as well... |
Chris Lattner | e4d5c44 | 2005-03-15 04:54:21 +0000 | [diff] [blame^] | 96 | for (Module::global_iterator I = M.global_begin(), E = M.global_end(); I != E; ++I) |
Chris Lattner | c7a2c7f | 2003-05-22 19:34:49 +0000 | [diff] [blame] | 97 | if (!I->isExternal() && !I->hasInternalLinkage() && |
| 98 | !ExternalNames.count(I->getName())) { |
Chris Lattner | 81d4e14 | 2003-06-26 05:30:40 +0000 | [diff] [blame] | 99 | // Special case handling of the global ctor and dtor list. When we |
| 100 | // internalize it, we mark it constant, which allows elimination of |
| 101 | // the list if it's empty. |
| 102 | // |
| 103 | if (I->hasAppendingLinkage() && (I->getName() == "llvm.global_ctors"|| |
| 104 | I->getName() == "llvm.global_dtors")) |
| 105 | I->setConstant(true); |
| 106 | |
Chris Lattner | 4ad02e7 | 2003-04-16 20:28:45 +0000 | [diff] [blame] | 107 | I->setLinkage(GlobalValue::InternalLinkage); |
Chris Lattner | 55e41ba | 2002-07-30 19:48:44 +0000 | [diff] [blame] | 108 | Changed = true; |
| 109 | ++NumGlobals; |
| 110 | DEBUG(std::cerr << "Internalizing gvar " << I->getName() << "\n"); |
| 111 | } |
| 112 | |
| 113 | return Changed; |
| 114 | } |
| 115 | }; |
Chris Lattner | dbb1735 | 2002-04-28 05:43:27 +0000 | [diff] [blame] | 116 | |
Chris Lattner | c7a2c7f | 2003-05-22 19:34:49 +0000 | [diff] [blame] | 117 | RegisterOpt<InternalizePass> X("internalize", "Internalize Global Symbols"); |
Chris Lattner | f629309 | 2002-07-23 18:06:35 +0000 | [diff] [blame] | 118 | } // end anonymous namespace |
| 119 | |
Chris Lattner | b12914b | 2004-09-20 04:48:05 +0000 | [diff] [blame] | 120 | ModulePass *llvm::createInternalizePass() { |
Chris Lattner | dbb1735 | 2002-04-28 05:43:27 +0000 | [diff] [blame] | 121 | return new InternalizePass(); |
| 122 | } |