contrib/llvm/tools/clang/lib/StaticAnalyzer/Checkers/MPI-Checker/MPIChecker.cpp

   1 //===-- MPIChecker.cpp - Checker Entry Point Class --------------*- C++ -*-===//
   2 //
   3 //                     The LLVM Compiler Infrastructure
   4 //
   5 // This file is distributed under the University of Illinois Open Source
   6 // License. See LICENSE.TXT for details.
   7 //
   8 //===----------------------------------------------------------------------===//
   9 ///
  10 /// \file
  11 /// This file defines the main class of MPI-Checker which serves as an entry
  12 /// point. It is created once for each translation unit analysed.
  13 /// The checker defines path-sensitive checks, to verify correct usage of the
  14 /// MPI API.
  15 ///
  16 //===----------------------------------------------------------------------===//
  17
  18 #include "MPIChecker.h"
  19 #include "clang/StaticAnalyzer/Checkers/BuiltinCheckerRegistration.h"
  20
  21 namespace clang {
  22 namespace ento {
  23 namespace mpi {
  24
  25 void MPIChecker::checkDoubleNonblocking(const CallEvent &PreCallEvent,
  26                                         CheckerContext &Ctx) const {
  27   if (!FuncClassifier->isNonBlockingType(PreCallEvent.getCalleeIdentifier())) {
  28     return;
  29   }
  30   const MemRegion *const MR =
  31       PreCallEvent.getArgSVal(PreCallEvent.getNumArgs() - 1).getAsRegion();
  32   if (!MR)
  33     return;
  34   const ElementRegion *const ER = dyn_cast<ElementRegion>(MR);
  35
  36   // The region must be typed, in order to reason about it.
  37   if (!isa<TypedRegion>(MR) || (ER && !isa<TypedRegion>(ER->getSuperRegion())))
  38     return;
  39
  40   ProgramStateRef State = Ctx.getState();
  41   const Request *const Req = State->get<RequestMap>(MR);
  42
  43   // double nonblocking detected
  44   if (Req && Req->CurrentState == Request::State::Nonblocking) {
  45     ExplodedNode *ErrorNode = Ctx.generateNonFatalErrorNode();
  46     BReporter.reportDoubleNonblocking(PreCallEvent, *Req, MR, ErrorNode,
  47                                       Ctx.getBugReporter());
  48     Ctx.addTransition(ErrorNode->getState(), ErrorNode);
  49   }
  50   // no error
  51   else {
  52     State = State->set<RequestMap>(MR, Request::State::Nonblocking);
  53     Ctx.addTransition(State);
  54   }
  55 }
  56
  57 void MPIChecker::checkUnmatchedWaits(const CallEvent &PreCallEvent,
  58                                      CheckerContext &Ctx) const {
  59   if (!FuncClassifier->isWaitType(PreCallEvent.getCalleeIdentifier()))
  60     return;
  61   const MemRegion *const MR = topRegionUsedByWait(PreCallEvent);
  62   if (!MR)
  63     return;
  64   const ElementRegion *const ER = dyn_cast<ElementRegion>(MR);
  65
  66   // The region must be typed, in order to reason about it.
  67   if (!isa<TypedRegion>(MR) || (ER && !isa<TypedRegion>(ER->getSuperRegion())))
  68     return;
  69
  70   llvm::SmallVector<const MemRegion *, 2> ReqRegions;
  71   allRegionsUsedByWait(ReqRegions, MR, PreCallEvent, Ctx);
  72   if (ReqRegions.empty())
  73     return;
  74
  75   ProgramStateRef State = Ctx.getState();
  76   static CheckerProgramPointTag Tag("MPI-Checker", "UnmatchedWait");
  77   ExplodedNode *ErrorNode{nullptr};
  78
  79   // Check all request regions used by the wait function.
  80   for (const auto &ReqRegion : ReqRegions) {
  81     const Request *const Req = State->get<RequestMap>(ReqRegion);
  82     State = State->set<RequestMap>(ReqRegion, Request::State::Wait);
  83     if (!Req) {
  84       if (!ErrorNode) {
  85         ErrorNode = Ctx.generateNonFatalErrorNode(State, &Tag);
  86         State = ErrorNode->getState();
  87       }
  88       // A wait has no matching nonblocking call.
  89       BReporter.reportUnmatchedWait(PreCallEvent, ReqRegion, ErrorNode,
  90                                     Ctx.getBugReporter());
  91     }
  92   }
  93
  94   if (!ErrorNode) {
  95     Ctx.addTransition(State);
  96   } else {
  97     Ctx.addTransition(State, ErrorNode);
  98   }
  99 }
 100
 101 void MPIChecker::checkMissingWaits(SymbolReaper &SymReaper,
 102                                    CheckerContext &Ctx) const {
 103   ProgramStateRef State = Ctx.getState();
 104   const auto &Requests = State->get<RequestMap>();
 105   if (Requests.isEmpty())
 106     return;
 107
 108   static CheckerProgramPointTag Tag("MPI-Checker", "MissingWait");
 109   ExplodedNode *ErrorNode{nullptr};
 110
 111   auto ReqMap = State->get<RequestMap>();
 112   for (const auto &Req : ReqMap) {
 113     if (!SymReaper.isLiveRegion(Req.first)) {
 114       if (Req.second.CurrentState == Request::State::Nonblocking) {
 115
 116         if (!ErrorNode) {
 117           ErrorNode = Ctx.generateNonFatalErrorNode(State, &Tag);
 118           State = ErrorNode->getState();
 119         }
 120         BReporter.reportMissingWait(Req.second, Req.first, ErrorNode,
 121                                     Ctx.getBugReporter());
 122       }
 123       State = State->remove<RequestMap>(Req.first);
 124     }
 125   }
 126
 127   // Transition to update the state regarding removed requests.
 128   if (!ErrorNode) {
 129     Ctx.addTransition(State);
 130   } else {
 131     Ctx.addTransition(State, ErrorNode);
 132   }
 133 }
 134
 135 const MemRegion *MPIChecker::topRegionUsedByWait(const CallEvent &CE) const {
 136
 137   if (FuncClassifier->isMPI_Wait(CE.getCalleeIdentifier())) {
 138     return CE.getArgSVal(0).getAsRegion();
 139   } else if (FuncClassifier->isMPI_Waitall(CE.getCalleeIdentifier())) {
 140     return CE.getArgSVal(1).getAsRegion();
 141   } else {
 142     return (const MemRegion *)nullptr;
 143   }
 144 }
 145
 146 void MPIChecker::allRegionsUsedByWait(
 147     llvm::SmallVector<const MemRegion *, 2> &ReqRegions,
 148     const MemRegion *const MR, const CallEvent &CE, CheckerContext &Ctx) const {
 149
 150   MemRegionManager *const RegionManager = MR->getMemRegionManager();
 151
 152   if (FuncClassifier->isMPI_Waitall(CE.getCalleeIdentifier())) {
 153     const SubRegion *SuperRegion{nullptr};
 154     if (const ElementRegion *const ER = MR->getAs<ElementRegion>()) {
 155       SuperRegion = cast<SubRegion>(ER->getSuperRegion());
 156     }
 157
 158     // A single request is passed to MPI_Waitall.
 159     if (!SuperRegion) {
 160       ReqRegions.push_back(MR);
 161       return;
 162     }
 163
 164     const auto &Size = Ctx.getStoreManager().getSizeInElements(
 165         Ctx.getState(), SuperRegion,
 166         CE.getArgExpr(1)->getType()->getPointeeType());
 167     const llvm::APSInt &ArrSize = Size.getAs<nonloc::ConcreteInt>()->getValue();
 168
 169     for (size_t i = 0; i < ArrSize; ++i) {
 170       const NonLoc Idx = Ctx.getSValBuilder().makeArrayIndex(i);
 171
 172       const ElementRegion *const ER = RegionManager->getElementRegion(
 173           CE.getArgExpr(1)->getType()->getPointeeType(), Idx, SuperRegion,
 174           Ctx.getASTContext());
 175
 176       ReqRegions.push_back(ER->getAs<MemRegion>());
 177     }
 178   } else if (FuncClassifier->isMPI_Wait(CE.getCalleeIdentifier())) {
 179     ReqRegions.push_back(MR);
 180   }
 181 }
 182
 183 } // end of namespace: mpi
 184 } // end of namespace: ento
 185 } // end of namespace: clang
 186
 187 // Registers the checker for static analysis.
 188 void clang::ento::registerMPIChecker(CheckerManager &MGR) {
 189   MGR.registerChecker<clang::ento::mpi::MPIChecker>();
 190 }