mirror of
https://github.com/c64scene-ar/llvm-6502.git
synced 2024-11-01 00:11:00 +00:00
7252939af0
git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@12082 91177308-0d34-0410-b5e6-96231b3b80d8
314 lines
10 KiB
C++
314 lines
10 KiB
C++
//===- Printer.cpp - Code for printing data structure graphs nicely -------===//
|
|
//
|
|
// The LLVM Compiler Infrastructure
|
|
//
|
|
// This file was developed by the LLVM research group and is distributed under
|
|
// the University of Illinois Open Source License. See LICENSE.TXT for details.
|
|
//
|
|
//===----------------------------------------------------------------------===//
|
|
//
|
|
// This file implements the 'dot' graph printer.
|
|
//
|
|
//===----------------------------------------------------------------------===//
|
|
|
|
#include "llvm/Analysis/DataStructure.h"
|
|
#include "llvm/Analysis/DSGraph.h"
|
|
#include "llvm/Analysis/DSGraphTraits.h"
|
|
#include "llvm/Module.h"
|
|
#include "llvm/Constants.h"
|
|
#include "llvm/Assembly/Writer.h"
|
|
#include "Support/CommandLine.h"
|
|
#include "Support/GraphWriter.h"
|
|
#include "Support/Statistic.h"
|
|
#include <fstream>
|
|
#include <sstream>
|
|
using namespace llvm;
|
|
|
|
// OnlyPrintMain - The DataStructure printer exposes this option to allow
|
|
// printing of only the graph for "main".
|
|
//
|
|
namespace {
|
|
cl::opt<bool> OnlyPrintMain("only-print-main-ds", cl::ReallyHidden);
|
|
cl::opt<bool> DontPrintAnything("dont-print-ds", cl::ReallyHidden);
|
|
Statistic<> MaxGraphSize ("dsa", "Maximum graph size");
|
|
Statistic<> NumFoldedNodes ("dsa", "Number of folded nodes (in final graph)");
|
|
}
|
|
|
|
void DSNode::dump() const { print(std::cerr, 0); }
|
|
|
|
static std::string getCaption(const DSNode *N, const DSGraph *G) {
|
|
std::stringstream OS;
|
|
Module *M = 0;
|
|
|
|
if (!G) G = N->getParentGraph();
|
|
|
|
// Get the module from ONE of the functions in the graph it is available.
|
|
if (G && !G->getReturnNodes().empty())
|
|
M = G->getReturnNodes().begin()->first->getParent();
|
|
if (M == 0 && G) {
|
|
// If there is a global in the graph, we can use it to find the module.
|
|
const DSScalarMap &SM = G->getScalarMap();
|
|
if (SM.global_begin() != SM.global_end())
|
|
M = (*SM.global_begin())->getParent();
|
|
}
|
|
|
|
if (N->isNodeCompletelyFolded())
|
|
OS << "COLLAPSED";
|
|
else {
|
|
WriteTypeSymbolic(OS, N->getType(), M);
|
|
if (N->isArray())
|
|
OS << " array";
|
|
}
|
|
if (unsigned NodeType = N->getNodeFlags()) {
|
|
OS << ": ";
|
|
if (NodeType & DSNode::AllocaNode ) OS << "S";
|
|
if (NodeType & DSNode::HeapNode ) OS << "H";
|
|
if (NodeType & DSNode::GlobalNode ) OS << "G";
|
|
if (NodeType & DSNode::UnknownNode) OS << "U";
|
|
if (NodeType & DSNode::Incomplete ) OS << "I";
|
|
if (NodeType & DSNode::Modified ) OS << "M";
|
|
if (NodeType & DSNode::Read ) OS << "R";
|
|
#ifndef NDEBUG
|
|
if (NodeType & DSNode::DEAD ) OS << "<dead>";
|
|
#endif
|
|
OS << "\n";
|
|
}
|
|
|
|
for (unsigned i = 0, e = N->getGlobals().size(); i != e; ++i) {
|
|
WriteAsOperand(OS, N->getGlobals()[i], false, true, M);
|
|
OS << "\n";
|
|
}
|
|
|
|
return OS.str();
|
|
}
|
|
|
|
namespace llvm {
|
|
template<>
|
|
struct DOTGraphTraits<const DSGraph*> : public DefaultDOTGraphTraits {
|
|
static std::string getGraphName(const DSGraph *G) {
|
|
switch (G->getReturnNodes().size()) {
|
|
case 0: return G->getFunctionNames();
|
|
case 1: return "Function " + G->getFunctionNames();
|
|
default: return "Functions: " + G->getFunctionNames();
|
|
}
|
|
}
|
|
|
|
static const char *getGraphProperties(const DSGraph *G) {
|
|
return "\tsize=\"10,7.5\";\n"
|
|
"\trotate=\"90\";\n";
|
|
}
|
|
|
|
static std::string getNodeLabel(const DSNode *Node, const DSGraph *Graph) {
|
|
return getCaption(Node, Graph);
|
|
}
|
|
|
|
static std::string getNodeAttributes(const DSNode *N) {
|
|
return "shape=Mrecord";//fontname=Courier";
|
|
}
|
|
|
|
/// addCustomGraphFeatures - Use this graph writing hook to emit call nodes
|
|
/// and the return node.
|
|
///
|
|
static void addCustomGraphFeatures(const DSGraph *G,
|
|
GraphWriter<const DSGraph*> &GW) {
|
|
Module *CurMod = 0;
|
|
if (!G->getReturnNodes().empty())
|
|
CurMod = G->getReturnNodes().begin()->first->getParent();
|
|
else {
|
|
// If there is a global in the graph, we can use it to find the module.
|
|
const DSScalarMap &SM = G->getScalarMap();
|
|
if (SM.global_begin() != SM.global_end())
|
|
CurMod = (*SM.global_begin())->getParent();
|
|
}
|
|
|
|
|
|
// Add scalar nodes to the graph...
|
|
const DSGraph::ScalarMapTy &VM = G->getScalarMap();
|
|
for (DSGraph::ScalarMapTy::const_iterator I = VM.begin(); I != VM.end();++I)
|
|
if (!isa<GlobalValue>(I->first) && !isa<ConstantPointerRef>(I->first)) {
|
|
std::stringstream OS;
|
|
WriteAsOperand(OS, I->first, false, true, CurMod);
|
|
GW.emitSimpleNode(I->first, "", OS.str());
|
|
|
|
// Add edge from return node to real destination
|
|
int EdgeDest = I->second.getOffset() >> DS::PointerShift;
|
|
if (EdgeDest == 0) EdgeDest = -1;
|
|
GW.emitEdge(I->first, -1, I->second.getNode(),
|
|
EdgeDest, "arrowtail=tee,color=gray63");
|
|
}
|
|
|
|
|
|
// Output the returned value pointer...
|
|
const DSGraph::ReturnNodesTy &RetNodes = G->getReturnNodes();
|
|
for (DSGraph::ReturnNodesTy::const_iterator I = RetNodes.begin(),
|
|
E = RetNodes.end(); I != E; ++I)
|
|
if (I->second.getNode()) {
|
|
std::string Label;
|
|
if (RetNodes.size() == 1)
|
|
Label = "returning";
|
|
else
|
|
Label = I->first->getName() + " ret node";
|
|
// Output the return node...
|
|
GW.emitSimpleNode((void*)I->first, "plaintext=circle", Label);
|
|
|
|
// Add edge from return node to real destination
|
|
int RetEdgeDest = I->second.getOffset() >> DS::PointerShift;;
|
|
if (RetEdgeDest == 0) RetEdgeDest = -1;
|
|
GW.emitEdge((void*)I->first, -1, I->second.getNode(),
|
|
RetEdgeDest, "arrowtail=tee,color=gray63");
|
|
}
|
|
|
|
// Output all of the call nodes...
|
|
const std::vector<DSCallSite> &FCs =
|
|
G->shouldPrintAuxCalls() ? G->getAuxFunctionCalls()
|
|
: G->getFunctionCalls();
|
|
for (unsigned i = 0, e = FCs.size(); i != e; ++i) {
|
|
const DSCallSite &Call = FCs[i];
|
|
std::vector<std::string> EdgeSourceCaptions(Call.getNumPtrArgs()+2);
|
|
EdgeSourceCaptions[0] = "r";
|
|
if (Call.isDirectCall())
|
|
EdgeSourceCaptions[1] = Call.getCalleeFunc()->getName();
|
|
else
|
|
EdgeSourceCaptions[1] = "f";
|
|
|
|
GW.emitSimpleNode(&Call, "shape=record", "call", Call.getNumPtrArgs()+2,
|
|
&EdgeSourceCaptions);
|
|
|
|
if (DSNode *N = Call.getRetVal().getNode()) {
|
|
int EdgeDest = Call.getRetVal().getOffset() >> DS::PointerShift;
|
|
if (EdgeDest == 0) EdgeDest = -1;
|
|
GW.emitEdge(&Call, 0, N, EdgeDest, "color=gray63,tailclip=false");
|
|
}
|
|
|
|
// Print out the callee...
|
|
if (Call.isIndirectCall()) {
|
|
DSNode *N = Call.getCalleeNode();
|
|
assert(N && "Null call site callee node!");
|
|
GW.emitEdge(&Call, 1, N, -1, "color=gray63,tailclip=false");
|
|
}
|
|
|
|
for (unsigned j = 0, e = Call.getNumPtrArgs(); j != e; ++j)
|
|
if (DSNode *N = Call.getPtrArg(j).getNode()) {
|
|
int EdgeDest = Call.getPtrArg(j).getOffset() >> DS::PointerShift;
|
|
if (EdgeDest == 0) EdgeDest = -1;
|
|
GW.emitEdge(&Call, j+2, N, EdgeDest, "color=gray63,tailclip=false");
|
|
}
|
|
}
|
|
}
|
|
};
|
|
} // end namespace llvm
|
|
|
|
void DSNode::print(std::ostream &O, const DSGraph *G) const {
|
|
GraphWriter<const DSGraph *> W(O, G);
|
|
W.writeNode(this);
|
|
}
|
|
|
|
void DSGraph::print(std::ostream &O) const {
|
|
WriteGraph(O, this, "DataStructures");
|
|
}
|
|
|
|
void DSGraph::writeGraphToFile(std::ostream &O,
|
|
const std::string &GraphName) const {
|
|
std::string Filename = GraphName + ".dot";
|
|
O << "Writing '" << Filename << "'...";
|
|
std::ofstream F(Filename.c_str());
|
|
|
|
if (F.good()) {
|
|
print(F);
|
|
unsigned NumCalls = shouldPrintAuxCalls() ?
|
|
getAuxFunctionCalls().size() : getFunctionCalls().size();
|
|
O << " [" << getGraphSize() << "+" << NumCalls << "]\n";
|
|
} else {
|
|
O << " error opening file for writing!\n";
|
|
}
|
|
}
|
|
|
|
/// viewGraph - Emit a dot graph, run 'dot', run gv on the postscript file,
|
|
/// then cleanup. For use from the debugger.
|
|
///
|
|
void DSGraph::viewGraph() const {
|
|
std::ofstream F("/tmp/tempgraph.dot");
|
|
if (!F.good()) {
|
|
std::cerr << "Error opening '/tmp/tempgraph.dot' for temporary graph!\n";
|
|
return;
|
|
}
|
|
print(F);
|
|
F.close();
|
|
if (system("dot -Tps /tmp/tempgraph.dot > /tmp/tempgraph.ps"))
|
|
std::cerr << "Error running dot: 'dot' not in path?\n";
|
|
system("gv /tmp/tempgraph.ps");
|
|
system("rm /tmp/tempgraph.dot /tmp/tempgraph.ps");
|
|
}
|
|
|
|
|
|
template <typename Collection>
|
|
static void printCollection(const Collection &C, std::ostream &O,
|
|
const Module *M, const std::string &Prefix) {
|
|
if (M == 0) {
|
|
O << "Null Module pointer, cannot continue!\n";
|
|
return;
|
|
}
|
|
|
|
unsigned TotalNumNodes = 0, TotalCallNodes = 0;
|
|
for (Module::const_iterator I = M->begin(), E = M->end(); I != E; ++I)
|
|
if (C.hasGraph(*I)) {
|
|
DSGraph &Gr = C.getDSGraph((Function&)*I);
|
|
TotalNumNodes += Gr.getGraphSize();
|
|
unsigned NumCalls = Gr.shouldPrintAuxCalls() ?
|
|
Gr.getAuxFunctionCalls().size() : Gr.getFunctionCalls().size();
|
|
|
|
TotalCallNodes += NumCalls;
|
|
if (I->getName() == "main" || !OnlyPrintMain)
|
|
Gr.writeGraphToFile(O, Prefix+I->getName());
|
|
else {
|
|
O << "Skipped Writing '" << Prefix+I->getName() << ".dot'... ["
|
|
<< Gr.getGraphSize() << "+" << NumCalls << "]\n";
|
|
}
|
|
|
|
unsigned GraphSize = Gr.getGraphSize();
|
|
if (MaxGraphSize < GraphSize) MaxGraphSize = GraphSize;
|
|
|
|
for (DSGraph::node_iterator NI = Gr.node_begin(), E = Gr.node_end();
|
|
NI != E; ++NI)
|
|
if ((*NI)->isNodeCompletelyFolded())
|
|
++NumFoldedNodes;
|
|
}
|
|
|
|
DSGraph &GG = C.getGlobalsGraph();
|
|
TotalNumNodes += GG.getGraphSize();
|
|
TotalCallNodes += GG.getFunctionCalls().size();
|
|
if (!OnlyPrintMain) {
|
|
GG.writeGraphToFile(O, Prefix+"GlobalsGraph");
|
|
} else {
|
|
O << "Skipped Writing '" << Prefix << "GlobalsGraph.dot'... ["
|
|
<< GG.getGraphSize() << "+" << GG.getFunctionCalls().size() << "]\n";
|
|
}
|
|
|
|
O << "\nGraphs contain [" << TotalNumNodes << "+" << TotalCallNodes
|
|
<< "] nodes total" << std::endl;
|
|
}
|
|
|
|
|
|
// print - Print out the analysis results...
|
|
void LocalDataStructures::print(std::ostream &O, const Module *M) const {
|
|
if (DontPrintAnything) return;
|
|
printCollection(*this, O, M, "ds.");
|
|
}
|
|
|
|
void BUDataStructures::print(std::ostream &O, const Module *M) const {
|
|
if (DontPrintAnything) return;
|
|
printCollection(*this, O, M, "bu.");
|
|
}
|
|
|
|
void TDDataStructures::print(std::ostream &O, const Module *M) const {
|
|
if (DontPrintAnything) return;
|
|
printCollection(*this, O, M, "td.");
|
|
}
|
|
|
|
void CompleteBUDataStructures::print(std::ostream &O, const Module *M) const {
|
|
if (DontPrintAnything) return;
|
|
printCollection(*this, O, M, "cbu.");
|
|
}
|
|
|
|
|