lib/Analysis/CallGraph.cpp

//== CallGraph.cpp - Call graph building ------------------------*- C++ -*--==//
//
//                     The LLVM Compiler Infrastructure
//
// This file is distributed under the University of Illinois Open Source
// License. See LICENSE.TXT for details.
//
//===----------------------------------------------------------------------===//
//
//  This file defined the CallGraph and CGBuilder classes.
//
//===----------------------------------------------------------------------===//

#include "clang/Analysis/CallGraph.h"

#include "clang/AST/ASTContext.h"
#include "clang/AST/StmtVisitor.h"

using namespace clang;
using namespace idx;

namespace {
class CGBuilder : public StmtVisitor<CGBuilder> {

  CallGraph &G;
  FunctionDecl *FD;

  Entity *CallerEnt;

  CallGraphNode *CallerNode;

public:
  CGBuilder(CallGraph &g, FunctionDecl *fd, Entity *E, CallGraphNode *N)
    : G(g), FD(fd), CallerEnt(E), CallerNode(N) {}

  void VisitCompoundStmt(CompoundStmt *S) { VisitChildren(S); }

  void VisitCastStmt(CaseStmt *S) { VisitChildren(S); }

  void VisitDefaultStmt(DefaultStmt *S) { VisitChildren(S); }

  void VisitLabelStmt(LabelStmt *S) { VisitChildren(S); }

  void VisitIfStmt(IfStmt *S) { VisitChildren(S); }

  void VisitSwitchStmt(SwitchStmt *S) { VisitChildren(S); }

  void VisitDoStmt(DoStmt *S) { VisitChildren(S); }

  void VisitForStmt(ForStmt *S) { VisitChildren(S); }

  void VisitIndirectGotoStmt(IndirectGotoStmt *S) { VisitChildren(S); }

  void VisitReturnStmt(ReturnStmt *S) { VisitChildren(S); }

  void VisitDeclStmt(DeclStmt *S) { VisitChildren(S); }

  void VisitCallExpr(CallExpr *CE);

  void VisitChildren(Stmt *S) {
    for (Stmt::child_iterator I=S->child_begin(), E=S->child_end(); I != E;++I)
      if (*I) 
        static_cast<CGBuilder*>(this)->Visit(*I);    
  }
};
}

void CGBuilder::VisitCallExpr(CallExpr *CE) {
  Expr *Callee = CE->getCallee();

  if (CastExpr *CE = dyn_cast<CastExpr>(Callee))
    Callee = CE->getSubExpr();

  if (DeclRefExpr *DRE = dyn_cast<DeclRefExpr>(Callee)) {
    Decl *D = DRE->getDecl();
    if (FunctionDecl *CalleeDecl = dyn_cast<FunctionDecl>(D)) {

      Entity *Ent = Entity::get(CalleeDecl, G.getProgram());

      CallGraphNode *CalleeNode = G.getOrInsertFunction(Ent);

      CallerNode->addCallee(ASTLocation(FD, CE), CalleeNode);
    }
  }
}

CallGraph::~CallGraph() {
  if (!FunctionMap.empty()) {
    for (FunctionMapTy::iterator I = FunctionMap.begin(), E = FunctionMap.end();
        I != E; ++I)
      delete I->second;
    FunctionMap.clear();
  }
}

void CallGraph::addTU(ASTUnit &AST) {
  ASTContext &Ctx = AST.getASTContext();
  DeclContext *DC = Ctx.getTranslationUnitDecl();

  for (DeclContext::decl_iterator I = DC->decls_begin(), E = DC->decls_end();
       I != E; ++I) {

    if (FunctionDecl *FD = dyn_cast<FunctionDecl>(*I)) {
      if (FD->isThisDeclarationADefinition()) {
        // Set caller's ASTContext.
        Entity *Ent = Entity::get(FD, Prog);
        CallGraphNode *Node = getOrInsertFunction(Ent);
        CallerCtx[Node] = &Ctx;
        
        CGBuilder builder(*this, FD, Ent, Node);
        builder.Visit(FD->getBody());
      }
    }
  }
}

CallGraphNode *CallGraph::getOrInsertFunction(Entity *F) {
  CallGraphNode *&Node = FunctionMap[F];
  if (Node)
    return Node;

  return Node = new CallGraphNode(F);
}

void CallGraph::print(llvm::raw_ostream &os) {
  for (iterator I = begin(), E = end(); I != E; ++I) {
    if (I->second->hasCallee()) {
      ASTContext &Ctx = *CallerCtx[I->second];
      os << "function: " << I->first->getName(Ctx) << " calls:\n";
      for (CallGraphNode::iterator CI = I->second->begin(), 
             CE = I->second->end(); CI != CE; ++CI) {
        os << "    " << CI->second->getName(Ctx);
      }
      os << '\n';
    }
  }
}

void CallGraph::dump() {
  print(llvm::errs());
}