diff --git a/infer/src/pulse/Pulse.ml b/infer/src/pulse/Pulse.ml index f78f2a081..8b1333e74 100644 --- a/infer/src/pulse/Pulse.ml +++ b/infer/src/pulse/Pulse.ml @@ -29,9 +29,7 @@ module PulseTransferFunctions = struct type analysis_data = PulseSummary.t InterproceduralAnalysis.t - let get_pvar_formals pname = - AnalysisCallbacks.proc_resolve_attributes pname |> Option.map ~f:Pvar.get_pvar_formals - + let get_pvar_formals pname = IRAttributes.load pname |> Option.map ~f:Pvar.get_pvar_formals let interprocedural_call {InterproceduralAnalysis.analyze_dependency; tenv; proc_desc} path ret callee_pname call_exp actuals call_loc astate = diff --git a/infer/src/pulse/PulseModels.ml b/infer/src/pulse/PulseModels.ml index e5341254e..3fe69d573 100644 --- a/infer/src/pulse/PulseModels.ml +++ b/infer/src/pulse/PulseModels.ml @@ -6,6 +6,7 @@ *) open! IStd +module IRAttributes = Attributes open PulseBasicInterface open PulseDomainInterface open PulseOperations.Import @@ -96,10 +97,7 @@ module Misc = struct List.map args ~f:(fun {ProcnameDispatcher.Call.FuncArg.arg_payload= actual; typ} -> (actual, typ) ) in - let formals_opt = - AnalysisCallbacks.proc_resolve_attributes callee_procname - |> Option.map ~f:Pvar.get_pvar_formals - in + let formals_opt = IRAttributes.load callee_procname |> Option.map ~f:Pvar.get_pvar_formals in let<+> astate = PulseCallOperations.unknown_call tenv path location (Model skip_reason) ~ret ~actuals ~formals_opt astate