[ProcnameDispatcher] Rename Procname to Call

Summary:
Because it matches calls (procnames and argument list) and because I will create a `Procname`-only one.

Depends on D7124847

Reviewed By: skcho

Differential Revision: D7124877

fbshipit-source-id: eca7c21

infer/src/IR/ProcnameDispatcher.ml

@@ -440,7 +440,7 @@ module Common = struct
   let ( <>:: ) name_matcher name = name_matcher <! () >:: name
 end
 
-module Procname = struct
+module Call = struct
   include Common
 
   (** Little abstraction over arguments: currently actual args, we'll want formal args later *)

infer/src/IR/ProcnameDispatcher.mli

@@ -156,7 +156,7 @@ module type Common = sig
   (** Separates names (accepts NO template arguments on the left one) *)
 end
 
-module Procname : sig
+module Call : sig
   (** Little abstraction over arguments: currently actual args, we'll want formal args later *)
   module FuncArg : sig
     type t = Exp.t * Typ.t

infer/src/bufferoverrun/bufferOverrunChecker.ml

@@ -250,7 +250,7 @@ module TransferFunctions (CFG : ProcCfg.S) = struct
       | Call (ret, Const Cfun callee_pname, params, location, _)
         -> (
           let model_env = Models.mk_model_env callee_pname node location tenv ?ret in
-          match Models.Procname.dispatch callee_pname params with
+          match Models.Call.dispatch callee_pname params with
           | Some {Models.exec} ->
               exec model_env mem
           | None ->
@@ -415,7 +415,7 @@ module Report = struct
           | Sil.Load (_, exp, _, location) | Sil.Store (exp, _, _, location) ->
               add_condition pname exp location mem cond_set
           | Sil.Call (_, Const Cfun callee_pname, params, location, _) -> (
-            match Models.Procname.dispatch callee_pname params with
+            match Models.Call.dispatch callee_pname params with
             | Some {Models.check} ->
                 check (Models.mk_model_env pname node location tenv) mem cond_set
             | None ->

infer/src/bufferoverrun/bufferOverrunModels.ml

@@ -293,9 +293,9 @@ module Make (BoUtils : BufferOverrunUtils.S) = struct
       {declare_local; declare_symbolic}
   end
 
-  module Procname = struct
+  module Call = struct
-    let dispatch : model ProcnameDispatcher.Procname.dispatcher =
+    let dispatch : model ProcnameDispatcher.Call.dispatcher =
-      let open ProcnameDispatcher.Procname in
+      let open ProcnameDispatcher.Call in
       let mk_std_array () = -"std" &:: "array" < any_typ &+ capt_int in
       let std_array0 = mk_std_array () in
       let std_array2 = mk_std_array () in