Reviewed By: skcho Differential Revision: D18961821 fbshipit-source-id: b90901751master
Ezgi Çiçek
5 years ago
committed by
Facebook Github Bot
parent
9ed9363207
commit
1e1d40b460
@ -1,213 +0,0 @@
|
||||
(*
|
||||
* Copyright (c) Facebook, Inc. and its affiliates.
|
||||
*
|
||||
* This source code is licensed under the MIT license found in the
|
||||
* LICENSE file in the root directory of this source tree.
|
||||
*)
|
||||
|
||||
open! IStd
|
||||
module F = Format
|
||||
module Domain = LithoDomain
|
||||
|
||||
(** return true if this function is part of the Litho framework code rather than client code *)
|
||||
let is_function = function
|
||||
| Typ.Procname.Java java_procname -> (
|
||||
match Typ.Procname.Java.get_package java_procname with
|
||||
| Some "com.facebook.litho" ->
|
||||
true
|
||||
| _ ->
|
||||
false )
|
||||
| _ ->
|
||||
false
|
||||
|
||||
|
||||
let is_component_builder procname tenv =
|
||||
match procname with
|
||||
| Typ.Procname.Java java_procname ->
|
||||
PatternMatch.is_subtype_of_str tenv
|
||||
(Typ.Procname.Java.get_class_type_name java_procname)
|
||||
"com.facebook.litho.Component$Builder"
|
||||
| _ ->
|
||||
false
|
||||
|
||||
|
||||
let is_component procname tenv =
|
||||
match procname with
|
||||
| Typ.Procname.Java java_procname ->
|
||||
PatternMatch.is_subtype_of_str tenv
|
||||
(Typ.Procname.Java.get_class_type_name java_procname)
|
||||
"com.facebook.litho.Component"
|
||||
| _ ->
|
||||
false
|
||||
|
||||
|
||||
let is_component_build_method procname tenv =
|
||||
match Typ.Procname.get_method procname with
|
||||
| "build" ->
|
||||
is_component_builder procname tenv
|
||||
| _ ->
|
||||
false
|
||||
|
||||
|
||||
let is_component_create_method procname tenv =
|
||||
match Typ.Procname.get_method procname with "create" -> is_component procname tenv | _ -> false
|
||||
|
||||
|
||||
let get_component_create_typ_opt procname tenv =
|
||||
match procname with
|
||||
| Typ.Procname.Java java_pname when is_component_create_method procname tenv ->
|
||||
Some (Typ.Procname.Java.get_class_type_name java_pname)
|
||||
| _ ->
|
||||
None
|
||||
|
||||
|
||||
module type LithoContext = sig
|
||||
type t
|
||||
|
||||
type summary
|
||||
|
||||
val field : (Payloads.t, summary option) Field.t
|
||||
|
||||
val check_callee : callee_pname:Typ.Procname.t -> tenv:Tenv.t -> summary option -> bool
|
||||
|
||||
val satisfies_heuristic :
|
||||
callee_pname:Typ.Procname.t -> callee_summary_opt:summary option -> Tenv.t -> bool
|
||||
|
||||
val should_report : Procdesc.t -> Tenv.t -> bool
|
||||
|
||||
val report : summary -> Tenv.t -> Summary.t -> summary
|
||||
|
||||
val session_name : string
|
||||
end
|
||||
|
||||
type get_proc_summary_and_formals =
|
||||
Typ.Procname.t -> (Domain.summary * (Pvar.t * Typ.t) list) option
|
||||
|
||||
type extras = {get_proc_summary_and_formals: get_proc_summary_and_formals}
|
||||
|
||||
module TransferFunctions
|
||||
(CFG : ProcCfg.S)
|
||||
(LithoContext : LithoContext with type summary = Domain.summary) =
|
||||
struct
|
||||
module CFG = CFG
|
||||
module Domain = Domain
|
||||
|
||||
module Payload = SummaryPayload.Make (struct
|
||||
type t = LithoContext.summary
|
||||
|
||||
let field = LithoContext.field
|
||||
end)
|
||||
|
||||
type nonrec extras = extras
|
||||
|
||||
let apply_callee_summary summary_opt ~caller_pname ~callee_pname ret_id_typ formals actuals astate
|
||||
=
|
||||
Option.value_map summary_opt ~default:astate ~f:(fun callee_summary ->
|
||||
Domain.subst ~formals ~actuals ~ret_id_typ ~caller_pname ~callee_pname ~caller:astate
|
||||
~callee:callee_summary )
|
||||
|
||||
|
||||
let exec_instr astate ProcData.{summary; tenv; extras= {get_proc_summary_and_formals}} _
|
||||
(instr : HilInstr.t) : Domain.t =
|
||||
let caller_pname = Summary.get_proc_name summary in
|
||||
match instr with
|
||||
| Call
|
||||
( return_base
|
||||
, Direct callee_pname
|
||||
, (HilExp.AccessExpression receiver_ae :: _ as actuals)
|
||||
, _
|
||||
, location ) ->
|
||||
let callee_summary_and_formals_opt = get_proc_summary_and_formals callee_pname in
|
||||
let callee_summary_opt = Option.map callee_summary_and_formals_opt ~f:fst in
|
||||
let receiver =
|
||||
Domain.LocalAccessPath.make_from_access_expression receiver_ae caller_pname
|
||||
in
|
||||
if
|
||||
LithoContext.check_callee ~callee_pname ~tenv callee_summary_opt
|
||||
(* track callee in order to report respective errors *)
|
||||
&& LithoContext.satisfies_heuristic ~callee_pname ~callee_summary_opt tenv
|
||||
then
|
||||
let return_access_path = Domain.LocalAccessPath.make (return_base, []) caller_pname in
|
||||
match get_component_create_typ_opt callee_pname tenv with
|
||||
| Some create_typ ->
|
||||
Domain.call_create return_access_path create_typ location astate
|
||||
| None ->
|
||||
if is_component_build_method callee_pname tenv then
|
||||
Domain.call_build_method ~ret:return_access_path ~receiver astate
|
||||
else if is_component_builder callee_pname tenv then
|
||||
let callee_prefix = Domain.MethodCallPrefix.make callee_pname location in
|
||||
Domain.call_builder ~ret:return_access_path ~receiver callee_prefix astate
|
||||
else astate
|
||||
else
|
||||
(* treat it like a normal call *)
|
||||
Option.value_map callee_summary_and_formals_opt ~default:astate ~f:(fun (_, formals) ->
|
||||
apply_callee_summary callee_summary_opt ~caller_pname ~callee_pname return_base
|
||||
formals actuals astate )
|
||||
| Call (ret_id_typ, Direct callee_pname, actuals, _, _) ->
|
||||
let callee_summary_and_formals_opt = get_proc_summary_and_formals callee_pname in
|
||||
let callee_summary_opt = Option.map callee_summary_and_formals_opt ~f:fst in
|
||||
Option.value_map callee_summary_and_formals_opt ~default:astate ~f:(fun (_, formals) ->
|
||||
apply_callee_summary callee_summary_opt ~caller_pname ~callee_pname ret_id_typ formals
|
||||
actuals astate )
|
||||
| Assign (lhs_ae, rhs, _) ->
|
||||
let astate =
|
||||
match rhs with
|
||||
| HilExp.AccessExpression rhs_ae ->
|
||||
(* creating an alias for the rhs binding; assume all reads will now occur through the
|
||||
alias. this helps us keep track of chains in cases like tmp = getFoo(); x = tmp;
|
||||
tmp.getBar() *)
|
||||
let lhs_access_path =
|
||||
Domain.LocalAccessPath.make
|
||||
(HilExp.AccessExpression.to_access_path lhs_ae)
|
||||
caller_pname
|
||||
in
|
||||
let rhs_access_path =
|
||||
Domain.LocalAccessPath.make
|
||||
(HilExp.AccessExpression.to_access_path rhs_ae)
|
||||
caller_pname
|
||||
in
|
||||
Domain.assign ~lhs:lhs_access_path ~rhs:rhs_access_path astate
|
||||
| _ ->
|
||||
astate
|
||||
in
|
||||
if HilExp.AccessExpression.is_return_var lhs_ae then Domain.call_return astate else astate
|
||||
| _ ->
|
||||
astate
|
||||
|
||||
|
||||
let pp_session_name _node fmt = F.pp_print_string fmt LithoContext.session_name
|
||||
end
|
||||
|
||||
module MakeAnalyzer (LithoContext : LithoContext with type summary = Domain.summary) = struct
|
||||
module TF = TransferFunctions (ProcCfg.Normal) (LithoContext)
|
||||
module A = LowerHil.MakeAbstractInterpreter (TF)
|
||||
|
||||
let init_extras summary =
|
||||
let get_proc_summary_and_formals callee_pname =
|
||||
Ondemand.analyze_proc_name ~caller_summary:summary callee_pname
|
||||
|> Option.bind ~f:(fun summary ->
|
||||
TF.Payload.of_summary summary
|
||||
|> Option.map ~f:(fun payload ->
|
||||
(payload, Summary.get_proc_desc summary |> Procdesc.get_pvar_formals) ) )
|
||||
in
|
||||
{get_proc_summary_and_formals}
|
||||
|
||||
|
||||
let checker {Callbacks.summary; exe_env} =
|
||||
let proc_desc = Summary.get_proc_desc summary in
|
||||
let proc_name = Summary.get_proc_name summary in
|
||||
let tenv = Exe_env.get_tenv exe_env (Summary.get_proc_name summary) in
|
||||
let proc_data = ProcData.make summary tenv (init_extras summary) in
|
||||
let initial = Domain.init tenv proc_name (Procdesc.get_pvar_formals proc_desc) in
|
||||
match A.compute_post proc_data ~initial with
|
||||
| Some post ->
|
||||
let is_void_func = Procdesc.get_ret_type proc_desc |> Typ.is_void in
|
||||
let post = Domain.get_summary ~is_void_func post in
|
||||
let post =
|
||||
if LithoContext.should_report proc_desc tenv then LithoContext.report post tenv summary
|
||||
else post
|
||||
in
|
||||
TF.Payload.update_summary post summary
|
||||
| None ->
|
||||
summary
|
||||
end
|
||||
Loading…
Reference in new issue