pghs975uc
/
infer_clone
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

[clang] Adding getters and setters for all the methods

Browse Source
master
Dulma Rodriguez 10 years ago
parent c9f07e31e3
commit d7655a087e
56 changed files with 793 additions and 622 deletions
Show Stats Download Patch File Download Diff File

6
infer/src/backend/cfg.ml
Unescape View File

@ -724,6 +724,12 @@ let get_all_procs cfg =
let get_defined_procs cfg = let get_defined_procs cfg =
list_filter Procdesc.is_defined (get_all_procs cfg) list_filter Procdesc.is_defined (get_all_procs cfg)
(** Get the objc procedures whose body is generated *)
let get_objc_generated_procs cfg =
list_filter (
fun procdesc ->
(Procdesc.get_attributes procdesc).Sil.is_generated) (get_all_procs cfg)
(** get the function names which should be analyzed before the other ones *) (** get the function names which should be analyzed before the other ones *)
let get_priority_procnames cfg = let get_priority_procnames cfg =
cfg.Node.priority_set cfg.Node.priority_set

3
infer/src/backend/cfg.mli
Unescape View File

@ -297,6 +297,9 @@ val get_all_procs : cfg -> Procdesc.t list
(** Get the procedures whose body is defined in this cfg *) (** Get the procedures whose body is defined in this cfg *)
val get_defined_procs : cfg -> Procdesc.t list val get_defined_procs : cfg -> Procdesc.t list
(** Get the objc procedures whose body is generated *)
val get_objc_generated_procs : cfg -> Procdesc.t list
(** get the function names which should be analyzed before the other ones *) (** get the function names which should be analyzed before the other ones *)
val get_priority_procnames : cfg -> Procname.Set.t val get_priority_procnames : cfg -> Procname.Set.t

6
infer/src/backend/cg.ml
Unescape View File

@ -140,6 +140,12 @@ let node_defined (g: t) n =
info.defined info.defined
with Not_found -> false with Not_found -> false
let node_set_defined (g: t) n defined =
try
let info = Procname.Hash.find g.node_map n in
info.defined <- defined
with Not_found -> ()
let add_edge g nfrom nto = let add_edge g nfrom nto =
_add_node g nfrom false; _add_node g nfrom false;
_add_node g nto false; _add_node g nto false;

1
infer/src/backend/cg.mli
Unescape View File

@ -50,3 +50,4 @@ val node_defined : t -> Procname.t -> bool (** Returns true if the node is defin
val restrict_defined : t -> Procname.Set.t option -> unit (** if not None, restrict defined nodes to the given set *) val restrict_defined : t -> Procname.Set.t option -> unit (** if not None, restrict defined nodes to the given set *)
val save_call_graph_dotty : DB.filename option -> (Procname.t -> 'a list) -> t -> unit (** Print the current call graph as a dotty file. If the filename is [None], use the current file dir inside the DB dir. *) val save_call_graph_dotty : DB.filename option -> (Procname.t -> 'a list) -> t -> unit (** Print the current call graph as a dotty file. If the filename is [None], use the current file dir inside the DB dir. *)
val store_to_file : DB.filename -> t -> unit (** Save a call graph into a file *) val store_to_file : DB.filename -> t -> unit (** Save a call graph into a file *)
val node_set_defined : t -> Procname.t -> bool -> unit (** Change the defined flag of a node *)

4
infer/src/backend/dotty.ml
Unescape View File

@ -903,10 +903,12 @@ let pp_cfgnodelabel fmt (n : Cfg.Node.t) =
let pp_label fmt n = let pp_label fmt n =
match Cfg.Node.get_kind n with match Cfg.Node.get_kind n with
| Cfg.Node.Start_node (pdesc) -> | Cfg.Node.Start_node (pdesc) ->
let gen = if (Cfg.Procdesc.get_attributes pdesc).Sil.is_generated then " (generated)" else "" in
(* let def = if Cfg.Procdesc.is_defined pdesc then "defined" else "declared" in *) (* let def = if Cfg.Procdesc.is_defined pdesc then "defined" else "declared" in *)
(* Format.fprintf fmt "Start %a (%s)" pp_id (Procname.to_string (Cfg.Procdesc.get_proc_name pdesc)) def *) (* Format.fprintf fmt "Start %a (%s)" pp_id (Procname.to_string (Cfg.Procdesc.get_proc_name pdesc)) def *)
Format.fprintf fmt "Start %s\\nFormals: %a\\nLocals: %a" Format.fprintf fmt "Start %s%s\\nFormals: %a\\nLocals: %a"
(Procname.to_string (Cfg.Procdesc.get_proc_name pdesc)) (Procname.to_string (Cfg.Procdesc.get_proc_name pdesc))
gen
pp_etlist (Cfg.Procdesc.get_formals pdesc) pp_etlist (Cfg.Procdesc.get_formals pdesc)
pp_local_list (Cfg.Procdesc.get_locals pdesc); pp_local_list (Cfg.Procdesc.get_locals pdesc);
if list_length (Cfg.Procdesc.get_captured pdesc) <> 0 then if list_length (Cfg.Procdesc.get_captured pdesc) <> 0 then

7
infer/src/backend/inferanalyze.ml
Unescape View File

@ -736,12 +736,15 @@ let analyzer_err_name = "analyzer_err"
let () = let () =
let () = let () =
match !cluster_cmdline with match !cluster_cmdline with
| None -> L.stdout "Starting analysis (Infer version %s)@." Version.versionString; | None ->
if !Sil.curr_language = Sil.C_CPP then
Objc_preanal.do_objc_preanalysis ();
L.stdout "Starting analysis (Infer version %s)@." Version.versionString;
| Some clname -> L.stdout "Cluster %s@." clname in | Some clname -> L.stdout "Cluster %s@." clname in
RegisterCheckers.register (); RegisterCheckers.register ();
Facebook.register_checkers (); Facebook.register_checkers ();
if !allow_specs_cleanup = true && !incremental_mode = ANALYZE_ALL && !cluster_cmdline = None then if !allow_specs_cleanup = true && !incremental_mode = ANALYZE_ALL && !cluster_cmdline = None then
DB.Results_dir.clean_specs_dir (); DB.Results_dir.clean_specs_dir ();
let log_dir = DB.filename_to_string (DB.Results_dir.path_to_filename DB.Results_dir.Abs_root [log_dir_name]) in let log_dir = DB.filename_to_string (DB.Results_dir.path_to_filename DB.Results_dir.Abs_root [log_dir_name]) in

102
infer/src/backend/objc_preanal.ml
Unescape View File

@ -0,0 +1,102 @@
(*
* Copyright (c) 2015 - present Facebook, Inc.
* All rights reserved.
*
* This source code is licensed under the BSD style license found in the
* LICENSE file in the root directory of this source tree. An additional grant
* of patent rights can be found in the PATENTS file in the same directory.
*)
open Utils
type procedure_type =
| ALL
| DEFINED
| OBJC_GENERATED
let print_map procname_map =
Procname.Hash.iter
(fun pname redefined ->
print_endline ((Procname.to_string pname)^" "^(string_of_bool redefined)))
procname_map
let process_all_cfgs process_function default_value =
let source_dirs = DB.find_source_dirs () in
let process_dir source_dir value =
let cfg_name = DB.source_dir_get_internal_file source_dir ".cfg" in
let cfg_opt = Cfg.load_cfg_from_file cfg_name in
match cfg_opt with
| None -> value
| Some cfg -> process_function cfg source_dir in
list_fold_right process_dir source_dirs default_value
let process_procedures process_function default_value procedure_type =
let process_cfg_procedures cfg source_dir =
let procdescs =
match procedure_type with
| DEFINED -> Cfg.get_defined_procs cfg
| ALL -> Cfg.get_all_procs cfg
| OBJC_GENERATED -> Cfg.get_objc_generated_procs cfg in
list_fold_right (process_function cfg source_dir) procdescs default_value in
process_all_cfgs process_cfg_procedures default_value
let process_all_procedures process_function default_value =
process_procedures process_function default_value ALL
let process_defined_procedures process_function default_value =
process_procedures process_function default_value DEFINED
let process_objc_generated_procedures process_function default_value =
process_procedures process_function default_value OBJC_GENERATED
(* first run to fill the map. The bool that indicates whether the method *)
(* has a real implementation is false by default *)
let fill_generated_proc_map generated_proc_map =
let add_generated_pname_to_map cfg source_dir procdesc () =
let pname = Cfg.Procdesc.get_proc_name procdesc in
Procname.Hash.replace generated_proc_map pname false in
process_objc_generated_procedures add_generated_pname_to_map ()
(* second run to update the map. Now we check whether there is a real *)
(* implementation for the generated methods *)
let update_generate_proc_map generated_proc_map =
let update_generated_pname_to_map cfg source_dir procdesc () =
let cfg_pname = Cfg.Procdesc.get_proc_name procdesc in
if not (Cfg.Procdesc.get_attributes procdesc).Sil.is_generated then
try ignore(Procname.Hash.find generated_proc_map cfg_pname);
Procname.Hash.replace generated_proc_map cfg_pname true
with Not_found -> () in
process_defined_procedures update_generated_pname_to_map ()
(* third run to change the cfgs according to the map. The generated methods *)
(* that have implementations get deleted. *)
let update_cfgs generated_proc_map =
let update_cfg cfg source_dir =
let generated_procs = Cfg.get_objc_generated_procs cfg in
let cfg_name = DB.source_dir_get_internal_file source_dir ".cfg" in
let cg_name = DB.source_dir_get_internal_file source_dir ".cg" in
let cg_opt = Cg.load_from_file cg_name in
match cg_opt with
| None -> assert false
| Some cg ->
let update_cfg_procdesc procdesc need_updating =
let pname = Cfg.Procdesc.get_proc_name procdesc in
let is_redefined =
try Procname.Hash.find generated_proc_map pname
with Not_found -> assert false in
if is_redefined then
(Cfg.Procdesc.remove cfg pname true;
Cg.node_set_defined cg pname false;
true)
else need_updating in
let need_updating = list_fold_right update_cfg_procdesc generated_procs false in
if need_updating then
(Cfg.store_cfg_to_file cfg_name false cfg;
Cg.store_to_file cg_name cg) in
process_all_cfgs update_cfg ()
let do_objc_preanalysis () =
let generated_proc_map = Procname.Hash.create 100 in
fill_generated_proc_map generated_proc_map;
update_generate_proc_map generated_proc_map;
update_cfgs generated_proc_map

10
infer/src/backend/objc_preanal.mli
Unescape View File

@ -0,0 +1,10 @@
(*
* Copyright (c) 2015 - present Facebook, Inc.
* All rights reserved.
*
* This source code is licensed under the BSD style license found in the
* LICENSE file in the root directory of this source tree. An additional grant
* of patent rights can be found in the PATENTS file in the same directory.
*)
val do_objc_preanalysis : unit -> unit

8
infer/src/backend/procname.ml
Unescape View File

@ -178,6 +178,12 @@ let c_method_replace_class t class_name =
| C_METHOD osig -> C_METHOD { osig with class_name = class_name } | C_METHOD osig -> C_METHOD { osig with class_name = class_name }
| _ -> assert false | _ -> assert false
(** Get the class name of a Objective-C/C++ procedure name. *)
let c_get_class t =
match t with
| C_METHOD osig -> osig.class_name
| _ -> assert false
(** Return the package.classname of a java procname. *) (** Return the package.classname of a java procname. *)
let java_get_class = function let java_get_class = function
| JAVA j -> java_type_to_string j.classname VERBOSE | JAVA j -> java_type_to_string j.classname VERBOSE
@ -321,12 +327,10 @@ let is_constructor = function
| C_METHOD name -> Utils.string_is_prefix "init" name.method_name | C_METHOD name -> Utils.string_is_prefix "init" name.method_name
| _ -> false | _ -> false
let java_is_close = function let java_is_close = function
| JAVA js -> js.methodname = "close" | JAVA js -> js.methodname = "close"
| _ -> false | _ -> false
(** [is_class_initializer pname] returns true if [pname] is a class initializer *) (** [is_class_initializer pname] returns true if [pname] is a class initializer *)
let is_class_initializer = function let is_class_initializer = function
| JAVA js -> js.methodname = "<clinit>" | JAVA js -> js.methodname = "<clinit>"

3
infer/src/backend/procname.mli
Unescape View File

@ -63,6 +63,9 @@ val java_replace_return_type : t -> java_type -> t
(** Replace the class name of an Objective-C procedure name. *) (** Replace the class name of an Objective-C procedure name. *)
val c_method_replace_class : t -> string -> t val c_method_replace_class : t -> string -> t
(** Get the class name of a Objective-C/C++ procedure name. *)
val c_get_class : t -> string
(** Return the class name of a java procedure name. *) (** Return the class name of a java procedure name. *)
val java_get_class : t -> string val java_get_class : t -> string

2
infer/src/backend/sil.ml
Unescape View File

@ -51,6 +51,7 @@ type proc_attributes =
language : language; language : language;
func_attributes : func_attribute list; func_attributes : func_attribute list;
method_annotation : method_annotation; method_annotation : method_annotation;
is_generated : bool;
} }
let copy_proc_attributes pa = let copy_proc_attributes pa =
@ -64,6 +65,7 @@ let copy_proc_attributes pa =
language = pa.language; language = pa.language;
func_attributes = pa.func_attributes; func_attributes = pa.func_attributes;
method_annotation = pa.method_annotation; method_annotation = pa.method_annotation;
is_generated = pa.is_generated;
} }
(** Compare function for annotations. *) (** Compare function for annotations. *)

1
infer/src/backend/sil.mli
Unescape View File

@ -65,6 +65,7 @@ type proc_attributes =
language : language; language : language;
func_attributes : func_attribute list; func_attributes : func_attribute list;
method_annotation : method_annotation; method_annotation : method_annotation;
is_generated : bool;
} }
(** Create a copy of a proc_attributes *) (** Create a copy of a proc_attributes *)

1
infer/src/backend/specs.ml
Unescape View File

@ -787,6 +787,7 @@ let reset_summary call_graph proc_name loc =
Sil.language = !Sil.curr_language; Sil.language = !Sil.curr_language;
Sil.func_attributes = []; Sil.func_attributes = [];
Sil.method_annotation = Sil.method_annotation_empty; Sil.method_annotation = Sil.method_annotation_empty;
Sil.is_generated = false;
} in } in
init_summary ( init_summary (
proc_name, proc_name,

27
infer/src/clang/ast_expressions.ml
Unescape View File

@ -37,6 +37,20 @@ let dummy_decl_info decl_info =
Clang_ast_t.di_source_range = dummy_source_range (); Clang_ast_t.di_source_range = dummy_source_range ();
} }
let dummy_decl_info_in_curr_file decl_info =
let source_loc = {
sl_file = Some (DB.source_file_to_abs_path !CLocation.current_source_file);
sl_line = None;
sl_column = None
} in {
decl_info with
Clang_ast_t.di_pointer = Ast_utils.get_fresh_pointer ();
Clang_ast_t.di_source_range =
if !CFrontend_config.testing_mode then
decl_info.Clang_ast_t.di_source_range
else (source_loc, source_loc)
}
let empty_decl_info = { let empty_decl_info = {
Clang_ast_t.di_pointer = ""; Clang_ast_t.di_pointer = "";
Clang_ast_t.di_parent_pointer = None; Clang_ast_t.di_parent_pointer = None;
@ -265,16 +279,7 @@ let make_deref_self_field class_decl_opt di qt field_name =
let cast_exp' = ImplicitCastExpr(stmt_info, [ivar_ref_exp], expr_info', cast_exp_info) in let cast_exp' = ImplicitCastExpr(stmt_info, [ivar_ref_exp], expr_info', cast_exp_info) in
cast_exp' cast_exp'
let make_objc_ivar_decl decl_info qt property_impl_decl_info = let make_objc_ivar_decl decl_info qt property_impl_decl_info ivar_name =
let name = Ast_utils.property_name property_impl_decl_info in
let qt = match qt with
| Some qt' -> qt'
| None -> (* a qual_type was not found by the caller, so we try to get it out of property_impl_decl_info *)
(match property_impl_decl_info.Clang_ast_t.opidi_ivar_decl with
| Some decl_ref -> (match decl_ref.Clang_ast_t.dr_qual_type with
| Some qt' -> qt'
| None -> assert false)
| _ -> assert false) in
let field_decl_info = { let field_decl_info = {
Clang_ast_t.fldi_is_mutable = true; Clang_ast_t.fldi_is_mutable = true;
Clang_ast_t.fldi_is_module_private = true; Clang_ast_t.fldi_is_module_private = true;
@ -283,7 +288,7 @@ let make_objc_ivar_decl decl_info qt property_impl_decl_info =
let obj_c_ivar_decl_info = { let obj_c_ivar_decl_info = {
Clang_ast_t.ovdi_is_synthesize = true; (* NOTE: We set true here because we use this definition to synthesize the getter/setter*) Clang_ast_t.ovdi_is_synthesize = true; (* NOTE: We set true here because we use this definition to synthesize the getter/setter*)
Clang_ast_t.ovdi_access_control = `Private } in Clang_ast_t.ovdi_access_control = `Private } in
ObjCIvarDecl(decl_info, make_name_decl name, qt, field_decl_info, obj_c_ivar_decl_info) ObjCIvarDecl(decl_info, make_name_decl ivar_name, qt, field_decl_info, obj_c_ivar_decl_info)
let make_expr_info qt = let make_expr_info qt =
{ {

4
infer/src/clang/ast_expressions.mli
Unescape View File

@ -15,6 +15,8 @@ val dummy_stmt : unit -> stmt
val dummy_decl_info : decl_info -> decl_info val dummy_decl_info : decl_info -> decl_info
val dummy_decl_info_in_curr_file : decl_info -> decl_info
val dummy_source_range : unit -> source_range val dummy_source_range : unit -> source_range
val dummy_stmt_info : unit -> stmt_info val dummy_stmt_info : unit -> stmt_info
@ -23,7 +25,7 @@ val create_qual_type : string -> qual_type
val create_pointer_type : string -> qual_type val create_pointer_type : string -> qual_type
val make_objc_ivar_decl : decl_info -> qual_type option -> obj_c_property_impl_decl_info -> decl val make_objc_ivar_decl : decl_info -> qual_type -> obj_c_property_impl_decl_info -> string -> decl
val make_deref_self_field : string -> decl_info -> qual_type -> string -> stmt val make_deref_self_field : string -> decl_info -> qual_type -> string -> stmt

20
infer/src/clang/cContext.ml
Unescape View File

@ -254,9 +254,11 @@ let get_curr_class_name curr_class =
let curr_class_to_string curr_class = let curr_class_to_string curr_class =
match curr_class with match curr_class with
| ContextCls (name, _, _) -> ("class "^name) | ContextCls (name, superclass, protocols) ->
| ContextCategory (name, cls) -> ("category "^name^" of class "^cls) ("class " ^ name ^ ", superclass: " ^ (Option.default "" superclass) ^
| ContextProtocol name -> ("protocol "^name) ", protocols: " ^ (Utils.list_to_string (fun x -> x) protocols))
| ContextCategory (name, cls) -> ("category " ^ name ^ " of class " ^ cls)
| ContextProtocol name -> ("protocol " ^ name)
| ContextNoCls -> "no class" | ContextNoCls -> "no class"
let curr_class_compare curr_class1 curr_class2 = let curr_class_compare curr_class1 curr_class2 =
@ -290,5 +292,13 @@ let get_qt_curr_class curr_class =
let get_captured_vars context = context.captured_vars let get_captured_vars context = context.captured_vars
let create_curr_class tenv class_name =
let class_tn_name = Sil.TN_csu (Sil.Class, (Mangled.from_string class_name)) in
match Sil.tenv_lookup tenv class_tn_name with
| Some Sil.Tstruct(intf_fields, _, _, _, superclasses, methods, annotation) ->
(let superclasses_names = list_map (fun (_, name) -> Mangled.to_string name) superclasses in
match superclasses_names with
| superclass:: protocols ->
ContextCls (class_name, Some superclass, protocols)
| [] -> ContextCls (class_name, None, []))
| _ -> assert false

1
infer/src/clang/cContext.mli
Unescape View File

@ -75,4 +75,5 @@ val get_tenv : t -> Sil.tenv
val create_context : Sil.tenv -> Cg.t -> Cfg.cfg -> Cfg.Procdesc.t -> val create_context : Sil.tenv -> Cg.t -> Cfg.cfg -> Cfg.Procdesc.t ->
string option -> curr_class -> bool -> (Mangled.t * Sil.typ * bool) list -> bool -> t string option -> curr_class -> bool -> (Mangled.t * Sil.typ * bool) list -> bool -> t
val create_curr_class : Sil.tenv -> string -> curr_class

1
infer/src/clang/cEnum_decl.ml
Unescape View File

@ -27,6 +27,7 @@ let create_empty_procdesc () =
Sil.language = Sil.C_CPP; Sil.language = Sil.C_CPP;
Sil.func_attributes = []; Sil.func_attributes = [];
Sil.method_annotation = Sil.method_annotation_empty; Sil.method_annotation = Sil.method_annotation_empty;
Sil.is_generated = false;
} in } in
create { create {
cfg = Cfg.Node.create_cfg (); cfg = Cfg.Node.create_cfg ();

50
infer/src/clang/cField_decl.ml
Unescape View File

@ -16,6 +16,8 @@ open Clang_ast_t
module L = Logging module L = Logging
type field_type = Ident.fieldname * Sil.typ * (Sil.annotation * bool) list
let rec get_fields_super_classes tenv super_class = let rec get_fields_super_classes tenv super_class =
Printing.log_out " ... Getting fields of superclass '%s'\n" (Sil.typename_to_string super_class); Printing.log_out " ... Getting fields of superclass '%s'\n" (Sil.typename_to_string super_class);
match Sil.tenv_lookup tenv super_class with match Sil.tenv_lookup tenv super_class with
@ -50,14 +52,16 @@ let get_field_www name_field fl =
let rec build_sil_field tenv class_name field_name qual_type prop_atts = let rec build_sil_field tenv class_name field_name qual_type prop_atts =
let annotation_from_type t = let annotation_from_type t =
match t with match t with
| Sil.Tptr(_,Sil.Pk_objc_weak) -> [Config.weak] | Sil.Tptr (_, Sil.Pk_objc_weak) -> [Config.weak]
| Sil.Tptr(_,Sil.Pk_objc_unsafe_unretained) -> [Config.unsafe_unret] | Sil.Tptr (_, Sil.Pk_objc_unsafe_unretained) -> [Config.unsafe_unret]
| _ -> [] in | _ -> [] in
let fname = mk_class_field_name class_name field_name in let fname = mk_class_field_name class_name field_name in
let typ = CTypes_decl.qual_type_to_sil_type tenv qual_type in let typ = CTypes_decl.qual_type_to_sil_type tenv qual_type in
let item_annotations = match prop_atts with let item_annotations = match prop_atts with
| None -> [({ Sil.class_name = Config.ivar_attributes; Sil.parameters = annotation_from_type typ }, true)] | [] ->
| Some atts -> [({ Sil.class_name = Config.property_attributes; Sil.parameters = atts }, true)] in [({ Sil.class_name = Config.ivar_attributes; Sil.parameters = annotation_from_type typ }, true)]
| _ ->
[({ Sil.class_name = Config.property_attributes; Sil.parameters = prop_atts }, true)] in
fname, typ, item_annotations fname, typ, item_annotations
(* From an ivar look for its property and if it finds it returns its attributes *) (* From an ivar look for its property and if it finds it returns its attributes *)
@ -68,17 +72,24 @@ let ivar_property curr_class ivar =
(Printing.log_out "Found property name from ivar: '%s'" pname'; (Printing.log_out "Found property name from ivar: '%s'" pname';
try try
let _, atts, _, _, _, _ = ObjcProperty_decl.Property.find_property curr_class pname' in let _, atts, _, _, _, _ = ObjcProperty_decl.Property.find_property curr_class pname' in
let atts_str = list_map Clang_ast_j.string_of_property_attribute atts in atts
Some atts_str
with Not_found -> with Not_found ->
Printing.log_out "Didn't find property for pname '%s'" pname'; Printing.log_out "Didn't find property for pname '%s'" pname';
None) [])
| None -> Printing.log_out "No property found for ivar '%s'@." ivar; | None -> Printing.log_out "No property found for ivar '%s'@." ivar;
None []
let build_sil_field_property curr_class tenv field_name qual_type prop_attributes_opt =
let class_name = CContext.get_curr_class_name curr_class in
let prop_attributes =
match prop_attributes_opt with
| Some prop_attributes -> prop_attributes
| None -> ivar_property curr_class field_name in
let atts_str = list_map Clang_ast_j.string_of_property_attribute prop_attributes in
build_sil_field tenv class_name field_name qual_type atts_str
(* Given a list of declarations in an interface returns a list of fields *) (* Given a list of declarations in an interface returns a list of fields *)
let rec get_fields tenv curr_class decl_list = let rec get_fields tenv curr_class decl_list =
let class_name = CContext.get_curr_class_name curr_class in
match decl_list with match decl_list with
| [] -> [] | [] -> []
| ObjCIvarDecl(decl_info, name_info, qual_type, field_decl_info, obj_c_ivar_decl_info) :: decl_list' -> | ObjCIvarDecl(decl_info, name_info, qual_type, field_decl_info, obj_c_ivar_decl_info) :: decl_list' ->
@ -87,8 +98,8 @@ let rec get_fields tenv curr_class decl_list =
(* Doing a post visit here. Adding Ivar after all the declaration have been visited so that *) (* Doing a post visit here. Adding Ivar after all the declaration have been visited so that *)
(* ivar names will be added in the property list. *) (* ivar names will be added in the property list. *)
Printing.log_out " ...Adding Instance Variable '%s' @." field_name; Printing.log_out " ...Adding Instance Variable '%s' @." field_name;
let prop_attributes = ivar_property curr_class field_name in let (fname, typ, ia) = build_sil_field_property curr_class tenv field_name qual_type None in
let (fname, typ, ia) = build_sil_field tenv class_name field_name qual_type prop_attributes in
Printing.log_out " ...Resulting sil field: (%s) with attributes:@." ((Ident.fieldname_to_string fname) ^":"^(Sil.typ_to_string typ)); Printing.log_out " ...Resulting sil field: (%s) with attributes:@." ((Ident.fieldname_to_string fname) ^":"^(Sil.typ_to_string typ));
list_iter (fun (ia', _) -> list_iter (fun (ia', _) ->
list_iter (fun a -> Printing.log_out " '%s'@." a) ia'.Sil.parameters) ia; list_iter (fun a -> Printing.log_out " '%s'@." a) ia'.Sil.parameters) ia;
@ -101,3 +112,20 @@ let rec get_fields tenv curr_class decl_list =
| (d : Clang_ast_t.decl):: decl_list' -> | (d : Clang_ast_t.decl):: decl_list' ->
get_fields tenv curr_class decl_list' get_fields tenv curr_class decl_list'
(* Add potential extra fields defined only in the implementation of the class *)
(* to the info given in the interface. Update the tenv accordingly. *)
let add_missing_fields tenv class_name fields =
let mang_name = Mangled.from_string class_name in
let class_tn_name = Sil.TN_csu (Sil.Class, mang_name) in
match Sil.tenv_lookup tenv class_tn_name with
| Some Sil.Tstruct(intf_fields, _, _, _, superclass, methods, annotation) ->
let new_fields = append_no_duplicates_fields fields intf_fields in
let new_fields = CFrontend_utils.General_utils.sort_fields new_fields in
let class_type_info =
Sil.Tstruct (
new_fields, [], Sil.Class, Some mang_name, superclass, methods, annotation
) in
Printing.log_out " Updating info for class '%s' in tenv\n" class_name;
Sil.tenv_add tenv class_tn_name class_type_info
| _ -> assert false

13
infer/src/clang/cField_decl.mli
Unescape View File

@ -9,8 +9,17 @@
(** Utility module to retrieve fields of structs of classes *) (** Utility module to retrieve fields of structs of classes *)
val get_fields : Sil.tenv -> CContext.curr_class -> Clang_ast_t.decl list ->
(Ident.fieldname * Sil.typ * Sil.item_annotation) list
val fields_superclass : Sil.tenv -> Clang_ast_t.obj_c_interface_decl_info -> val fields_superclass : Sil.tenv -> Clang_ast_t.obj_c_interface_decl_info ->
(Ident.fieldname * Sil.typ * Sil.item_annotation) list (Ident.fieldname * Sil.typ * Sil.item_annotation) list
type field_type = Ident.fieldname * Sil.typ * (Sil.annotation * bool) list
val get_fields : Sil.tenv -> CContext.curr_class -> Clang_ast_t.decl list -> field_type list
val fields_superclass : Sil.tenv -> Clang_ast_t.obj_c_interface_decl_info -> field_type list
val build_sil_field_property : CContext.curr_class -> Sil.tenv -> string -> Clang_ast_t.qual_type ->
Clang_ast_t.property_attribute list option -> field_type
val add_missing_fields : Sil.tenv -> string -> field_type list -> unit

4
infer/src/clang/cFrontend_config.ml
Unescape View File

@ -144,4 +144,6 @@ let objects = "objects"
let ns_array_ptr = "NSArray *" let ns_array_ptr = "NSArray *"
let enumerateObjectsUsingBlock = "enumerateObjectsUsingBlock:" let enumerateObjectsUsingBlock = "enumerateObjectsUsingBlock:"
let generated_suffix = "*generated"

4
infer/src/clang/cFrontend_config.mli
Unescape View File

@ -141,4 +141,6 @@ val objects : string
val ns_array_ptr : string val ns_array_ptr : string
val enumerateObjectsUsingBlock : string val enumerateObjectsUsingBlock : string
val generated_suffix : string

17
infer/src/clang/cFrontend_utils.ml
Unescape View File

@ -156,6 +156,9 @@ struct
| _ -> no_property_name) | _ -> no_property_name)
| None -> no_property_name | None -> no_property_name
let generated_ivar_name property_name =
"_"^property_name
let property_attribute_compare att1 att2 = let property_attribute_compare att1 att2 =
match att1, att2 with match att1, att2 with
`Readonly, `Readonly -> 0 `Readonly, `Readonly -> 0
@ -211,11 +214,10 @@ struct
attribute = `Copy attribute = `Copy
| _ -> false | _ -> false
let name_opt_of_name_info_opt name_info_opt =
let name_opt_of_name_info_opt name_info_opt = match name_info_opt with
match name_info_opt with | Some name_info -> Some name_info.Clang_ast_t.ni_name
| Some name_info -> Some name_info.Clang_ast_t.ni_name | None -> None
| None -> None
let rec getter_attribute_opt attributes = let rec getter_attribute_opt attributes =
match attributes with match attributes with
@ -251,6 +253,11 @@ struct
| Some qt -> Some qt | Some qt -> Some qt
| None -> None | None -> None
let is_generated name_info =
match name_info.Clang_ast_t.ni_qual_name with
| generated:: rest -> generated = CFrontend_config.generated_suffix
| _ -> false
end end
(* Global counter for anonymous block*) (* Global counter for anonymous block*)

4
infer/src/clang/cFrontend_utils.mli
Unescape View File

@ -51,6 +51,8 @@ sig
val property_attribute_compare : property_attribute -> property_attribute -> int val property_attribute_compare : property_attribute -> property_attribute -> int
val generated_ivar_name : string -> string
val property_attribute_eq : property_attribute -> property_attribute -> bool val property_attribute_eq : property_attribute -> property_attribute -> bool
val getter_attribute_opt : property_attribute list -> string option val getter_attribute_opt : property_attribute list -> string option
@ -72,6 +74,8 @@ sig
val type_from_unary_expr_or_type_trait_expr_info : val type_from_unary_expr_or_type_trait_expr_info :
Clang_ast_t.unary_expr_or_type_trait_expr_info -> Clang_ast_t.qual_type option Clang_ast_t.unary_expr_or_type_trait_expr_info -> Clang_ast_t.qual_type option
val is_generated : Clang_ast_t.named_decl_info -> bool
end end
module General_utils : module General_utils :

8
infer/src/clang/cLocation.mli
Unescape View File

@ -9,6 +9,14 @@
(** Module for function to retrieve the location (file, line, etc) of instructions *) (** Module for function to retrieve the location (file, line, etc) of instructions *)
(* The file passed as an argument to InferClang *)
val current_source_file : DB.source_file ref
(* Inside the json there may be code or type definitions from other files *)
(* than the one passed as an argument. That current file in the translation is saved*)
(* in this variable. *)
val curr_file : DB.source_file ref
val clang_to_sil_location : Clang_ast_t.source_location -> int -> Cfg.Procdesc.t option -> val clang_to_sil_location : Clang_ast_t.source_location -> int -> Cfg.Procdesc.t option ->
Sil.location Sil.location

67
infer/src/clang/cMethod_decl.ml
Unescape View File

@ -12,6 +12,7 @@
open Utils open Utils
open CFrontend_utils open CFrontend_utils
open Clang_ast_t open Clang_ast_t
open CContext
module L = Logging module L = Logging
@ -24,6 +25,8 @@ module type CMethod_decl = sig
val create_function_signature : Clang_ast_t.decl_info -> Clang_ast_t.function_decl_info -> string -> val create_function_signature : Clang_ast_t.decl_info -> Clang_ast_t.function_decl_info -> string ->
Clang_ast_t.qual_type -> bool -> Procname.t option -> Clang_ast_t.stmt option * CMethod_signature.method_signature Clang_ast_t.qual_type -> bool -> Procname.t option -> Clang_ast_t.stmt option * CMethod_signature.method_signature
val process_getter_setter : CContext.t -> Procname.t -> bool
end end
module CMethod_decl_funct(T: CModule_type.CTranslation) : CMethod_decl = module CMethod_decl_funct(T: CModule_type.CTranslation) : CMethod_decl =
@ -73,13 +76,13 @@ struct
let qt = method_decl_info.Clang_ast_t.omdi_result_type in let qt = method_decl_info.Clang_ast_t.omdi_result_type in
CTypes.get_type qt CTypes.get_type qt
let build_method_signature decl_info procname function_method_decl_info is_instance is_anonym_block = let build_method_signature decl_info procname function_method_decl_info is_instance is_anonym_block is_generated =
let source_range = decl_info.Clang_ast_t.di_source_range in let source_range = decl_info.Clang_ast_t.di_source_range in
let qt = get_return_type function_method_decl_info in let qt = get_return_type function_method_decl_info in
let is_instance_method = is_instance_method function_method_decl_info is_instance is_anonym_block in let is_instance_method = is_instance_method function_method_decl_info is_instance is_anonym_block in
let parameters = get_parameters function_method_decl_info in let parameters = get_parameters function_method_decl_info in
let attributes = decl_info.Clang_ast_t.di_attributes in let attributes = decl_info.Clang_ast_t.di_attributes in
CMethod_signature.make_ms procname parameters qt attributes source_range is_instance_method CMethod_signature.make_ms procname parameters qt attributes source_range is_instance_method is_generated
let create_function_signature di fdecl_info name qt is_instance anonym_block_opt = let create_function_signature di fdecl_info name qt is_instance anonym_block_opt =
let procname, is_anonym_block = let procname, is_anonym_block =
@ -87,7 +90,7 @@ struct
| Some block -> block, true | Some block -> block, true
| None -> CMethod_trans.mk_procname_from_function name (CTypes.get_type qt), false in | None -> CMethod_trans.mk_procname_from_function name (CTypes.get_type qt), false in
let ms = build_method_signature di procname let ms = build_method_signature di procname
(Func_decl_info (fdecl_info, CTypes.get_type qt)) is_instance is_anonym_block in (Func_decl_info (fdecl_info, CTypes.get_type qt)) is_instance is_anonym_block false in
(match method_body_to_translate di ms fdecl_info.Clang_ast_t.fdi_body with (match method_body_to_translate di ms fdecl_info.Clang_ast_t.fdi_body with
| Some body -> Some body, ms | Some body -> Some body, ms
| None -> None, ms) | None -> None, ms)
@ -154,42 +157,45 @@ struct
match create_function_signature di fdecl_info name qt is_instance anonym_block_opt with match create_function_signature di fdecl_info name qt is_instance anonym_block_opt with
| Some body, ms -> (* Only in the case the function declaration has a defined body we create a procdesc *) | Some body, ms -> (* Only in the case the function declaration has a defined body we create a procdesc *)
let procname = CMethod_signature.ms_get_name ms in let procname = CMethod_signature.ms_get_name ms in
CMethod_trans.create_local_procdesc cfg tenv ms [body] captured_vars false; if CMethod_trans.create_local_procdesc cfg tenv ms [body] captured_vars false then
let is_instance = CMethod_signature.ms_is_instance ms in let is_instance = CMethod_signature.ms_is_instance ms in
let is_anonym_block = Option.is_some anonym_block_opt in let is_anonym_block = Option.is_some anonym_block_opt in
let is_objc_method = is_anonym_block in let is_objc_method = is_anonym_block in
let curr_class = if is_anonym_block then curr_class else CContext.ContextNoCls in let curr_class = if is_anonym_block then curr_class else CContext.ContextNoCls in
let attributes = CMethod_signature.ms_get_attributes ms in let attributes = CMethod_signature.ms_get_attributes ms in
CMethod_signature.add ms; CMethod_signature.add ms;
add_method tenv cg cfg curr_class procname namespace [body] is_objc_method is_instance add_method tenv cg cfg curr_class procname namespace [body] is_objc_method is_instance
captured_vars is_anonym_block fdecl_info.Clang_ast_t.fdi_parameters attributes captured_vars is_anonym_block fdecl_info.Clang_ast_t.fdi_parameters attributes
| None, ms -> CMethod_signature.add ms | None, ms -> CMethod_signature.add ms
let process_objc_method_decl tenv cg cfg namespace curr_class decl_info method_name method_decl_info = let process_objc_method_decl tenv cg cfg namespace curr_class decl_info name_info method_decl_info =
let class_name = CContext.get_curr_class_name curr_class in let class_name = CContext.get_curr_class_name curr_class in
let method_name = name_info.Clang_ast_t.ni_name in
let procname = CMethod_trans.mk_procname_from_method class_name method_name in let procname = CMethod_trans.mk_procname_from_method class_name method_name in
let method_decl = Meth_decl_info (method_decl_info, class_name) in let method_decl = Meth_decl_info (method_decl_info, class_name) in
let ms = build_method_signature decl_info procname method_decl false false in let is_generated = Ast_utils.is_generated name_info in
let ms = build_method_signature decl_info procname method_decl false false is_generated in
Printing.log_out " ....Processing implementation for method '%s'\n" (Procname.to_string procname); Printing.log_out " ....Processing implementation for method '%s'\n" (Procname.to_string procname);
CMethod_signature.add ms; CMethod_signature.add ms;
(match method_body_to_translate decl_info ms method_decl_info.Clang_ast_t.omdi_body with (match method_body_to_translate decl_info ms method_decl_info.Clang_ast_t.omdi_body with
| Some body -> | Some body ->
let is_instance = CMethod_signature.ms_is_instance ms in let is_instance = CMethod_signature.ms_is_instance ms in
let attributes = CMethod_signature.ms_get_attributes ms in let attributes = CMethod_signature.ms_get_attributes ms in
CMethod_trans.create_local_procdesc cfg tenv ms [body] [] is_instance; if CMethod_trans.create_local_procdesc cfg tenv ms [body] [] is_instance then
add_method tenv cg cfg curr_class procname namespace [body] true is_instance [] false add_method tenv cg cfg curr_class procname namespace [body] true is_instance [] false
method_decl_info.Clang_ast_t.omdi_parameters attributes method_decl_info.Clang_ast_t.omdi_parameters attributes
| None -> ()) | None -> ())
let rec process_one_method_decl tenv cg cfg curr_class namespace dec = let rec process_one_method_decl tenv cg cfg curr_class namespace dec =
match dec with match dec with
| ObjCMethodDecl(decl_info, name_info, method_decl_info) -> | ObjCMethodDecl(decl_info, name_info, method_decl_info) ->
let method_name = name_info.Clang_ast_t.ni_name in process_objc_method_decl tenv cg cfg namespace curr_class decl_info name_info method_decl_info
process_objc_method_decl tenv cg cfg namespace curr_class decl_info method_name method_decl_info
| ObjCPropertyImplDecl(decl_info, property_impl_decl_info) -> | ObjCPropertyImplDecl(decl_info, property_impl_decl_info) ->
let prop_methods = ObjcProperty_decl.make_getter_setter cfg curr_class decl_info property_impl_decl_info in let pname = Ast_utils.property_name property_impl_decl_info in
list_iter (process_one_method_decl tenv cg cfg curr_class namespace) prop_methods Printing.log_out "ADDING: ObjCPropertyImplDecl for property '%s' " pname;
let getter_setter = ObjcProperty_decl.make_getter_setter curr_class decl_info pname in
list_iter (process_one_method_decl tenv cg cfg curr_class namespace) getter_setter
| EmptyDecl _ | ObjCIvarDecl _ | ObjCPropertyDecl _ -> () | EmptyDecl _ | ObjCIvarDecl _ | ObjCPropertyDecl _ -> ()
| d -> Printing.log_err | d -> Printing.log_err
@ -199,4 +205,23 @@ struct
let process_methods tenv cg cfg curr_class namespace decl_list = let process_methods tenv cg cfg curr_class namespace decl_list =
list_iter (process_one_method_decl tenv cg cfg curr_class namespace) decl_list list_iter (process_one_method_decl tenv cg cfg curr_class namespace) decl_list
let process_getter_setter context procname =
let class_name = Procname.c_get_class procname in
let cls = CContext.create_curr_class context.tenv class_name in
let method_name = Procname.c_get_method procname in
match ObjcProperty_decl.method_is_property_accesor cls method_name with
| Some (property_name, property_type, is_getter) when
CMethod_trans.should_create_procdesc context.cfg procname true true ->
(match property_type with qt, atts, decl_info, _, _, ivar_opt ->
let ivar_name = ObjcProperty_decl.get_ivar_name property_name ivar_opt in
let field = CField_decl.build_sil_field_property cls context.tenv ivar_name qt (Some atts) in
ignore (CField_decl.add_missing_fields context.tenv class_name [field]);
let accessor =
if is_getter then
ObjcProperty_decl.make_getter cls property_name property_type
else ObjcProperty_decl.make_setter cls property_name property_type in
list_iter (process_one_method_decl context.tenv context.cg context.cfg cls context.namespace) accessor;
true)
| _ -> false
end end

7
infer/src/clang/cMethod_decl.mli
Unescape View File

@ -17,7 +17,10 @@ module CMethod_decl_funct(T: CModule_type.CTranslation) : sig
string -> Clang_ast_t.qual_type -> Clang_ast_t.function_decl_info -> (Mangled.t * Sil.typ * bool) list -> Procname.t option -> CContext.curr_class -> unit string -> Clang_ast_t.qual_type -> Clang_ast_t.function_decl_info -> (Mangled.t * Sil.typ * bool) list -> Procname.t option -> CContext.curr_class -> unit
val create_function_signature : Clang_ast_t.decl_info -> Clang_ast_t.function_decl_info -> string -> val create_function_signature : Clang_ast_t.decl_info -> Clang_ast_t.function_decl_info -> string ->
Clang_ast_t.qual_type -> bool -> Procname.t option -> Clang_ast_t.stmt option * CMethod_signature.method_signature Clang_ast_t.qual_type -> bool -> Procname.t option -> Clang_ast_t.stmt option * CMethod_signature.method_signature
val process_getter_setter : CContext.t -> Procname.t -> bool
end end
module type CMethod_decl = sig module type CMethod_decl = sig
@ -29,4 +32,6 @@ module type CMethod_decl = sig
val create_function_signature : Clang_ast_t.decl_info -> Clang_ast_t.function_decl_info -> string -> val create_function_signature : Clang_ast_t.decl_info -> Clang_ast_t.function_decl_info -> string ->
Clang_ast_t.qual_type -> bool -> Procname.t option -> Clang_ast_t.stmt option * CMethod_signature.method_signature Clang_ast_t.qual_type -> bool -> Procname.t option -> Clang_ast_t.stmt option * CMethod_signature.method_signature
val process_getter_setter : CContext.t -> Procname.t -> bool
end end

14
infer/src/clang/cMethod_signature.ml
Unescape View File

@ -16,7 +16,8 @@ type method_signature = {
_ret_type : string; _ret_type : string;
_attributes : Clang_ast_t.attribute list; _attributes : Clang_ast_t.attribute list;
_loc : Clang_ast_t.source_range; _loc : Clang_ast_t.source_range;
_is_instance : bool _is_instance : bool;
_is_generated : bool;
} }
let ms_get_name ms = let ms_get_name ms =
@ -37,25 +38,30 @@ let ms_get_loc ms =
let ms_is_instance ms = let ms_is_instance ms =
ms._is_instance ms._is_instance
let ms_is_generated ms =
ms._is_generated
type methodMap = method_signature Procname.Map.t type methodMap = method_signature Procname.Map.t
let methodMap = ref Procname.Map.empty let methodMap = ref Procname.Map.empty
let make_ms procname args ret_type attributes loc is_instance = let make_ms procname args ret_type attributes loc is_instance is_generated =
let meth_signature = { let meth_signature = {
_name = procname; _name = procname;
_args = args; _args = args;
_ret_type = ret_type; _ret_type = ret_type;
_attributes = attributes; _attributes = attributes;
_loc = loc; _loc = loc;
_is_instance = is_instance } in _is_instance = is_instance;
_is_generated = is_generated} in
meth_signature meth_signature
let replace_name_ms ms name = let replace_name_ms ms name =
{ ms with _name = name } { ms with _name = name }
let ms_to_string ms = let ms_to_string ms =
"Method "^(Procname.to_string ms._name)^" "^ let gen = if ms._is_generated then " (generated)" else "" in
"Method "^(Procname.to_string ms._name)^gen^" "^
(Utils.list_to_string (fun (s1, s2, _) -> s1^", "^s2) ms._args)^"->"^ms._ret_type^" "^ (Utils.list_to_string (fun (s1, s2, _) -> s1^", "^s2) ms._args)^"->"^ms._ret_type^" "^
Clang_ast_j.string_of_source_range ms._loc Clang_ast_j.string_of_source_range ms._loc

4
infer/src/clang/cMethod_signature.mli
Unescape View File

@ -31,8 +31,10 @@ val ms_get_loc : method_signature -> Clang_ast_t.source_range
val ms_is_instance : method_signature -> bool val ms_is_instance : method_signature -> bool
val make_ms : Procname.t -> (string * string * Clang_ast_t.stmt option) list -> string -> Clang_ast_t.attribute list -> val make_ms : Procname.t -> (string * string * Clang_ast_t.stmt option) list -> string -> Clang_ast_t.attribute list ->
Clang_ast_t.source_range -> bool -> method_signature Clang_ast_t.source_range -> bool -> bool -> method_signature
val replace_name_ms : method_signature -> Procname.t -> method_signature val replace_name_ms : method_signature -> Procname.t -> method_signature
val ms_to_string : method_signature -> string val ms_to_string : method_signature -> string
val ms_is_generated : method_signature -> bool

89
infer/src/clang/cMethod_trans.ml
Unescape View File

@ -73,19 +73,19 @@ let get_superclass_curr_class context =
let get_class_selector_instance context obj_c_message_expr_info act_params = let get_class_selector_instance context obj_c_message_expr_info act_params =
let selector = obj_c_message_expr_info.Clang_ast_t.omei_selector in let selector = obj_c_message_expr_info.Clang_ast_t.omei_selector in
match obj_c_message_expr_info.Clang_ast_t.omei_receiver_kind with match obj_c_message_expr_info.Clang_ast_t.omei_receiver_kind with
| `Class qt -> (CTypes.get_type qt, selector, MCStatic) | `Class qt -> (CTypes.get_type qt, selector, MCStatic)
| `Instance -> | `Instance ->
(match act_params with (match act_params with
| (instance_obj, Sil.Tptr(t, _)):: _ | (instance_obj, Sil.Tptr(t, _)):: _
| (instance_obj, t):: _ -> | (instance_obj, t):: _ ->
(CTypes.classname_of_type t, selector, MCVirtual) (CTypes.classname_of_type t, selector, MCVirtual)
| _ -> assert false) | _ -> assert false)
| `SuperInstance -> | `SuperInstance ->
let superclass = get_superclass_curr_class context in let superclass = get_superclass_curr_class context in
(superclass, selector, MCNoVirtual) (superclass, selector, MCNoVirtual)
| `SuperClass -> | `SuperClass ->
let superclass = get_superclass_curr_class context in let superclass = get_superclass_curr_class context in
(superclass, selector, MCStatic) (superclass, selector, MCStatic)
let get_formal_parameters tenv ms = let get_formal_parameters tenv ms =
let rec defined_parameters pl = let rec defined_parameters pl =
@ -137,21 +137,35 @@ let get_return_type tenv ms =
let sil_func_attributes_of_attributes attrs = let sil_func_attributes_of_attributes attrs =
let rec do_translation acc al = match al with let rec do_translation acc al = match al with
| [] -> list_rev acc | [] -> list_rev acc
| Clang_ast_t.SentinelAttr attribute_info::tl -> | Clang_ast_t.SentinelAttr attribute_info:: tl ->
let (sentinel, null_pos) = match attribute_info.Clang_ast_t.ai_parameters with let (sentinel, null_pos) = match attribute_info.Clang_ast_t.ai_parameters with
| a::b::[] -> (int_of_string a, int_of_string b) | a:: b::[] -> (int_of_string a, int_of_string b)
| _ -> assert false | _ -> assert false
in in
do_translation (Sil.FA_sentinel(sentinel, null_pos)::acc) tl do_translation (Sil.FA_sentinel(sentinel, null_pos):: acc) tl
| _::tl -> do_translation acc tl in | _:: tl -> do_translation acc tl in
do_translation [] attrs do_translation [] attrs
let should_create_procdesc cfg procname defined generated =
match Cfg.Procdesc.find_from_name cfg procname with
| Some prevoius_procdesc ->
let is_defined_previous = Cfg.Procdesc.is_defined prevoius_procdesc in
let is_generated_previous =
(Cfg.Procdesc.get_attributes prevoius_procdesc).Sil.is_generated in
if defined &&
((not is_defined_previous) || (generated && is_generated_previous)) then
(Cfg.Procdesc.remove cfg (Cfg.Procdesc.get_proc_name prevoius_procdesc) true;
true)
else false
| None -> true
(** Creates a procedure description. *) (** Creates a procedure description. *)
let create_local_procdesc cfg tenv ms fbody captured is_objc_inst_method = let create_local_procdesc cfg tenv ms fbody captured is_objc_inst_method =
let defined = not ((list_length fbody) == 0) in let defined = not ((list_length fbody) == 0) in
let procname = CMethod_signature.ms_get_name ms in let procname = CMethod_signature.ms_get_name ms in
let pname = Procname.to_string procname in let pname = Procname.to_string procname in
let attributes = sil_func_attributes_of_attributes (CMethod_signature.ms_get_attributes ms) in let attributes = sil_func_attributes_of_attributes (CMethod_signature.ms_get_attributes ms) in
let is_generated = CMethod_signature.ms_is_generated ms in
let create_new_procdesc () = let create_new_procdesc () =
let formals = get_formal_parameters tenv ms in let formals = get_formal_parameters tenv ms in
let captured_str = list_map (fun (s, t, _) -> (Mangled.to_string s, t)) captured in let captured_str = list_map (fun (s, t, _) -> (Mangled.to_string s, t)) captured in
@ -178,6 +192,7 @@ let create_local_procdesc cfg tenv ms fbody captured is_objc_inst_method =
Sil.language = Sil.C_CPP; Sil.language = Sil.C_CPP;
Sil.func_attributes = attributes; Sil.func_attributes = attributes;
Sil.method_annotation = Sil.method_annotation_empty; Sil.method_annotation = Sil.method_annotation_empty;
Sil.is_generated = is_generated;
} in } in
create { create {
cfg = cfg; cfg = cfg;
@ -199,13 +214,10 @@ let create_local_procdesc cfg tenv ms fbody captured is_objc_inst_method =
let exit_node = Cfg.Node.create cfg loc_exit exit_kind [] procdesc [] in let exit_node = Cfg.Node.create cfg loc_exit exit_kind [] procdesc [] in
Cfg.Procdesc.set_start_node procdesc start_node; Cfg.Procdesc.set_start_node procdesc start_node;
Cfg.Procdesc.set_exit_node procdesc exit_node) in Cfg.Procdesc.set_exit_node procdesc exit_node) in
match Cfg.Procdesc.find_from_name cfg procname with let generated = CMethod_signature.ms_is_generated ms in
| Some prevoius_procdesc -> if should_create_procdesc cfg procname defined generated then
Printing.log_err "\n\n!!!WARNING: procdesc for %s already defined \n" pname; (create_new_procdesc (); true)
if defined && not (Cfg.Procdesc.is_defined prevoius_procdesc) then else false
(Cfg.Procdesc.remove cfg (Cfg.Procdesc.get_proc_name prevoius_procdesc) true;
create_new_procdesc ())
| None -> create_new_procdesc ()
(** Create a procdesc for objc methods whose signature cannot be found. *) (** Create a procdesc for objc methods whose signature cannot be found. *)
let create_external_procdesc cfg procname is_objc_inst_method type_opt = let create_external_procdesc cfg procname is_objc_inst_method type_opt =
@ -231,6 +243,7 @@ let create_external_procdesc cfg procname is_objc_inst_method type_opt =
Sil.language = Sil.C_CPP; Sil.language = Sil.C_CPP;
Sil.func_attributes = []; Sil.func_attributes = [];
Sil.method_annotation = Sil.method_annotation_empty; Sil.method_annotation = Sil.method_annotation_empty;
Sil.is_generated = false;
} in } in
create { create {
cfg = cfg; cfg = cfg;
@ -248,25 +261,3 @@ let create_external_procdesc cfg procname is_objc_inst_method type_opt =
let instance_to_method_call_type instance = let instance_to_method_call_type instance =
if instance then MCVirtual if instance then MCVirtual
else MCStatic else MCStatic
(*Returns the procname and whether is instance, according to the selector *)
(* information and according to the method signature *)
let get_callee_objc_method context obj_c_message_expr_info act_params =
let (class_name, method_name, mc_type) =
get_class_selector_instance context obj_c_message_expr_info act_params in
let is_instance = mc_type != MCStatic in
match CTrans_models.get_predefined_model_method_signature class_name method_name
mk_procname_from_method with
| Some ms ->
create_local_procdesc context.cfg context.tenv ms [] [] is_instance;
CMethod_signature.ms_get_name ms, MCNoVirtual
| None ->
match resolve_method context.tenv class_name method_name with
| Some callee_ms ->
let is_instance = is_instance || (CMethod_signature.ms_is_instance callee_ms) in
create_local_procdesc context.cfg context.tenv callee_ms [] [] is_instance;
(CMethod_signature.ms_get_name callee_ms), mc_type
| None ->
let callee_pn = mk_procname_from_method class_name method_name in
create_external_procdesc context.cfg callee_pn is_instance None;
callee_pn, mc_type

9
infer/src/clang/cMethod_trans.mli
Unescape View File

@ -20,11 +20,8 @@ type method_call_type =
| MCNoVirtual | MCNoVirtual
| MCStatic | MCStatic
val get_callee_objc_method : CContext.t -> Clang_ast_t.obj_c_message_expr_info -> (Sil.exp * Sil.typ) list
-> Procname.t * method_call_type
val create_local_procdesc : Cfg.cfg -> Sil.tenv -> CMethod_signature.method_signature -> val create_local_procdesc : Cfg.cfg -> Sil.tenv -> CMethod_signature.method_signature ->
Clang_ast_t.stmt list -> (Mangled.t * Sil.typ * bool) list -> bool -> unit Clang_ast_t.stmt list -> (Mangled.t * Sil.typ * bool) list -> bool -> bool
val create_external_procdesc : Cfg.cfg -> Procname.t -> bool -> (Sil.typ * Sil.typ list) option -> unit val create_external_procdesc : Cfg.cfg -> Procname.t -> bool -> (Sil.typ * Sil.typ list) option -> unit
@ -36,3 +33,7 @@ val mk_procname_from_function : string -> string -> Procname.t
val get_class_selector_instance : CContext.t -> Clang_ast_t.obj_c_message_expr_info -> (Sil.exp * Sil.typ) list val get_class_selector_instance : CContext.t -> Clang_ast_t.obj_c_message_expr_info -> (Sil.exp * Sil.typ) list
-> (string * string * method_call_type) -> (string * string * method_call_type)
val resolve_method : Sil.tenv -> string -> string -> CMethod_signature.method_signature option
val should_create_procdesc : Cfg.cfg -> Procname.t -> bool -> bool -> bool

2
infer/src/clang/cModule_type.ml
Unescape View File

@ -16,4 +16,6 @@ module type CMethod_declaration =
sig sig
val function_decl : Sil.tenv -> Cfg.cfg -> Cg.t -> string option -> bool -> Clang_ast_t.decl_info -> val function_decl : Sil.tenv -> Cfg.cfg -> Cg.t -> string option -> bool -> Clang_ast_t.decl_info ->
string -> Clang_ast_t.qual_type -> Clang_ast_t.function_decl_info -> (Mangled.t * Sil.typ * bool) list -> Procname.t option -> CContext.curr_class -> unit string -> Clang_ast_t.qual_type -> Clang_ast_t.function_decl_info -> (Mangled.t * Sil.typ * bool) list -> Procname.t option -> CContext.curr_class -> unit
val process_getter_setter : CContext.t -> Procname.t -> bool
end end

29
infer/src/clang/cTrans.ml
Unescape View File

@ -37,6 +37,30 @@ end
module CTrans_funct(M: CModule_type.CMethod_declaration) : CTrans = module CTrans_funct(M: CModule_type.CMethod_declaration) : CTrans =
struct struct
(*Returns the procname and whether is instance, according to the selector *)
(* information and according to the method signature *)
let get_callee_objc_method context obj_c_message_expr_info act_params =
let (class_name, method_name, mc_type) =
CMethod_trans.get_class_selector_instance context obj_c_message_expr_info act_params in
let is_instance = mc_type != CMethod_trans.MCStatic in
match CTrans_models.get_predefined_model_method_signature class_name method_name
CMethod_trans.mk_procname_from_method with
| Some ms ->
ignore (CMethod_trans.create_local_procdesc context.cfg context.tenv ms [] [] is_instance);
CMethod_signature.ms_get_name ms, CMethod_trans.MCNoVirtual
| None ->
match CMethod_trans.resolve_method context.tenv class_name method_name with
| Some callee_ms ->
(let procname = CMethod_signature.ms_get_name callee_ms in
if not (M.process_getter_setter context procname) then
(let is_instance = is_instance || (CMethod_signature.ms_is_instance callee_ms) in
ignore (CMethod_trans.create_local_procdesc context.cfg context.tenv callee_ms [] [] is_instance));
procname, mc_type)
| None ->
let callee_pn = CMethod_trans.mk_procname_from_method class_name method_name in
CMethod_trans.create_external_procdesc context.cfg callee_pn is_instance None;
callee_pn, mc_type
let add_autorelease_call context exp typ sil_loc = let add_autorelease_call context exp typ sil_loc =
let method_name = Procname.c_get_method (Cfg.Procdesc.get_proc_name context.procdesc) in let method_name = Procname.c_get_method (Cfg.Procdesc.get_proc_name context.procdesc) in
if !Config.arc_mode && if !Config.arc_mode &&
@ -590,7 +614,7 @@ struct
Cg.add_edge context.cg procname callee_pname; Cg.add_edge context.cg procname callee_pname;
try try
let callee_ms = CMethod_signature.find callee_pname in let callee_ms = CMethod_signature.find callee_pname in
CMethod_trans.create_local_procdesc context.cfg context.tenv callee_ms [] [] false ignore (CMethod_trans.create_local_procdesc context.cfg context.tenv callee_ms [] [] false)
with Not_found -> with Not_found ->
CMethod_trans.create_external_procdesc context.cfg callee_pname false None CMethod_trans.create_external_procdesc context.cfg callee_pname false None
end end
@ -642,8 +666,7 @@ struct
CTrans_utils.trans_assume_false sil_loc context trans_state.succ_nodes CTrans_utils.trans_assume_false sil_loc context trans_state.succ_nodes
else else
let procname = Cfg.Procdesc.get_proc_name context.procdesc in let procname = Cfg.Procdesc.get_proc_name context.procdesc in
let callee_name, method_call_type = let callee_name, method_call_type = get_callee_objc_method context obj_c_message_expr_info res_trans_par.exps in
CMethod_trans.get_callee_objc_method context obj_c_message_expr_info res_trans_par.exps in
let res_trans_par = Self.add_self_parameter_for_super_instance context procname sil_loc let res_trans_par = Self.add_self_parameter_for_super_instance context procname sil_loc
obj_c_message_expr_info res_trans_par in obj_c_message_expr_info res_trans_par in
let is_virtual = method_call_type = CMethod_trans.MCVirtual in let is_virtual = method_call_type = CMethod_trans.MCVirtual in

2
infer/src/clang/cTrans_models.ml
Unescape View File

@ -129,7 +129,7 @@ let get_predefined_ms_method condition class_name method_name mk_procname
| Some procname -> procname | Some procname -> procname
| None -> mk_procname class_name method_name in | None -> mk_procname class_name method_name in
let ms = CMethod_signature.make_ms procname arguments return_type attributes let ms = CMethod_signature.make_ms procname arguments return_type attributes
(Ast_expressions.dummy_source_range ()) false in (Ast_expressions.dummy_source_range ()) false false in
Some ms Some ms
else None else None

58
infer/src/clang/objcInterface_decl.ml
Unescape View File

@ -130,44 +130,6 @@ let add_class_to_tenv tenv class_name decl_list obj_c_interface_decl_info =
| None -> Printing.log_out " >>>NOT Found!!\n"); | None -> Printing.log_out " >>>NOT Found!!\n");
curr_class curr_class
(* Add potential extra fields defined only in the implementation of the class *)
(* to the info given in the interface. Update the tenv accordingly.*)
let add_missing_fields tenv class_name decl_list idi =
let curr_class, superclasses, fields =
create_curr_class_and_superclasses_fields tenv decl_list class_name
idi.Clang_ast_t.oidi_super [] in
let mang_name = Mangled.from_string class_name in
let class_tn_name = Sil.TN_csu (Sil.Class, mang_name) in
Printing.log_out
" >>>Verifying that Typename TN_csu('%s') is in tenv\n"
(Sil.typename_to_string class_tn_name);
let curr_class =
(match Sil.tenv_lookup tenv class_tn_name with
| Some Sil.Tstruct(intf_fields, _, _, _, superclass, methods, annotation) ->
(let compute_extra_fields fields intf_fields =
let equal_fields (fn1, _, _) (fn2, _, _) = Ident.fieldname_equal fn1 fn2 in
let missing_field f = not (list_mem equal_fields f intf_fields) in
list_filter missing_field fields in
Printing.log_out
" Looking for extra fields defined only in the implementation of '%s'\n"
class_name;
let extra_fields = compute_extra_fields fields intf_fields in
list_iter (fun (fn, _, _) ->
Printing.log_out
" ---> Extra non-static field: '%s'\n" (Ident.fieldname_to_string fn))
extra_fields;
let new_fields = append_no_duplicates_fields extra_fields intf_fields in
let new_fields = CFrontend_utils.General_utils.sort_fields new_fields in
let class_type_info =
Sil.Tstruct (
new_fields, [], Sil.Class, Some mang_name, superclass, methods, annotation
) in
Printing.log_out " Updating info for class '%s' in tenv\n" class_name;
Sil.tenv_add tenv class_tn_name class_type_info;
update_curr_class curr_class superclass )
| _ -> assert false) in
curr_class
let add_missing_methods tenv class_name decl_list curr_class = let add_missing_methods tenv class_name decl_list curr_class =
let methods = ObjcProperty_decl.get_methods curr_class decl_list in let methods = ObjcProperty_decl.get_methods curr_class decl_list in
let class_tn_name = Sil.TN_csu (Sil.Class, (Mangled.from_string class_name)) in let class_tn_name = Sil.TN_csu (Sil.Class, (Mangled.from_string class_name)) in
@ -180,15 +142,15 @@ let add_missing_methods tenv class_name decl_list curr_class =
(* Interface_type_info has the name of instance variables and the name of methods. *) (* Interface_type_info has the name of instance variables and the name of methods. *)
let interface_declaration tenv class_name decl_list obj_c_interface_decl_info = let interface_declaration tenv class_name decl_list obj_c_interface_decl_info =
let curr_class = add_class_to_tenv tenv class_name decl_list obj_c_interface_decl_info in add_class_to_tenv tenv class_name decl_list obj_c_interface_decl_info
curr_class
(* Translate the methods defined in the implementation.*) (* Translate the methods defined in the implementation.*)
let interface_impl_declaration tenv class_name decl_list implementation_decl_info = let interface_impl_declaration tenv class_name decl_list idi =
let curr_class = add_missing_fields tenv class_name decl_list implementation_decl_info in
add_missing_methods tenv class_name decl_list curr_class;
Printing.log_out "ADDING: ObjCImplementationDecl for class '%s'\n" class_name; Printing.log_out "ADDING: ObjCImplementationDecl for class '%s'\n" class_name;
Printing.log_out " Processing method declarations...\n"; let curr_class = CContext.create_curr_class tenv class_name in
let fields = CField_decl.get_fields tenv curr_class decl_list in
CField_decl.add_missing_fields tenv class_name fields;
add_missing_methods tenv class_name decl_list curr_class;
curr_class curr_class
(* search for definition of interface with non empty set of fields that may come after their use.*) (* search for definition of interface with non empty set of fields that may come after their use.*)
@ -231,19 +193,19 @@ let rec find_field tenv nfield str searched_late_defined =
match s with match s with
| [] -> None | [] -> None
| (Sil.Class, sname):: s' -> | (Sil.Class, sname):: s' ->
L.err "@. ....Searching field in superclass (Class, '%s')@." (Mangled.to_string sname); Printing.log_err "@. ....Searching field in superclass (Class, '%s')@." (Mangled.to_string sname);
let str' = Sil.tenv_lookup tenv (Sil.TN_csu(Sil.Class, sname)) in let str' = Sil.tenv_lookup tenv (Sil.TN_csu(Sil.Class, sname)) in
(match find_field tenv nfield str' searched_late_defined with (match find_field tenv nfield str' searched_late_defined with
| Some field -> Some field | Some field -> Some field
| None -> search_super s') | None -> search_super s')
| (Sil.Protocol, sname):: s' -> | (Sil.Protocol, sname):: s' ->
L.err "@. ... Searching field in protocol (Protocol, '%s')@." (Mangled.to_string sname); Printing.log_err "@. ... Searching field in protocol (Protocol, '%s')@." (Mangled.to_string sname);
search_super s' search_super s'
| (Sil.Struct, sname):: s' -> | (Sil.Struct, sname):: s' ->
L.err "@. ... Searching field in struct (Struct, '%s')@." (Mangled.to_string sname); Printing.log_err "@. ... Searching field in struct (Struct, '%s')@." (Mangled.to_string sname);
None None
| (Sil.Union, sname):: s' -> | (Sil.Union, sname):: s' ->
L.err "@. ... Searching field in (Union, '%s')@." (Mangled.to_string sname); Printing.log_err "@. ... Searching field in (Union, '%s')@." (Mangled.to_string sname);
None in None in
match str with match str with
| Some Sil.Tstruct (sf, nsf, Sil.Struct, Some cname, _, _, _) | Some Sil.Tstruct (sf, nsf, Sil.Struct, Some cname, _, _, _)

224
infer/src/clang/objcProperty_decl.ml
Unescape View File

@ -108,7 +108,7 @@ struct
let res = ref None in let res = ref None in
PropertyTableHash.iter (fun (cl, pname) (_, _, _, _, _, ivar') -> PropertyTableHash.iter (fun (cl, pname) (_, _, _, _, _, ivar') ->
match ivar' with match ivar' with
| Some s when (CContext.curr_class_equal curr_class cl) && s = ivar -> res:= Some pname | Some s when (CContext.curr_class_equal curr_class cl) && s = ivar -> res:= Some pname
| _ -> ()) property_table; | _ -> ()) property_table;
!res !res
@ -206,26 +206,40 @@ let check_for_property curr_class method_name meth_decl body =
check_property_accessor curr_class method_name true; check_property_accessor curr_class method_name true;
check_property_accessor curr_class method_name false check_property_accessor curr_class method_name false
let method_is_property_accesor cls method_name =
let properties_class = find_properties_class cls in
let method_is_getter (property_name, property_type) res_opt =
match res_opt with
| Some res -> res_opt
| None ->
match property_type with (_, _, _, (getter_name, _), (setter_name, _), _) ->
if method_name = getter_name then Some (property_name, property_type, true)
else if method_name = setter_name then Some (property_name, property_type, false)
else None in
list_fold_right method_is_getter properties_class None
let prepare_dynamic_property curr_class decl_info property_impl_decl_info = let prepare_dynamic_property curr_class decl_info property_impl_decl_info =
let pname = Ast_utils.property_name property_impl_decl_info in let pname = Ast_utils.property_name property_impl_decl_info in
let qt = (try let res = (try
let qt', atts, di, getter, setter, _ = Property.find_property curr_class pname in let qt', atts, di, getter, setter, _ = Property.find_property curr_class pname in
let ivar = (match property_impl_decl_info.Clang_ast_t.opidi_ivar_decl with let ivar = (match property_impl_decl_info.Clang_ast_t.opidi_ivar_decl with
| Some dr -> Ast_utils.name_opt_of_name_info_opt dr.Clang_ast_t.dr_name | Some dr -> (match dr.Clang_ast_t.dr_name with
| None -> None) in | Some name_info -> name_info.Clang_ast_t.ni_name
| None -> assert false)
| None -> Ast_utils.generated_ivar_name pname) in
(* update property info with proper ivar name *) (* update property info with proper ivar name *)
Property.replace_property (curr_class, pname) (qt', atts, di, getter, setter, ivar); Property.replace_property (curr_class, pname) (qt', atts, di, getter, setter, Some ivar);
Printing.log_out "Updated property table by adding ivar name for property pname '%s'\n" pname; Printing.log_out "Updated property table by adding ivar name for property pname '%s'\n" pname;
Some qt' Some (qt', ivar)
with Not_found -> L.err "Property '%s' not found in the table. Ivar not updated and qual_type not found.@." pname; with Not_found -> L.err "Property '%s' not found in the table. Ivar not updated and qual_type not found.@." pname;
None) in None) in
match property_impl_decl_info.Clang_ast_t.opidi_implementation with match property_impl_decl_info.Clang_ast_t.opidi_implementation, res with
| `Dynamic -> | `Dynamic, Some (qt, ivar) ->
(* For Dynamic property we need to create the ObjCIvarDecl which specifies*) (* For Dynamic property we need to create the ObjCIvarDecl which specifies*)
(* the field of the property. In case of Dynamic this is not in the AST.*) (* the field of the property. In case of Dynamic this is not in the AST.*)
(* Once created the ObjCIvarDecl then we treat the property as synthesized *) (* Once created the ObjCIvarDecl then we treat the property as synthesized *)
[Ast_expressions.make_objc_ivar_decl decl_info qt property_impl_decl_info] [Ast_expressions.make_objc_ivar_decl decl_info qt property_impl_decl_info ivar]
| `Synthesize -> | _ ->
(* No names of fields/method to collect from ObjCPropertyImplDecl when Synthesized *) (* No names of fields/method to collect from ObjCPropertyImplDecl when Synthesized *)
[] []
@ -241,14 +255,6 @@ let method_exists cfg class_name name attributes =
let is_property_read_only attributes = let is_property_read_only attributes =
list_mem (Ast_utils.property_attribute_eq) `Readonly attributes list_mem (Ast_utils.property_attribute_eq) `Readonly attributes
let should_generate_getter cfg class_name name attributes =
not (method_exists cfg class_name name attributes)
let should_generate_setter cfg class_name name attributes =
let setter_exists = not (method_exists cfg class_name name attributes) in
let is_read_only = is_property_read_only attributes in
setter_exists && not is_read_only
let get_memory_management_attribute attributes = let get_memory_management_attribute attributes =
let memory_management_attributes = Ast_utils.get_memory_management_attributes () in let memory_management_attributes = Ast_utils.get_memory_management_attributes () in
try Some (list_find ( try Some (list_find (
@ -256,54 +262,46 @@ let get_memory_management_attribute attributes =
att memory_management_attributes) attributes) att memory_management_attributes) attributes)
with Not_found -> None with Not_found -> None
(*Makes the getters and setters according to the attributes: *) let create_generated_method_name name_info =
(* - If readonly is available, only write getter *) { ni_name = name_info.Clang_ast_t.ni_name;
(* - If strong or retain are available then write the following code in the setter: *) ni_qual_name = CFrontend_config.generated_suffix:: name_info.Clang_ast_t.ni_qual_name;
(* [param retain] *) }
(* [self->_field release] *)
(* [self->_field = param] *) let get_ivar_name prop_name ivar_opt =
(* - If copy is available then write the following code: *) match ivar_opt with
(* [self->_field = [param copy] *) | Some ivar_name -> ivar_name
let make_getter_setter cfg curr_class decl_info property_impl_decl_info = | None -> Ast_utils.generated_ivar_name prop_name
let class_name = CContext.get_curr_class_name curr_class in
let prop_name = Ast_utils.property_name property_impl_decl_info in let make_getter curr_class prop_name prop_type =
Printing.log_out "ADDING: ObjCPropertyImplDecl for property '%s' " prop_name; match prop_type with
Printing.log_out "pointer = '%s'\n" decl_info.Clang_ast_t.di_pointer; | qt, attributes, decl_info, (getter_name, getter), (setter_name, setter), ivar_opt ->
let qt, attributes, decl_info, (getter_name, getter), (setter_name, setter), _ = (try let ivar_name = get_ivar_name prop_name ivar_opt in
Property.find_property curr_class prop_name
with _ ->
Printing.log_out "Property %s not found@." prop_name;
assert false) in
let ivar_name = get_ivarname_property property_impl_decl_info in
let make_getter () =
(
match getter with match getter with
| Some (ObjCMethodDecl(di, name_info, mdi), _) -> | Some (ObjCMethodDecl(di, name_info, mdi), _) ->
let dummy_info = Ast_expressions.dummy_decl_info di in let dummy_info = Ast_expressions.dummy_decl_info_in_curr_file di in
if should_generate_getter cfg class_name name_info.Clang_ast_t.ni_name attributes then let deref_self_field = Ast_expressions.make_deref_self_field
let deref_self_field = Ast_expressions.make_deref_self_field (CContext.get_qt_curr_class curr_class) dummy_info mdi.Clang_ast_t.omdi_result_type ivar_name in
(CContext.get_qt_curr_class curr_class) dummy_info mdi.Clang_ast_t.omdi_result_type ivar_name in let body = ReturnStmt(Ast_expressions.make_stmt_info dummy_info, [deref_self_field]) in
let body = ReturnStmt(Ast_expressions.make_stmt_info dummy_info, [deref_self_field]) in let mdi'= Ast_expressions.make_method_decl_info mdi body in
let mdi'= Ast_expressions.make_method_decl_info mdi body in let generated_name_info = create_generated_method_name name_info in
let method_decl = ObjCMethodDecl(di, name_info, mdi) in Property.replace_property
Property.replace_property (curr_class, prop_name)
(curr_class, prop_name) (qt, attributes, decl_info,
(qt, attributes, decl_info, (getter_name, Some (ObjCMethodDecl(di, name_info, mdi), true)), (setter_name, setter), Some ivar_name);
(getter_name, Some (method_decl, true)), (setter_name, setter), Some ivar_name); [ObjCMethodDecl(dummy_info, generated_name_info, mdi')]
[ObjCMethodDecl(dummy_info, name_info, mdi')] | _ -> []
else []
| _ -> []) in let make_setter curr_class prop_name prop_type =
let make_setter () = match prop_type with
match setter with | qt, attributes, decl_info, (getter_name, getter), (setter_name, setter), ivar_opt ->
| Some (ObjCMethodDecl(di, name_info, mdi), _) -> let ivar_name = get_ivar_name prop_name ivar_opt in
if should_generate_setter cfg class_name name_info.Clang_ast_t.ni_name attributes then match setter with
let dummy_info = Ast_expressions.dummy_decl_info di in | Some (ObjCMethodDecl(di, name, mdi), _) when not (is_property_read_only attributes) ->
let dummy_info = Ast_expressions.dummy_decl_info_in_curr_file di in
let param_name, qt_param = (match mdi.Clang_ast_t.omdi_parameters with let param_name, qt_param = (match mdi.Clang_ast_t.omdi_parameters with
| [ParmVarDecl(_, name_info, qt_param, _)] -> name_info.Clang_ast_t.ni_name, qt_param | [ParmVarDecl(_, name_info, qt_param, _)] -> name_info.Clang_ast_t.ni_name, qt_param
| _ -> assert false) in | _ -> assert false) in
let is_hidden = (match property_impl_decl_info.Clang_ast_t.opidi_ivar_decl with let is_hidden = false in
| Some dr -> dr.Clang_ast_t.dr_is_hidden
| _ -> false) in
let decl_ptr = Ast_utils.get_invalid_pointer () in let decl_ptr = Ast_utils.get_invalid_pointer () in
let drti_decl_ref' = let drti_decl_ref' =
Ast_expressions.make_decl_ref_qt (`ParmVar) decl_ptr param_name is_hidden qt_param in Ast_expressions.make_decl_ref_qt (`ParmVar) decl_ptr param_name is_hidden qt_param in
@ -318,62 +316,68 @@ let make_getter_setter cfg curr_class decl_info property_impl_decl_info =
let memory_management_attribute = (get_memory_management_attribute attributes) in let memory_management_attribute = (get_memory_management_attribute attributes) in
let code = let code =
if Ast_utils.is_retain memory_management_attribute then if Ast_utils.is_retain memory_management_attribute then
let param_decl = let param_decl = Ast_expressions.make_decl_ref_exp_var (param_name, qt_param, decl_ptr) `ParmVar stmt_info in
Ast_expressions.make_decl_ref_exp_var (param_name, qt_param, decl_ptr) `ParmVar stmt_info in let retain_call = Ast_expressions.make_message_expr qt_param retain param_decl stmt_info true in
let retain_call = let release_call = Ast_expressions.make_message_expr qt_param release lhs_exp stmt_info true in
Ast_expressions.make_message_expr qt_param retain param_decl stmt_info true in
let release_call =
Ast_expressions.make_message_expr qt_param release lhs_exp stmt_info true in
[retain_call; release_call; setter] [retain_call; release_call; setter]
else if Ast_utils.is_copy memory_management_attribute then else if Ast_utils.is_copy memory_management_attribute then
let param_decl = let param_decl = Ast_expressions.make_decl_ref_exp_var (param_name, qt_param, decl_ptr) `ParmVar stmt_info in
Ast_expressions.make_decl_ref_exp_var (param_name, qt_param, decl_ptr) `ParmVar stmt_info in let copy_call = Ast_expressions.make_message_expr qt_param copy param_decl stmt_info true in
let copy_call = let setter = Ast_expressions.make_binary_stmt lhs_exp copy_call stmt_info expr_info boi in
Ast_expressions.make_message_expr qt_param copy param_decl stmt_info true in
let setter =
Ast_expressions.make_binary_stmt lhs_exp copy_call stmt_info expr_info boi in
[setter] [setter]
else [setter] in else [setter] in
let body = Ast_expressions.make_compound_stmt code stmt_info in let body = Ast_expressions.make_compound_stmt code stmt_info in
let mdi'= Ast_expressions.make_method_decl_info mdi body in let mdi'= Ast_expressions.make_method_decl_info mdi body in
let name_generated = create_generated_method_name name in
Property.replace_property Property.replace_property
(curr_class, prop_name) (curr_class, prop_name)
(qt, attributes, decl_info, (qt, attributes, decl_info,
(getter_name, getter), (getter_name, getter),
(setter_name, Some (ObjCMethodDecl(di, name_info, mdi), true)), Some ivar_name); (setter_name, Some (ObjCMethodDecl(di, name, mdi), true)), Some ivar_name);
[ObjCMethodDecl(dummy_info, name_info, mdi')] [ObjCMethodDecl(dummy_info, name_generated, mdi')]
else [] | _ -> []
| _ -> [] in
match property_impl_decl_info.Clang_ast_t.opidi_implementation with (*Makes the getters and setters according to the attributes: *)
| `Dynamic (* - If readonly is available, only write getter *)
(* For the moment we treat Dynamic properties as Synthesize. This imply that setter/getter very simply, getting and setting *) (* - If strong or retain are available then write the following code in the setter: *)
(* the value. Therefore we are assuming that the dynamic setter/getter won't have any other side effect.*) (* [param retain] *)
| `Synthesize -> (* [self->_field release] *)
(make_getter ()) @ (make_setter ()) (* [self->_field = param] *)
(* - If copy is available then write the following code: *)
(* Given a list of declarations in an interface returns a triple *) (* [self->_field = [param copy] *)
(* (list of non static fields, list of static fields, list of methods)*) let make_getter_setter curr_class decl_info prop_name =
(* TODO: this part is a bit redundant: we could add the methods to the tenv *) Printing.log_out "pointer = '%s'\n" decl_info.Clang_ast_t.di_pointer;
(* at the same time that we add them to the cfg *) let prop_type =
let rec get_methods curr_class decl_list = try
Property.find_property curr_class prop_name
with _ ->
Printing.log_out "Property %s not found@." prop_name;
assert false in
(make_getter curr_class prop_name prop_type)@ (make_setter curr_class prop_name prop_type)
let add_properties_to_table curr_class decl_list =
let add_property_to_table dec =
match dec with
| ObjCPropertyDecl(decl_info, name_info, pdi) ->
(* Property declaration register the property on the property table to be *)
let pname = name_info.Clang_ast_t.ni_name in
Printing.log_out "ADDING: ObjCPropertyDecl for property '%s' " pname;
Printing.log_out " pointer= '%s' \n" decl_info.Clang_ast_t.di_pointer;
Property.add_property (curr_class, pname) pdi.opdi_qual_type pdi.opdi_property_attributes decl_info;
| _ -> () in
list_iter add_property_to_table decl_list
(* Given a list of declarations in an interface returns list of methods)*)
let get_methods curr_class decl_list =
let class_name = CContext.get_curr_class_name curr_class in let class_name = CContext.get_curr_class_name curr_class in
match decl_list with add_properties_to_table curr_class decl_list;
| [] -> [] let get_method decl list_methods =
| (ObjCMethodDecl(decl_info, name_info, method_decl_info) as d):: decl_list' -> match decl with
let method_name = name_info.Clang_ast_t.ni_name in ObjCMethodDecl(decl_info, name_info, method_decl_info) as d ->
Printing.log_out " ...Adding Method '%s' \n" (class_name^"_"^method_name); let method_name = name_info.Clang_ast_t.ni_name in
let methods = get_methods curr_class decl_list' in Printing.log_out " ...Adding Method '%s' \n" (class_name^"_"^method_name);
let _ = check_for_property curr_class method_name d method_decl_info.Clang_ast_t.omdi_body in let _ = check_for_property curr_class method_name d method_decl_info.Clang_ast_t.omdi_body in
let meth_name = CMethod_trans.mk_procname_from_method class_name method_name in let meth_name = CMethod_trans.mk_procname_from_method class_name method_name in
meth_name:: methods meth_name:: list_methods
| _ -> list_methods in
| ObjCPropertyDecl(decl_info, name_info, pdi):: decl_list' -> list_fold_right get_method decl_list []
(* Property declaration register the property on the property table to be *)
(* used later on in case getter and setters need to be synthesized by ObjCPropertyImplDecl *)
let pname = name_info.Clang_ast_t.ni_name in
Printing.log_out " ...Adding Property Declaration '%s' " pname;
Printing.log_out " pointer= '%s' \n" decl_info.Clang_ast_t.di_pointer;
Property.add_property (curr_class, pname) pdi.opdi_qual_type pdi.opdi_property_attributes decl_info;
get_methods curr_class decl_list' (* TODO maybe add prop_name here *)
| (d : Clang_ast_t.decl):: decl_list' -> get_methods curr_class decl_list'

47
infer/src/clang/objcProperty_decl.mli
Unescape View File

@ -7,9 +7,6 @@
* of patent rights can be found in the PATENTS file in the same directory. * of patent rights can be found in the PATENTS file in the same directory.
*) *)
(** Process properties by creating their getters and setters in the case that they need to be syntethized *)
(** or in the case of dynamic. *)
type prop_getter_setter = string * (Clang_ast_t.decl * bool) option type prop_getter_setter = string * (Clang_ast_t.decl * bool) option
(** For each property, we save the getter and the setter method declarations (no implementation). *) (** For each property, we save the getter and the setter method declarations (no implementation). *)
@ -18,23 +15,6 @@ type prop_getter_setter = string * (Clang_ast_t.decl * bool) option
type property_type = Clang_ast_t.qual_type * Clang_ast_t.property_attribute list * type property_type = Clang_ast_t.qual_type * Clang_ast_t.property_attribute list *
Clang_ast_t.decl_info * prop_getter_setter * prop_getter_setter * string option Clang_ast_t.decl_info * prop_getter_setter * prop_getter_setter * string option
val prepare_dynamic_property : CContext.curr_class -> Clang_ast_t.decl_info ->
Clang_ast_t.obj_c_property_impl_decl_info -> Clang_ast_t.decl list
val get_methods : CContext.curr_class -> Clang_ast_t.decl list -> Procname.t list
val make_getter_setter : Cfg.cfg -> CContext.curr_class -> Clang_ast_t.decl_info -> Clang_ast_t.obj_c_property_impl_decl_info ->
Clang_ast_t.decl list
val reset_property_table : unit -> unit
val print_property_table : unit -> unit
val is_property_read_only : Clang_ast_t.property_attribute list -> bool
val find_properties_class : CContext.curr_class -> (string * property_type) list
module type PropertySig = module type PropertySig =
sig sig
@ -60,6 +40,33 @@ sig
val print_property_table : unit -> unit val print_property_table : unit -> unit
val find_property_name_from_ivar : CContext.curr_class -> string -> string option val find_property_name_from_ivar : CContext.curr_class -> string -> string option
end end
module Property: PropertySig module Property: PropertySig
(** Process properties by creating their getters and setters in the case that they need to be syntethized *)
(** or in the case of dynamic. *)
val prepare_dynamic_property : CContext.curr_class -> Clang_ast_t.decl_info ->
Clang_ast_t.obj_c_property_impl_decl_info -> Clang_ast_t.decl list
val get_methods : CContext.curr_class -> Clang_ast_t.decl list -> Procname.t list
val reset_property_table : unit -> unit
val print_property_table : unit -> unit
val is_property_read_only : Clang_ast_t.property_attribute list -> bool
val find_properties_class : CContext.curr_class -> (string * property_type) list
val make_getter : CContext.curr_class -> string -> property_type -> Clang_ast_t.decl list
val make_setter : CContext.curr_class -> string -> property_type -> Clang_ast_t.decl list
val make_getter_setter : CContext.curr_class -> Clang_ast_t.decl_info -> string -> Clang_ast_t.decl list
val method_is_property_accesor : CContext.curr_class -> string -> (string * property_type * bool) option
val get_ivar_name : string -> string option -> string

2
infer/src/harness/inhabit.ml
Unescape View File

@ -292,6 +292,7 @@ let add_harness_to_cg harness_name harness_cfg harness_node loc cg tenv =
Sil.language = Sil.Java; Sil.language = Sil.Java;
Sil.func_attributes = []; Sil.func_attributes = [];
Sil.method_annotation = Sil.method_annotation_empty; Sil.method_annotation = Sil.method_annotation_empty;
Sil.is_generated = false;
} in } in
create { create {
cfg = harness_cfg; cfg = harness_cfg;
@ -343,6 +344,7 @@ let setup_harness_cfg harness_name harness_cfg env proc_file_map tenv =
Sil.language = Sil.Java; Sil.language = Sil.Java;
Sil.func_attributes = []; Sil.func_attributes = [];
Sil.method_annotation = Sil.method_annotation_empty; Sil.method_annotation = Sil.method_annotation_empty;
Sil.is_generated = false;
} in } in
create { create {
cfg = harness_cfg; cfg = harness_cfg;

4
infer/src/java/jTrans.ml
Unescape View File

@ -295,6 +295,7 @@ let create_local_procdesc program linereader cfg tenv node m =
Sil.language = Sil.Java; Sil.language = Sil.Java;
Sil.func_attributes = []; Sil.func_attributes = [];
Sil.method_annotation = method_annotation; Sil.method_annotation = method_annotation;
Sil.is_generated = false;
} in } in
create { create {
cfg = cfg; cfg = cfg;
@ -330,6 +331,7 @@ let create_local_procdesc program linereader cfg tenv node m =
Sil.language = Sil.Java; Sil.language = Sil.Java;
Sil.func_attributes = []; Sil.func_attributes = [];
Sil.method_annotation = method_annotation; Sil.method_annotation = method_annotation;
Sil.is_generated = false;
} in } in
create { create {
cfg = cfg; cfg = cfg;
@ -366,6 +368,7 @@ let create_local_procdesc program linereader cfg tenv node m =
Sil.language = Sil.Java; Sil.language = Sil.Java;
Sil.func_attributes = []; Sil.func_attributes = [];
Sil.method_annotation = method_annotation; Sil.method_annotation = method_annotation;
Sil.is_generated = false;
} in } in
create { create {
cfg = cfg; cfg = cfg;
@ -421,6 +424,7 @@ let create_external_procdesc program cfg tenv cn ms method_annotation kind =
Sil.language = Sil.Java; Sil.language = Sil.Java;
Sil.func_attributes = []; Sil.func_attributes = [];
Sil.method_annotation = method_annotation; Sil.method_annotation = method_annotation;
Sil.is_generated = false;
} in } in
create { create {
cfg = cfg; cfg = cfg;

11
infer/src/llvm/lTrans.ml
Unescape View File

@ -1,6 +1,10 @@
(* (*
* Copyright (c) 2015 - Facebook. * Copyright (c) 2015 - present Facebook, Inc.
* All rights reserved. * All rights reserved.
*
* This source code is licensed under the BSD style license found in the
* LICENSE file in the root directory of this source tree. An additional grant
* of patent rights can be found in the PATENTS file in the same directory.
*) *)
open LAst open LAst
@ -47,11 +51,12 @@ let gen_func_def (old_cfg : Cfg.cfg) : func_def -> unit = function
is_synthetic_method = false; is_synthetic_method = false;
language = Sil.C_CPP; language = Sil.C_CPP;
func_attributes = []; func_attributes = [];
method_annotation = Sil.method_annotation_empty method_annotation = Sil.method_annotation_empty;
is_generated = false
} in } in
let (pdesc_builder : Cfg.Procdesc.proc_desc_builder) = let (pdesc_builder : Cfg.Procdesc.proc_desc_builder) =
{ cfg = old_cfg; { cfg = old_cfg;
name = Procname.from_string (string_of_variable func_name); name = Procname.from_string_c_fun (string_of_variable func_name);
is_defined = true; (** is defined and not just declared *) is_defined = true; (** is defined and not just declared *)
proc_attributes = proc_attrs; proc_attributes = proc_attrs;
ret_type = (match ret_tp_opt with ret_type = (match ret_tp_opt with

8
infer/tests/codetoanalyze/objc/errors/memory_leaks_benchmark/ArcExample.dot
Unescape View File

@ -1,23 +1,23 @@
digraph iCFG { digraph iCFG {
14 [label="14: BinaryOperatorStmt: Assign \n n$10=*&self:class A * [line 16]\n n$11=*&son:class A * [line 16]\n _fun___objc_retain(n$11:class A *) [line -1]\n n$12=*n$10._son:class A * [line -1]\n *n$10._son:class A *=n$11 [line -1]\n _fun___objc_release(n$12:class A *) [line -1]\n REMOVE_TEMPS(n$10,n$11,n$12); [line -1]\n NULLIFY(&self,false); [line -1]\n NULLIFY(&son,false); [line -1]\n APPLY_ABSTRACTION; [line -1]\n " shape="box"] 14 [label="14: BinaryOperatorStmt: Assign \n n$10=*&self:class A * [line 16]\n n$11=*&son:class A * [line 16]\n _fun___objc_retain(n$11:class A *) [line 16]\n n$12=*n$10._son:class A * [line 16]\n *n$10._son:class A *=n$11 [line 16]\n _fun___objc_release(n$12:class A *) [line 16]\n REMOVE_TEMPS(n$10,n$11,n$12); [line 16]\n NULLIFY(&self,false); [line 16]\n NULLIFY(&son,false); [line 16]\n APPLY_ABSTRACTION; [line 16]\n " shape="box"]
14 -> 13 ; 14 -> 13 ;
13 [label="13: Exit A_setSon: \n " color=yellow style=filled] 13 [label="13: Exit A_setSon: \n " color=yellow style=filled]
12 [label="12: Start A_setSon:\nFormals: self:class A * son:class A *\nLocals: \n DECLARE_LOCALS(&return); [line -1]\n " color=yellow style=filled] 12 [label="12: Start A_setSon: (generated)\nFormals: self:class A * son:class A *\nLocals: \n DECLARE_LOCALS(&return); [line 16]\n " color=yellow style=filled]
12 -> 14 ; 12 -> 14 ;
11 [label="11: Return Stmt \n n$7=*&self:class A * [line -1]\n n$8=*n$7._son:class A * [line -1]\n *&return:class A *=n$8 [line -1]\n n$9=_fun___set_autorelease_attribute(n$8:class A *) [line -1]\n REMOVE_TEMPS(n$7,n$8,n$9); [line -1]\n NULLIFY(&self,false); [line -1]\n APPLY_ABSTRACTION; [line -1]\n " shape="box"] 11 [label="11: Return Stmt \n n$7=*&self:class A * [line 16]\n n$8=*n$7._son:class A * [line 16]\n *&return:class A *=n$8 [line 16]\n n$9=_fun___set_autorelease_attribute(n$8:class A *) [line 16]\n REMOVE_TEMPS(n$7,n$8,n$9); [line 16]\n NULLIFY(&self,false); [line 16]\n APPLY_ABSTRACTION; [line 16]\n " shape="box"]
11 -> 10 ; 11 -> 10 ;
10 [label="10: Exit A_son \n " color=yellow style=filled] 10 [label="10: Exit A_son \n " color=yellow style=filled]
9 [label="9: Start A_son\nFormals: self:class A *\nLocals: \n DECLARE_LOCALS(&return); [line -1]\n " color=yellow style=filled] 9 [label="9: Start A_son (generated)\nFormals: self:class A *\nLocals: \n DECLARE_LOCALS(&return); [line 16]\n " color=yellow style=filled]
9 -> 11 ; 9 -> 11 ;

8
infer/tests/codetoanalyze/objc/errors/memory_leaks_benchmark/AutoreleaseExample.dot
Unescape View File

@ -119,25 +119,25 @@ digraph iCFG {
11 -> 14 ; 11 -> 14 ;
10 [label="10: BinaryOperatorStmt: Assign \n n$6=*&self:class A * [line 17]\n n$7=*&son:class A * [line 17]\n *n$6._son:class A *=n$7 [line -1]\n REMOVE_TEMPS(n$6,n$7); [line -1]\n NULLIFY(&self,false); [line -1]\n NULLIFY(&son,false); [line -1]\n APPLY_ABSTRACTION; [line -1]\n " shape="box"] 10 [label="10: BinaryOperatorStmt: Assign \n n$6=*&self:class A * [line 17]\n n$7=*&son:class A * [line 17]\n *n$6._son:class A *=n$7 [line 17]\n REMOVE_TEMPS(n$6,n$7); [line 17]\n NULLIFY(&self,false); [line 17]\n NULLIFY(&son,false); [line 17]\n APPLY_ABSTRACTION; [line 17]\n " shape="box"]
10 -> 9 ; 10 -> 9 ;
9 [label="9: Exit A_setSon: \n " color=yellow style=filled] 9 [label="9: Exit A_setSon: \n " color=yellow style=filled]
8 [label="8: Start A_setSon:\nFormals: self:class A * son:class A *\nLocals: \n DECLARE_LOCALS(&return); [line -1]\n " color=yellow style=filled] 8 [label="8: Start A_setSon: (generated)\nFormals: self:class A * son:class A *\nLocals: \n DECLARE_LOCALS(&return); [line 17]\n " color=yellow style=filled]
8 -> 10 ; 8 -> 10 ;
7 [label="7: Return Stmt \n n$4=*&self:class A * [line -1]\n n$5=*n$4._son:class A * [line -1]\n *&return:class A *=n$5 [line -1]\n REMOVE_TEMPS(n$4,n$5); [line -1]\n NULLIFY(&self,false); [line -1]\n APPLY_ABSTRACTION; [line -1]\n " shape="box"] 7 [label="7: Return Stmt \n n$4=*&self:class A * [line 17]\n n$5=*n$4._son:class A * [line 17]\n *&return:class A *=n$5 [line 17]\n REMOVE_TEMPS(n$4,n$5); [line 17]\n NULLIFY(&self,false); [line 17]\n APPLY_ABSTRACTION; [line 17]\n " shape="box"]
7 -> 6 ; 7 -> 6 ;
6 [label="6: Exit A_son \n " color=yellow style=filled] 6 [label="6: Exit A_son \n " color=yellow style=filled]
5 [label="5: Start A_son\nFormals: self:class A *\nLocals: \n DECLARE_LOCALS(&return); [line -1]\n " color=yellow style=filled] 5 [label="5: Start A_son (generated)\nFormals: self:class A *\nLocals: \n DECLARE_LOCALS(&return); [line 17]\n " color=yellow style=filled]
5 -> 7 ; 5 -> 7 ;

44
infer/tests/codetoanalyze/objc/errors/memory_leaks_benchmark/MemoryLeakExample.dot
Unescape View File

@ -1,48 +1,4 @@
digraph iCFG { digraph iCFG {
60 [label="60: BinaryOperatorStmt: Assign \n n$41=*&self:class MemoryLeakExample * [line 16]\n n$42=*&attachmentContainerView:class UIView * [line 16]\n *n$41._attachmentContainerView:class UIView *=n$42 [line -1]\n REMOVE_TEMPS(n$41,n$42); [line -1]\n NULLIFY(&attachmentContainerView,false); [line -1]\n NULLIFY(&self,false); [line -1]\n APPLY_ABSTRACTION; [line -1]\n " shape="box"]
60 -> 59 ;
59 [label="59: Exit MemoryLeakExample_setAttachmentContainerView: \n " color=yellow style=filled]
58 [label="58: Start MemoryLeakExample_setAttachmentContainerView:\nFormals: self:class MemoryLeakExample * attachmentContainerView:class UIView *\nLocals: \n DECLARE_LOCALS(&return); [line -1]\n " color=yellow style=filled]
58 -> 60 ;
57 [label="57: Return Stmt \n n$39=*&self:class MemoryLeakExample * [line -1]\n n$40=*n$39._attachmentContainerView:class UIView * [line -1]\n *&return:class UIView *=n$40 [line -1]\n REMOVE_TEMPS(n$39,n$40); [line -1]\n NULLIFY(&self,false); [line -1]\n APPLY_ABSTRACTION; [line -1]\n " shape="box"]
57 -> 56 ;
56 [label="56: Exit MemoryLeakExample_attachmentContainerView \n " color=yellow style=filled]
55 [label="55: Start MemoryLeakExample_attachmentContainerView\nFormals: self:class MemoryLeakExample *\nLocals: \n DECLARE_LOCALS(&return); [line -1]\n " color=yellow style=filled]
55 -> 57 ;
54 [label="54: BinaryOperatorStmt: Assign \n n$37=*&self:class MemoryLeakExample * [line 15]\n n$38=*&backgroundCoveringView:class UIView * [line 15]\n *n$37._backgroundCoveringView:class UIView *=n$38 [line -1]\n REMOVE_TEMPS(n$37,n$38); [line -1]\n NULLIFY(&backgroundCoveringView,false); [line -1]\n NULLIFY(&self,false); [line -1]\n APPLY_ABSTRACTION; [line -1]\n " shape="box"]
54 -> 53 ;
53 [label="53: Exit MemoryLeakExample_setBackgroundCoveringView: \n " color=yellow style=filled]
52 [label="52: Start MemoryLeakExample_setBackgroundCoveringView:\nFormals: self:class MemoryLeakExample * backgroundCoveringView:class UIView *\nLocals: \n DECLARE_LOCALS(&return); [line -1]\n " color=yellow style=filled]
52 -> 54 ;
51 [label="51: Return Stmt \n n$35=*&self:class MemoryLeakExample * [line -1]\n n$36=*n$35._backgroundCoveringView:class UIView * [line -1]\n *&return:class UIView *=n$36 [line -1]\n REMOVE_TEMPS(n$35,n$36); [line -1]\n NULLIFY(&self,false); [line -1]\n APPLY_ABSTRACTION; [line -1]\n " shape="box"]
51 -> 50 ;
50 [label="50: Exit MemoryLeakExample_backgroundCoveringView \n " color=yellow style=filled]
49 [label="49: Start MemoryLeakExample_backgroundCoveringView\nFormals: self:class MemoryLeakExample *\nLocals: \n DECLARE_LOCALS(&return); [line -1]\n " color=yellow style=filled]
49 -> 51 ;
48 [label="48: DeclStmt \n n$34=_fun_FBColorCreateWithGray(0.000000:double ,0.300000:double ) [line 95]\n *&borderColor:struct CGColor *=n$34 [line 95]\n REMOVE_TEMPS(n$34); [line 95]\n " shape="box"] 48 [label="48: DeclStmt \n n$34=_fun_FBColorCreateWithGray(0.000000:double ,0.300000:double ) [line 95]\n *&borderColor:struct CGColor *=n$34 [line 95]\n REMOVE_TEMPS(n$34); [line 95]\n " shape="box"]

16
infer/tests/codetoanalyze/objc/errors/memory_leaks_benchmark/retain_cycle.m
Unescape View File

@ -18,43 +18,27 @@
@end @end
@implementation AA
@end
@interface BBStrong : NSObject @interface BBStrong : NSObject
@property (nonatomic, strong) AA* a; @property (nonatomic, strong) AA* a;
@end @end
@implementation BBStrong
@end
@interface BBUnsafeUnretained : NSObject @interface BBUnsafeUnretained : NSObject
@property (nonatomic, unsafe_unretained) AA* a; @property (nonatomic, unsafe_unretained) AA* a;
@end @end
@implementation BBUnsafeUnretained
@end
@interface BBWeak : NSObject @interface BBWeak : NSObject
@property (nonatomic, weak) AA* a; @property (nonatomic, weak) AA* a;
@end @end
@implementation BBWeak
@end
@interface BBAssign : NSObject @interface BBAssign : NSObject
@property (nonatomic) AA* a; @property (nonatomic) AA* a;
@end @end
@implementation BBAssign
@end
int strongcycle() { int strongcycle() {
AA* a_obj =[AA alloc]; AA* a_obj =[AA alloc];

8
infer/tests/codetoanalyze/objc/errors/npe/Nonnull_attribute_example.dot
Unescape View File

@ -18,25 +18,25 @@ digraph iCFG {
16 -> 15 ; 16 -> 15 ;
15 [label="15: BinaryOperatorStmt: Assign \n n$14=*&self:class C * [line 31]\n n$16=*&name:class NSString * [line -1]\n n$15=_fun_NSString_copy(n$16:class NSString *) virtual [line -1]\n *n$14._name:class NSString *=n$15 [line -1]\n REMOVE_TEMPS(n$14,n$15,n$16); [line -1]\n NULLIFY(&name,false); [line -1]\n NULLIFY(&self,false); [line -1]\n APPLY_ABSTRACTION; [line -1]\n " shape="box"] 15 [label="15: BinaryOperatorStmt: Assign \n n$14=*&self:class C * [line 31]\n n$16=*&name:class NSString * [line 31]\n n$15=_fun_NSString_copy(n$16:class NSString *) virtual [line 31]\n *n$14._name:class NSString *=n$15 [line 31]\n REMOVE_TEMPS(n$14,n$15,n$16); [line 31]\n NULLIFY(&name,false); [line 31]\n NULLIFY(&self,false); [line 31]\n APPLY_ABSTRACTION; [line 31]\n " shape="box"]
15 -> 14 ; 15 -> 14 ;
14 [label="14: Exit C_setName: \n " color=yellow style=filled] 14 [label="14: Exit C_setName: \n " color=yellow style=filled]
13 [label="13: Start C_setName:\nFormals: self:class C * name:class NSString *\nLocals: \n DECLARE_LOCALS(&return); [line -1]\n " color=yellow style=filled] 13 [label="13: Start C_setName: (generated)\nFormals: self:class C * name:class NSString *\nLocals: \n DECLARE_LOCALS(&return); [line 31]\n " color=yellow style=filled]
13 -> 16 ; 13 -> 16 ;
12 [label="12: Return Stmt \n n$11=*&self:class C * [line -1]\n n$12=*n$11._name:class NSString * [line -1]\n *&return:class NSString *=n$12 [line -1]\n n$13=_fun___set_autorelease_attribute(n$12:class NSString *) [line -1]\n REMOVE_TEMPS(n$11,n$12,n$13); [line -1]\n NULLIFY(&self,false); [line -1]\n APPLY_ABSTRACTION; [line -1]\n " shape="box"] 12 [label="12: Return Stmt \n n$11=*&self:class C * [line 31]\n n$12=*n$11._name:class NSString * [line 31]\n *&return:class NSString *=n$12 [line 31]\n n$13=_fun___set_autorelease_attribute(n$12:class NSString *) [line 31]\n REMOVE_TEMPS(n$11,n$12,n$13); [line 31]\n NULLIFY(&self,false); [line 31]\n APPLY_ABSTRACTION; [line 31]\n " shape="box"]
12 -> 11 ; 12 -> 11 ;
11 [label="11: Exit C_name \n " color=yellow style=filled] 11 [label="11: Exit C_name \n " color=yellow style=filled]
10 [label="10: Start C_name\nFormals: self:class C *\nLocals: \n DECLARE_LOCALS(&return); [line -1]\n " color=yellow style=filled] 10 [label="10: Start C_name (generated)\nFormals: self:class C *\nLocals: \n DECLARE_LOCALS(&return); [line 31]\n " color=yellow style=filled]
10 -> 12 ; 10 -> 12 ;

280
infer/tests/codetoanalyze/objc/frontend/assertions/NSAssert_example.dot
Unescape View File

@ -1,275 +1,275 @@
digraph iCFG { digraph iCFG {
69 [label="69: Assertion failure \n _fun___infer_fail(\"ASSERTION_FAILURE\":void ) [line 36]\n APPLY_ABSTRACTION; [line 36]\n " shape="box"] 81 [label="81: Assertion failure \n _fun___infer_fail(\"ASSERTION_FAILURE\":void ) [line 36]\n APPLY_ABSTRACTION; [line 36]\n " shape="box"]
69 -> 56 ; 81 -> 65 ;
68 [label="68: Prune (false branch) \n n$33=*&SIL_temp_conditional___62:int [line 38]\n NULLIFY(&SIL_temp_conditional___62,true); [line 38]\n PRUNE((n$33 == 0), false); [line 38]\n REMOVE_TEMPS(n$33); [line 38]\n " shape="invhouse"] 80 [label="80: Prune (false branch) \n n$41=*&SIL_temp_conditional___74:int [line 38]\n NULLIFY(&SIL_temp_conditional___74,true); [line 38]\n PRUNE((n$41 == 0), false); [line 38]\n REMOVE_TEMPS(n$41); [line 38]\n " shape="invhouse"]
68 -> 61 ; 80 -> 73 ;
67 [label="67: Prune (true branch) \n n$33=*&SIL_temp_conditional___62:int [line 38]\n NULLIFY(&SIL_temp_conditional___62,true); [line 38]\n PRUNE((n$33 != 0), true); [line 38]\n REMOVE_TEMPS(n$33); [line 38]\n NULLIFY(&target,false); [line 38]\n " shape="invhouse"] 79 [label="79: Prune (true branch) \n n$41=*&SIL_temp_conditional___74:int [line 38]\n NULLIFY(&SIL_temp_conditional___74,true); [line 38]\n PRUNE((n$41 != 0), true); [line 38]\n REMOVE_TEMPS(n$41); [line 38]\n NULLIFY(&target,false); [line 38]\n " shape="invhouse"]
67 -> 69 ; 79 -> 81 ;
66 [label="66: ConditinalStmt Branch \n DECLARE_LOCALS(&SIL_temp_conditional___62); [line 38]\n *&SIL_temp_conditional___62:int =1 [line 38]\n APPLY_ABSTRACTION; [line 38]\n " shape="box"] 78 [label="78: ConditinalStmt Branch \n DECLARE_LOCALS(&SIL_temp_conditional___74); [line 38]\n *&SIL_temp_conditional___74:int =1 [line 38]\n APPLY_ABSTRACTION; [line 38]\n " shape="box"]
66 -> 62 ; 78 -> 74 ;
65 [label="65: ConditinalStmt Branch \n DECLARE_LOCALS(&SIL_temp_conditional___62); [line 38]\n *&SIL_temp_conditional___62:int =0 [line 38]\n APPLY_ABSTRACTION; [line 38]\n " shape="box"] 77 [label="77: ConditinalStmt Branch \n DECLARE_LOCALS(&SIL_temp_conditional___74); [line 38]\n *&SIL_temp_conditional___74:int =0 [line 38]\n APPLY_ABSTRACTION; [line 38]\n " shape="box"]
65 -> 62 ; 77 -> 74 ;
64 [label="64: Prune (false branch) \n n$32=*&target:class A * [line 38]\n PRUNE((n$32 == 0), false); [line 38]\n REMOVE_TEMPS(n$32); [line 38]\n " shape="invhouse"] 76 [label="76: Prune (false branch) \n n$40=*&target:class A * [line 38]\n PRUNE((n$40 == 0), false); [line 38]\n REMOVE_TEMPS(n$40); [line 38]\n " shape="invhouse"]
64 -> 66 ; 76 -> 78 ;
63 [label="63: Prune (true branch) \n n$32=*&target:class A * [line 38]\n PRUNE((n$32 != 0), true); [line 38]\n REMOVE_TEMPS(n$32); [line 38]\n " shape="invhouse"] 75 [label="75: Prune (true branch) \n n$40=*&target:class A * [line 38]\n PRUNE((n$40 != 0), true); [line 38]\n REMOVE_TEMPS(n$40); [line 38]\n " shape="invhouse"]
63 -> 65 ; 75 -> 77 ;
62 [label="62: + \n " ] 74 [label="74: + \n " ]
62 -> 67 ; 74 -> 79 ;
62 -> 68 ; 74 -> 80 ;
61 [label="61: + \n " ] 73 [label="73: + \n " ]
61 -> 59 ; 73 -> 71 ;
61 -> 60 ; 73 -> 72 ;
60 [label="60: Prune (false branch) \n PRUNE((0 == 0), false); [line 36]\n " shape="invhouse"] 72 [label="72: Prune (false branch) \n PRUNE((0 == 0), false); [line 36]\n " shape="invhouse"]
60 -> 57 ; 72 -> 66 ;
59 [label="59: Prune (true branch) \n PRUNE((0 != 0), true); [line 36]\n APPLY_ABSTRACTION; [line 36]\n " shape="invhouse"] 71 [label="71: Prune (true branch) \n PRUNE((0 != 0), true); [line 36]\n APPLY_ABSTRACTION; [line 36]\n " shape="invhouse"]
59 -> 58 ; 71 -> 70 ;
58 [label="58: + \n " ] 70 [label="70: + \n " ]
58 -> 63 ; 70 -> 75 ;
58 -> 64 ; 70 -> 76 ;
57 [label="57: Return Stmt \n n$31=*&target:class A * [line 37]\n n$30=_fun_A_x(n$31:class A *) virtual [line 37]\n *&return:int =n$30 [line 37]\n REMOVE_TEMPS(n$30,n$31); [line 37]\n NULLIFY(&target,false); [line 37]\n APPLY_ABSTRACTION; [line 37]\n " shape="box"] 69 [label="69: Return Stmt \n n$38=*&self:class A * [line 13]\n n$39=*n$38._x:int [line 13]\n *&return:int =n$39 [line 13]\n REMOVE_TEMPS(n$38,n$39); [line 13]\n NULLIFY(&self,false); [line 13]\n APPLY_ABSTRACTION; [line 13]\n " shape="box"]
57 -> 56 ; 69 -> 68 ;
56 [label="56: Exit test2 \n " color=yellow style=filled] 68 [label="68: Exit A_x \n " color=yellow style=filled]
55 [label="55: Start test2\nFormals: target:class A *\nLocals: \n DECLARE_LOCALS(&return); [line 35]\n " color=yellow style=filled] 67 [label="67: Start A_x (generated)\nFormals: self:class A *\nLocals: \n DECLARE_LOCALS(&return); [line 13]\n " color=yellow style=filled]
55 -> 58 ; 67 -> 69 ;
54 [label="54: Assertion failure \n _fun___infer_fail(\"ASSERTION_FAILURE\":void ) [line 31]\n APPLY_ABSTRACTION; [line 31]\n " shape="box"] 66 [label="66: Return Stmt \n n$37=*&target:class A * [line 37]\n n$36=_fun_A_x(n$37:class A *) virtual [line 37]\n *&return:int =n$36 [line 37]\n REMOVE_TEMPS(n$36,n$37); [line 37]\n NULLIFY(&target,false); [line 37]\n APPLY_ABSTRACTION; [line 37]\n " shape="box"]
54 -> 40 ; 66 -> 65 ;
53 [label="53: Prune (false branch) \n n$25=*&SIL_temp_conditional___46:int [line 33]\n NULLIFY(&SIL_temp_conditional___46,true); [line 33]\n PRUNE((n$25 == 0), false); [line 33]\n REMOVE_TEMPS(n$25); [line 33]\n " shape="invhouse"] 65 [label="65: Exit test2 \n " color=yellow style=filled]
53 -> 45 ; 64 [label="64: Start test2\nFormals: target:class A *\nLocals: \n DECLARE_LOCALS(&return); [line 35]\n " color=yellow style=filled]
52 [label="52: Prune (true branch) \n n$25=*&SIL_temp_conditional___46:int [line 33]\n NULLIFY(&SIL_temp_conditional___46,true); [line 33]\n PRUNE((n$25 != 0), true); [line 33]\n REMOVE_TEMPS(n$25); [line 33]\n NULLIFY(&target,false); [line 33]\n " shape="invhouse"]
52 -> 54 ; 64 -> 70 ;
51 [label="51: ConditinalStmt Branch \n DECLARE_LOCALS(&SIL_temp_conditional___46); [line 33]\n *&SIL_temp_conditional___46:int =1 [line 33]\n APPLY_ABSTRACTION; [line 33]\n " shape="box"] 63 [label="63: Assertion failure \n _fun___infer_fail(\"ASSERTION_FAILURE\":void ) [line 31]\n APPLY_ABSTRACTION; [line 31]\n " shape="box"]
51 -> 46 ; 63 -> 46 ;
50 [label="50: ConditinalStmt Branch \n DECLARE_LOCALS(&SIL_temp_conditional___46); [line 33]\n *&SIL_temp_conditional___46:int =0 [line 33]\n APPLY_ABSTRACTION; [line 33]\n " shape="box"] 62 [label="62: Prune (false branch) \n n$31=*&SIL_temp_conditional___55:int [line 33]\n NULLIFY(&SIL_temp_conditional___55,true); [line 33]\n PRUNE((n$31 == 0), false); [line 33]\n REMOVE_TEMPS(n$31); [line 33]\n " shape="invhouse"]
50 -> 46 ; 62 -> 54 ;
49 [label="49: Prune (false branch) \n PRUNE(((n$24 != (void *)0) == 0), false); [line 31]\n REMOVE_TEMPS(n$24); [line 31]\n " shape="invhouse"] 61 [label="61: Prune (true branch) \n n$31=*&SIL_temp_conditional___55:int [line 33]\n NULLIFY(&SIL_temp_conditional___55,true); [line 33]\n PRUNE((n$31 != 0), true); [line 33]\n REMOVE_TEMPS(n$31); [line 33]\n NULLIFY(&target,false); [line 33]\n " shape="invhouse"]
49 -> 51 ; 61 -> 63 ;
48 [label="48: Prune (true branch) \n PRUNE(((n$24 != (void *)0) != 0), true); [line 31]\n REMOVE_TEMPS(n$24); [line 31]\n " shape="invhouse"] 60 [label="60: ConditinalStmt Branch \n DECLARE_LOCALS(&SIL_temp_conditional___55); [line 33]\n *&SIL_temp_conditional___55:int =1 [line 33]\n APPLY_ABSTRACTION; [line 33]\n " shape="box"]
48 -> 50 ; 60 -> 55 ;
47 [label="47: BinaryOperatorStmt: NE \n n$24=*&target:class A * [line 31]\n " shape="box"] 59 [label="59: ConditinalStmt Branch \n DECLARE_LOCALS(&SIL_temp_conditional___55); [line 33]\n *&SIL_temp_conditional___55:int =0 [line 33]\n APPLY_ABSTRACTION; [line 33]\n " shape="box"]
47 -> 48 ; 59 -> 55 ;
47 -> 49 ; 58 [label="58: Prune (false branch) \n PRUNE(((n$30 != (void *)0) == 0), false); [line 31]\n REMOVE_TEMPS(n$30); [line 31]\n " shape="invhouse"]
46 [label="46: + \n " ]
46 -> 52 ; 58 -> 60 ;
46 -> 53 ; 57 [label="57: Prune (true branch) \n PRUNE(((n$30 != (void *)0) != 0), true); [line 31]\n REMOVE_TEMPS(n$30); [line 31]\n " shape="invhouse"]
45 [label="45: + \n " ]
45 -> 43 ; 57 -> 59 ;
45 -> 44 ; 56 [label="56: BinaryOperatorStmt: NE \n n$30=*&target:class A * [line 31]\n " shape="box"]
44 [label="44: Prune (false branch) \n PRUNE((0 == 0), false); [line 31]\n " shape="invhouse"]
44 -> 41 ; 56 -> 57 ;
43 [label="43: Prune (true branch) \n PRUNE((0 != 0), true); [line 31]\n APPLY_ABSTRACTION; [line 31]\n " shape="invhouse"] 56 -> 58 ;
55 [label="55: + \n " ]
43 -> 42 ; 55 -> 61 ;
42 [label="42: + \n " ] 55 -> 62 ;
54 [label="54: + \n " ]
42 -> 47 ; 54 -> 52 ;
41 [label="41: Return Stmt \n n$23=*&target:class A * [line 32]\n n$22=_fun_A_x(n$23:class A *) virtual [line 32]\n *&return:int =n$22 [line 32]\n REMOVE_TEMPS(n$22,n$23); [line 32]\n NULLIFY(&target,false); [line 32]\n APPLY_ABSTRACTION; [line 32]\n " shape="box"] 54 -> 53 ;
53 [label="53: Prune (false branch) \n PRUNE((0 == 0), false); [line 31]\n " shape="invhouse"]
41 -> 40 ; 53 -> 47 ;
40 [label="40: Exit test1 \n " color=yellow style=filled] 52 [label="52: Prune (true branch) \n PRUNE((0 != 0), true); [line 31]\n APPLY_ABSTRACTION; [line 31]\n " shape="invhouse"]
39 [label="39: Start test1\nFormals: target:class A *\nLocals: \n DECLARE_LOCALS(&return); [line 30]\n " color=yellow style=filled] 52 -> 51 ;
51 [label="51: + \n " ]
39 -> 42 ; 51 -> 56 ;
38 [label="38: BinaryOperatorStmt: Assign \n n$20=*&self:class A * [line 13]\n n$21=*&x:int [line 13]\n *n$20._x:int =n$21 [line -1]\n REMOVE_TEMPS(n$20,n$21); [line -1]\n NULLIFY(&self,false); [line -1]\n NULLIFY(&x,false); [line -1]\n APPLY_ABSTRACTION; [line -1]\n " shape="box"] 47 [label="47: Return Stmt \n n$27=*&target:class A * [line 32]\n n$26=_fun_A_x(n$27:class A *) virtual [line 32]\n *&return:int =n$26 [line 32]\n REMOVE_TEMPS(n$26,n$27); [line 32]\n NULLIFY(&target,false); [line 32]\n APPLY_ABSTRACTION; [line 32]\n " shape="box"]
38 -> 37 ; 47 -> 46 ;
37 [label="37: Exit A_setX: \n " color=yellow style=filled] 46 [label="46: Exit test1 \n " color=yellow style=filled]
36 [label="36: Start A_setX:\nFormals: self:class A * x:int \nLocals: \n DECLARE_LOCALS(&return); [line -1]\n " color=yellow style=filled] 45 [label="45: Start test1\nFormals: target:class A *\nLocals: \n DECLARE_LOCALS(&return); [line 30]\n " color=yellow style=filled]
36 -> 38 ; 45 -> 51 ;
35 [label="35: Return Stmt \n n$18=*&self:class A * [line -1]\n n$19=*n$18._x:int [line -1]\n *&return:int =n$19 [line -1]\n REMOVE_TEMPS(n$18,n$19); [line -1]\n NULLIFY(&self,false); [line -1]\n APPLY_ABSTRACTION; [line -1]\n " shape="box"] 44 [label="44: BinaryOperatorStmt: Assign \n n$24=*&self:class A * [line 13]\n n$25=*&x:int [line 13]\n *n$24._x:int =n$25 [line 13]\n REMOVE_TEMPS(n$24,n$25); [line 13]\n NULLIFY(&self,false); [line 13]\n NULLIFY(&x,false); [line 13]\n APPLY_ABSTRACTION; [line 13]\n " shape="box"]
35 -> 34 ; 44 -> 43 ;
34 [label="34: Exit A_x \n " color=yellow style=filled] 43 [label="43: Exit A_setX: \n " color=yellow style=filled]
33 [label="33: Start A_x\nFormals: self:class A *\nLocals: \n DECLARE_LOCALS(&return); [line -1]\n " color=yellow style=filled] 42 [label="42: Start A_setX: (generated)\nFormals: self:class A * x:int \nLocals: \n DECLARE_LOCALS(&return); [line 13]\n " color=yellow style=filled]
33 -> 35 ; 42 -> 44 ;
32 [label="32: Assertion failure \n _fun___infer_fail(\"ASSERTION_FAILURE\":void ) [line 24]\n APPLY_ABSTRACTION; [line 24]\n " shape="box"] 38 [label="38: Assertion failure \n _fun___infer_fail(\"ASSERTION_FAILURE\":void ) [line 24]\n APPLY_ABSTRACTION; [line 24]\n " shape="box"]
32 -> 18 ; 38 -> 21 ;
31 [label="31: Prune (false branch) \n n$12=*&SIL_temp_conditional___24:int [line 26]\n NULLIFY(&SIL_temp_conditional___24,true); [line 26]\n PRUNE((n$12 == 0), false); [line 26]\n REMOVE_TEMPS(n$12); [line 26]\n " shape="invhouse"] 37 [label="37: Prune (false branch) \n n$16=*&SIL_temp_conditional___30:int [line 26]\n NULLIFY(&SIL_temp_conditional___30,true); [line 26]\n PRUNE((n$16 == 0), false); [line 26]\n REMOVE_TEMPS(n$16); [line 26]\n " shape="invhouse"]
31 -> 23 ; 37 -> 29 ;
30 [label="30: Prune (true branch) \n n$12=*&SIL_temp_conditional___24:int [line 26]\n NULLIFY(&SIL_temp_conditional___24,true); [line 26]\n PRUNE((n$12 != 0), true); [line 26]\n REMOVE_TEMPS(n$12); [line 26]\n NULLIFY(&a,false); [line 26]\n " shape="invhouse"] 36 [label="36: Prune (true branch) \n n$16=*&SIL_temp_conditional___30:int [line 26]\n NULLIFY(&SIL_temp_conditional___30,true); [line 26]\n PRUNE((n$16 != 0), true); [line 26]\n REMOVE_TEMPS(n$16); [line 26]\n NULLIFY(&a,false); [line 26]\n " shape="invhouse"]
30 -> 32 ; 36 -> 38 ;
29 [label="29: ConditinalStmt Branch \n DECLARE_LOCALS(&SIL_temp_conditional___24); [line 26]\n *&SIL_temp_conditional___24:int =1 [line 26]\n APPLY_ABSTRACTION; [line 26]\n " shape="box"] 35 [label="35: ConditinalStmt Branch \n DECLARE_LOCALS(&SIL_temp_conditional___30); [line 26]\n *&SIL_temp_conditional___30:int =1 [line 26]\n APPLY_ABSTRACTION; [line 26]\n " shape="box"]
29 -> 24 ; 35 -> 30 ;
28 [label="28: ConditinalStmt Branch \n DECLARE_LOCALS(&SIL_temp_conditional___24); [line 26]\n *&SIL_temp_conditional___24:int =0 [line 26]\n APPLY_ABSTRACTION; [line 26]\n " shape="box"] 34 [label="34: ConditinalStmt Branch \n DECLARE_LOCALS(&SIL_temp_conditional___30); [line 26]\n *&SIL_temp_conditional___30:int =0 [line 26]\n APPLY_ABSTRACTION; [line 26]\n " shape="box"]
28 -> 24 ; 34 -> 30 ;
27 [label="27: Prune (false branch) \n PRUNE(((n$11 != (void *)0) == 0), false); [line 24]\n REMOVE_TEMPS(n$11); [line 24]\n " shape="invhouse"] 33 [label="33: Prune (false branch) \n PRUNE(((n$15 != (void *)0) == 0), false); [line 24]\n REMOVE_TEMPS(n$15); [line 24]\n " shape="invhouse"]
27 -> 29 ; 33 -> 35 ;
26 [label="26: Prune (true branch) \n PRUNE(((n$11 != (void *)0) != 0), true); [line 24]\n REMOVE_TEMPS(n$11); [line 24]\n " shape="invhouse"] 32 [label="32: Prune (true branch) \n PRUNE(((n$15 != (void *)0) != 0), true); [line 24]\n REMOVE_TEMPS(n$15); [line 24]\n " shape="invhouse"]
26 -> 28 ; 32 -> 34 ;
25 [label="25: BinaryOperatorStmt: NE \n n$11=*&a:class A * [line 24]\n " shape="box"] 31 [label="31: BinaryOperatorStmt: NE \n n$15=*&a:class A * [line 24]\n " shape="box"]
25 -> 26 ; 31 -> 32 ;
25 -> 27 ; 31 -> 33 ;
24 [label="24: + \n " ] 30 [label="30: + \n " ]
24 -> 30 ; 30 -> 36 ;
24 -> 31 ; 30 -> 37 ;
23 [label="23: + \n " ] 29 [label="29: + \n " ]
23 -> 21 ; 29 -> 27 ;
23 -> 22 ; 29 -> 28 ;
22 [label="22: Prune (false branch) \n PRUNE((0 == 0), false); [line 24]\n " shape="invhouse"] 28 [label="28: Prune (false branch) \n PRUNE((0 == 0), false); [line 24]\n " shape="invhouse"]
22 -> 19 ; 28 -> 22 ;
21 [label="21: Prune (true branch) \n PRUNE((0 != 0), true); [line 24]\n APPLY_ABSTRACTION; [line 24]\n " shape="invhouse"] 27 [label="27: Prune (true branch) \n PRUNE((0 != 0), true); [line 24]\n APPLY_ABSTRACTION; [line 24]\n " shape="invhouse"]
21 -> 20 ; 27 -> 26 ;
20 [label="20: + \n " ] 26 [label="26: + \n " ]
20 -> 25 ; 26 -> 31 ;
19 [label="19: Return Stmt \n n$10=*&a:class A * [line 25]\n n$9=_fun_A_x(n$10:class A *) virtual [line 25]\n *&return:int =n$9 [line 25]\n REMOVE_TEMPS(n$9,n$10); [line 25]\n NULLIFY(&a,false); [line 25]\n APPLY_ABSTRACTION; [line 25]\n " shape="box"] 22 [label="22: Return Stmt \n n$12=*&a:class A * [line 25]\n n$11=_fun_A_x(n$12:class A *) virtual [line 25]\n *&return:int =n$11 [line 25]\n REMOVE_TEMPS(n$11,n$12); [line 25]\n NULLIFY(&a,false); [line 25]\n APPLY_ABSTRACTION; [line 25]\n " shape="box"]
19 -> 18 ; 22 -> 21 ;
18 [label="18: Exit A_initWithRequest: \n " color=yellow style=filled] 21 [label="21: Exit A_initWithRequest: \n " color=yellow style=filled]
17 [label="17: Start A_initWithRequest:\nFormals: self:class A * a:class A *\nLocals: \n DECLARE_LOCALS(&return); [line 23]\n NULLIFY(&self,false); [line 23]\n " color=yellow style=filled] 20 [label="20: Start A_initWithRequest:\nFormals: self:class A * a:class A *\nLocals: \n DECLARE_LOCALS(&return); [line 23]\n NULLIFY(&self,false); [line 23]\n " color=yellow style=filled]
17 -> 20 ; 20 -> 26 ;
16 [label="16: Assertion failure \n _fun___infer_fail(\"ASSERTION_FAILURE\":void ) [line 19]\n APPLY_ABSTRACTION; [line 19]\n " shape="box"] 19 [label="19: Assertion failure \n _fun___infer_fail(\"ASSERTION_FAILURE\":void ) [line 19]\n APPLY_ABSTRACTION; [line 19]\n " shape="box"]
16 -> 2 ; 19 -> 2 ;
15 [label="15: Prune (false branch) \n n$3=*&SIL_temp_conditional___8:int [line 21]\n NULLIFY(&SIL_temp_conditional___8,true); [line 21]\n PRUNE((n$3 == 0), false); [line 21]\n REMOVE_TEMPS(n$3); [line 21]\n " shape="invhouse"] 18 [label="18: Prune (false branch) \n n$5=*&SIL_temp_conditional___11:int [line 21]\n NULLIFY(&SIL_temp_conditional___11,true); [line 21]\n PRUNE((n$5 == 0), false); [line 21]\n REMOVE_TEMPS(n$5); [line 21]\n " shape="invhouse"]
15 -> 7 ; 18 -> 10 ;
14 [label="14: Prune (true branch) \n n$3=*&SIL_temp_conditional___8:int [line 21]\n NULLIFY(&SIL_temp_conditional___8,true); [line 21]\n PRUNE((n$3 != 0), true); [line 21]\n REMOVE_TEMPS(n$3); [line 21]\n NULLIFY(&target,false); [line 21]\n " shape="invhouse"] 17 [label="17: Prune (true branch) \n n$5=*&SIL_temp_conditional___11:int [line 21]\n NULLIFY(&SIL_temp_conditional___11,true); [line 21]\n PRUNE((n$5 != 0), true); [line 21]\n REMOVE_TEMPS(n$5); [line 21]\n NULLIFY(&target,false); [line 21]\n " shape="invhouse"]
14 -> 16 ; 17 -> 19 ;
13 [label="13: ConditinalStmt Branch \n DECLARE_LOCALS(&SIL_temp_conditional___8); [line 21]\n *&SIL_temp_conditional___8:int =1 [line 21]\n APPLY_ABSTRACTION; [line 21]\n " shape="box"] 16 [label="16: ConditinalStmt Branch \n DECLARE_LOCALS(&SIL_temp_conditional___11); [line 21]\n *&SIL_temp_conditional___11:int =1 [line 21]\n APPLY_ABSTRACTION; [line 21]\n " shape="box"]
13 -> 8 ; 16 -> 11 ;
12 [label="12: ConditinalStmt Branch \n DECLARE_LOCALS(&SIL_temp_conditional___8); [line 21]\n *&SIL_temp_conditional___8:int =0 [line 21]\n APPLY_ABSTRACTION; [line 21]\n " shape="box"] 15 [label="15: ConditinalStmt Branch \n DECLARE_LOCALS(&SIL_temp_conditional___11); [line 21]\n *&SIL_temp_conditional___11:int =0 [line 21]\n APPLY_ABSTRACTION; [line 21]\n " shape="box"]
12 -> 8 ; 15 -> 11 ;
11 [label="11: Prune (false branch) \n PRUNE(((n$2 != (void *)0) == 0), false); [line 19]\n REMOVE_TEMPS(n$2); [line 19]\n " shape="invhouse"] 14 [label="14: Prune (false branch) \n PRUNE(((n$4 != (void *)0) == 0), false); [line 19]\n REMOVE_TEMPS(n$4); [line 19]\n " shape="invhouse"]
11 -> 13 ; 14 -> 16 ;
10 [label="10: Prune (true branch) \n PRUNE(((n$2 != (void *)0) != 0), true); [line 19]\n REMOVE_TEMPS(n$2); [line 19]\n " shape="invhouse"] 13 [label="13: Prune (true branch) \n PRUNE(((n$4 != (void *)0) != 0), true); [line 19]\n REMOVE_TEMPS(n$4); [line 19]\n " shape="invhouse"]
10 -> 12 ; 13 -> 15 ;
9 [label="9: BinaryOperatorStmt: NE \n n$2=*&target:class A * [line 19]\n " shape="box"] 12 [label="12: BinaryOperatorStmt: NE \n n$4=*&target:class A * [line 19]\n " shape="box"]
9 -> 10 ; 12 -> 13 ;
9 -> 11 ; 12 -> 14 ;
8 [label="8: + \n " ] 11 [label="11: + \n " ]
8 -> 14 ; 11 -> 17 ;
8 -> 15 ; 11 -> 18 ;
7 [label="7: + \n " ] 10 [label="10: + \n " ]
7 -> 5 ; 10 -> 8 ;
7 -> 6 ; 10 -> 9 ;
6 [label="6: Prune (false branch) \n PRUNE((0 == 0), false); [line 19]\n " shape="invhouse"] 9 [label="9: Prune (false branch) \n PRUNE((0 == 0), false); [line 19]\n " shape="invhouse"]
6 -> 3 ; 9 -> 3 ;
5 [label="5: Prune (true branch) \n PRUNE((0 != 0), true); [line 19]\n APPLY_ABSTRACTION; [line 19]\n " shape="invhouse"] 8 [label="8: Prune (true branch) \n PRUNE((0 != 0), true); [line 19]\n APPLY_ABSTRACTION; [line 19]\n " shape="invhouse"]
5 -> 4 ; 8 -> 7 ;
4 [label="4: + \n " ] 7 [label="7: + \n " ]
4 -> 9 ; 7 -> 12 ;
3 [label="3: Return Stmt \n n$1=*&target:class A * [line 20]\n n$0=_fun_A_x(n$1:class A *) virtual [line 20]\n *&return:int =n$0 [line 20]\n REMOVE_TEMPS(n$0,n$1); [line 20]\n NULLIFY(&target,false); [line 20]\n APPLY_ABSTRACTION; [line 20]\n " shape="box"] 3 [label="3: Return Stmt \n n$1=*&target:class A * [line 20]\n n$0=_fun_A_x(n$1:class A *) virtual [line 20]\n *&return:int =n$0 [line 20]\n REMOVE_TEMPS(n$0,n$1); [line 20]\n NULLIFY(&target,false); [line 20]\n APPLY_ABSTRACTION; [line 20]\n " shape="box"]
@ -280,5 +280,5 @@ digraph iCFG {
1 [label="1: Start A_addTarget:\nFormals: self:class A * target:class A *\nLocals: \n DECLARE_LOCALS(&return); [line 18]\n NULLIFY(&self,false); [line 18]\n " color=yellow style=filled] 1 [label="1: Start A_addTarget:\nFormals: self:class A * target:class A *\nLocals: \n DECLARE_LOCALS(&return); [line 18]\n NULLIFY(&self,false); [line 18]\n " color=yellow style=filled]
1 -> 4 ; 1 -> 7 ;
} }

32
infer/tests/codetoanalyze/objc/frontend/block/dispatch.dot
Unescape View File

@ -1,42 +1,42 @@
digraph iCFG { digraph iCFG {
27 [label="27: DeclStmt \n n$18=_fun_A_sharedInstance() [line 50]\n *&b:class A *=n$18 [line 50]\n REMOVE_TEMPS(n$18); [line 50]\n " shape="box"] 30 [label="30: DeclStmt \n n$20=_fun_A_sharedInstance() [line 50]\n *&b:class A *=n$20 [line 50]\n REMOVE_TEMPS(n$20); [line 50]\n " shape="box"]
27 -> 26 ; 30 -> 29 ;
26 [label="26: Message Call: setX: \n n$17=*&b:class A * [line 51]\n _fun_A_setX:(n$17:class A *,17:int ) virtual [line 51]\n REMOVE_TEMPS(n$17); [line 51]\n NULLIFY(&b,false); [line 51]\n " shape="box"] 29 [label="29: Message Call: setX: \n n$17=*&b:class A * [line 51]\n _fun_A_setX:(n$17:class A *,17:int ) virtual [line 51]\n REMOVE_TEMPS(n$17); [line 51]\n NULLIFY(&b,false); [line 51]\n " shape="box"]
26 -> 25 ; 29 -> 25 ;
25 [label="25: Return Stmt \n *&return:int =0 [line 52]\n APPLY_ABSTRACTION; [line 52]\n " shape="box"] 28 [label="28: BinaryOperatorStmt: Assign \n n$18=*&self:class A * [line 14]\n n$19=*&x:int [line 14]\n *n$18._x:int =n$19 [line 14]\n REMOVE_TEMPS(n$18,n$19); [line 14]\n NULLIFY(&self,false); [line 14]\n NULLIFY(&x,false); [line 14]\n APPLY_ABSTRACTION; [line 14]\n " shape="box"]
25 -> 24 ; 28 -> 27 ;
24 [label="24: Exit main \n " color=yellow style=filled] 27 [label="27: Exit A_setX: \n " color=yellow style=filled]
23 [label="23: Start main\nFormals: \nLocals: b:class A * \n DECLARE_LOCALS(&return,&b); [line 49]\n NULLIFY(&b,false); [line 49]\n " color=yellow style=filled] 26 [label="26: Start A_setX: (generated)\nFormals: self:class A * x:int \nLocals: \n DECLARE_LOCALS(&return); [line 14]\n " color=yellow style=filled]
23 -> 27 ; 26 -> 28 ;
22 [label="22: BinaryOperatorStmt: Assign \n n$15=*&self:class A * [line 14]\n n$16=*&x:int [line 14]\n *n$15._x:int =n$16 [line -1]\n REMOVE_TEMPS(n$15,n$16); [line -1]\n NULLIFY(&self,false); [line -1]\n NULLIFY(&x,false); [line -1]\n APPLY_ABSTRACTION; [line -1]\n " shape="box"] 25 [label="25: Return Stmt \n *&return:int =0 [line 52]\n APPLY_ABSTRACTION; [line 52]\n " shape="box"]
22 -> 21 ; 25 -> 24 ;
21 [label="21: Exit A_setX: \n " color=yellow style=filled] 24 [label="24: Exit main \n " color=yellow style=filled]
20 [label="20: Start A_setX:\nFormals: self:class A * x:int \nLocals: \n DECLARE_LOCALS(&return); [line -1]\n " color=yellow style=filled] 23 [label="23: Start main\nFormals: \nLocals: b:class A * \n DECLARE_LOCALS(&return,&b); [line 49]\n NULLIFY(&b,false); [line 49]\n " color=yellow style=filled]
20 -> 22 ; 23 -> 30 ;
19 [label="19: Return Stmt \n n$13=*&self:class A * [line -1]\n n$14=*n$13._x:int [line -1]\n *&return:int =n$14 [line -1]\n REMOVE_TEMPS(n$13,n$14); [line -1]\n NULLIFY(&self,false); [line -1]\n APPLY_ABSTRACTION; [line -1]\n " shape="box"] 19 [label="19: Return Stmt \n n$13=*&self:class A * [line 14]\n n$14=*n$13._x:int [line 14]\n *&return:int =n$14 [line 14]\n REMOVE_TEMPS(n$13,n$14); [line 14]\n NULLIFY(&self,false); [line 14]\n APPLY_ABSTRACTION; [line 14]\n " shape="box"]
19 -> 18 ; 19 -> 18 ;
18 [label="18: Exit A_x \n " color=yellow style=filled] 18 [label="18: Exit A_x \n " color=yellow style=filled]
17 [label="17: Start A_x\nFormals: self:class A *\nLocals: \n DECLARE_LOCALS(&return); [line -1]\n " color=yellow style=filled] 17 [label="17: Start A_x (generated)\nFormals: self:class A *\nLocals: \n DECLARE_LOCALS(&return); [line 14]\n " color=yellow style=filled]
17 -> 19 ; 17 -> 19 ;

56
infer/tests/codetoanalyze/objc/frontend/property/PropertyAttributes.dot
Unescape View File

@ -1,98 +1,98 @@
digraph iCFG { digraph iCFG {
36 [label="36: DeclStmt \n n$37=_fun___objc_alloc_no_fail(sizeof(class A ):class A *) [line 39]\n n$35=_fun_A_init(n$37:class A *) virtual [line 39]\n *&a:class A *=n$35 [line 39]\n REMOVE_TEMPS(n$35,n$37); [line 39]\n " shape="box"] 39 [label="39: DeclStmt \n n$39=_fun___objc_alloc_no_fail(sizeof(class A ):class A *) [line 39]\n n$37=_fun_A_init(n$39:class A *) virtual [line 39]\n *&a:class A *=n$37 [line 39]\n REMOVE_TEMPS(n$37,n$39); [line 39]\n " shape="box"]
36 -> 35 ; 39 -> 38 ;
35 [label="35: Message Call: setLast_name: \n n$33=*&a:class A * [line 40]\n n$34=*&a2:class A * [line 40]\n _fun_A_setLast_name:(n$33:class A *,n$34:class A *) virtual [line 40]\n REMOVE_TEMPS(n$33,n$34); [line 40]\n NULLIFY(&a2,false); [line 40]\n " shape="box"] 38 [label="38: Message Call: setLast_name: \n n$33=*&a:class A * [line 40]\n n$34=*&a2:class A * [line 40]\n _fun_A_setLast_name:(n$33:class A *,n$34:class A *) virtual [line 40]\n REMOVE_TEMPS(n$33,n$34); [line 40]\n NULLIFY(&a2,false); [line 40]\n " shape="box"]
35 -> 34 ; 38 -> 34 ;
34 [label="34: Message Call: release \n n$32=*&a:class A * [line 41]\n _fun___objc_release(n$32:class A *) [line 41]\n REMOVE_TEMPS(n$32); [line 41]\n NULLIFY(&a,false); [line 41]\n " shape="box"] 37 [label="37: BinaryOperatorStmt: Assign \n n$35=*&self:class A * [line 18]\n n$36=*&last_name:class A * [line 18]\n *n$35._last_name:class A *=n$36 [line 18]\n REMOVE_TEMPS(n$35,n$36); [line 18]\n NULLIFY(&last_name,false); [line 18]\n NULLIFY(&self,false); [line 18]\n APPLY_ABSTRACTION; [line 18]\n " shape="box"]
34 -> 33 ; 37 -> 36 ;
33 [label="33: Return Stmt \n *&return:int =0 [line 42]\n APPLY_ABSTRACTION; [line 42]\n " shape="box"] 36 [label="36: Exit A_setLast_name: \n " color=yellow style=filled]
33 -> 32 ; 35 [label="35: Start A_setLast_name: (generated)\nFormals: self:class A * last_name:class A *\nLocals: \n DECLARE_LOCALS(&return); [line 18]\n " color=yellow style=filled]
32 [label="32: Exit test \n " color=yellow style=filled]
31 [label="31: Start test\nFormals: a2:class A *\nLocals: a:class A * \n DECLARE_LOCALS(&return,&a); [line 38]\n NULLIFY(&a,false); [line 38]\n " color=yellow style=filled] 35 -> 37 ;
34 [label="34: Message Call: release \n n$32=*&a:class A * [line 41]\n _fun___objc_release(n$32:class A *) [line 41]\n REMOVE_TEMPS(n$32); [line 41]\n NULLIFY(&a,false); [line 41]\n " shape="box"]
31 -> 36 ; 34 -> 33 ;
30 [label="30: BinaryOperatorStmt: Assign \n n$30=*&self:class A * [line 18]\n n$31=*&last_name:class A * [line 18]\n *n$30._last_name:class A *=n$31 [line -1]\n REMOVE_TEMPS(n$30,n$31); [line -1]\n NULLIFY(&last_name,false); [line -1]\n NULLIFY(&self,false); [line -1]\n APPLY_ABSTRACTION; [line -1]\n " shape="box"] 33 [label="33: Return Stmt \n *&return:int =0 [line 42]\n APPLY_ABSTRACTION; [line 42]\n " shape="box"]
30 -> 29 ; 33 -> 32 ;
29 [label="29: Exit A_setLast_name: \n " color=yellow style=filled] 32 [label="32: Exit test \n " color=yellow style=filled]
28 [label="28: Start A_setLast_name:\nFormals: self:class A * last_name:class A *\nLocals: \n DECLARE_LOCALS(&return); [line -1]\n " color=yellow style=filled] 31 [label="31: Start test\nFormals: a2:class A *\nLocals: a:class A * \n DECLARE_LOCALS(&return,&a); [line 38]\n NULLIFY(&a,false); [line 38]\n " color=yellow style=filled]
28 -> 30 ; 31 -> 39 ;
27 [label="27: Return Stmt \n n$28=*&self:class A * [line -1]\n n$29=*n$28._last_name:class A * [line -1]\n *&return:class A *=n$29 [line -1]\n REMOVE_TEMPS(n$28,n$29); [line -1]\n NULLIFY(&self,false); [line -1]\n APPLY_ABSTRACTION; [line -1]\n " shape="box"] 27 [label="27: Return Stmt \n n$28=*&self:class A * [line 18]\n n$29=*n$28._last_name:class A * [line 18]\n *&return:class A *=n$29 [line 18]\n REMOVE_TEMPS(n$28,n$29); [line 18]\n NULLIFY(&self,false); [line 18]\n APPLY_ABSTRACTION; [line 18]\n " shape="box"]
27 -> 26 ; 27 -> 26 ;
26 [label="26: Exit A_last_name \n " color=yellow style=filled] 26 [label="26: Exit A_last_name \n " color=yellow style=filled]
25 [label="25: Start A_last_name\nFormals: self:class A *\nLocals: \n DECLARE_LOCALS(&return); [line -1]\n " color=yellow style=filled] 25 [label="25: Start A_last_name (generated)\nFormals: self:class A *\nLocals: \n DECLARE_LOCALS(&return); [line 18]\n " color=yellow style=filled]
25 -> 27 ; 25 -> 27 ;
24 [label="24: Message Call: retain \n n$27=*&name:class A * [line -1]\n n$26=_fun___objc_retain(n$27:class A *) [line -1]\n REMOVE_TEMPS(n$26,n$27); [line -1]\n " shape="box"] 24 [label="24: Message Call: retain \n n$27=*&name:class A * [line 16]\n n$26=_fun___objc_retain(n$27:class A *) [line 16]\n REMOVE_TEMPS(n$26,n$27); [line 16]\n " shape="box"]
24 -> 23 ; 24 -> 23 ;
23 [label="23: Message Call: release \n n$24=*&self:class A * [line 16]\n n$25=*n$24._name:class A * [line -1]\n n$23=_fun___objc_release(n$25:class A *) [line -1]\n REMOVE_TEMPS(n$23,n$24,n$25); [line -1]\n " shape="box"] 23 [label="23: Message Call: release \n n$24=*&self:class A * [line 16]\n n$25=*n$24._name:class A * [line 16]\n n$23=_fun___objc_release(n$25:class A *) [line 16]\n REMOVE_TEMPS(n$23,n$24,n$25); [line 16]\n " shape="box"]
23 -> 22 ; 23 -> 22 ;
22 [label="22: BinaryOperatorStmt: Assign \n n$21=*&self:class A * [line 16]\n n$22=*&name:class A * [line 16]\n *n$21._name:class A *=n$22 [line -1]\n REMOVE_TEMPS(n$21,n$22); [line -1]\n NULLIFY(&name,false); [line -1]\n NULLIFY(&self,false); [line -1]\n APPLY_ABSTRACTION; [line -1]\n " shape="box"] 22 [label="22: BinaryOperatorStmt: Assign \n n$21=*&self:class A * [line 16]\n n$22=*&name:class A * [line 16]\n *n$21._name:class A *=n$22 [line 16]\n REMOVE_TEMPS(n$21,n$22); [line 16]\n NULLIFY(&name,false); [line 16]\n NULLIFY(&self,false); [line 16]\n APPLY_ABSTRACTION; [line 16]\n " shape="box"]
22 -> 21 ; 22 -> 21 ;
21 [label="21: Exit A_setName: \n " color=yellow style=filled] 21 [label="21: Exit A_setName: \n " color=yellow style=filled]
20 [label="20: Start A_setName:\nFormals: self:class A * name:class A *\nLocals: \n DECLARE_LOCALS(&return); [line -1]\n " color=yellow style=filled] 20 [label="20: Start A_setName: (generated)\nFormals: self:class A * name:class A *\nLocals: \n DECLARE_LOCALS(&return); [line 16]\n " color=yellow style=filled]
20 -> 24 ; 20 -> 24 ;
19 [label="19: Return Stmt \n n$19=*&self:class A * [line -1]\n n$20=*n$19._name:class A * [line -1]\n *&return:class A *=n$20 [line -1]\n REMOVE_TEMPS(n$19,n$20); [line -1]\n NULLIFY(&self,false); [line -1]\n APPLY_ABSTRACTION; [line -1]\n " shape="box"] 19 [label="19: Return Stmt \n n$19=*&self:class A * [line 16]\n n$20=*n$19._name:class A * [line 16]\n *&return:class A *=n$20 [line 16]\n REMOVE_TEMPS(n$19,n$20); [line 16]\n NULLIFY(&self,false); [line 16]\n APPLY_ABSTRACTION; [line 16]\n " shape="box"]
19 -> 18 ; 19 -> 18 ;
18 [label="18: Exit A_name \n " color=yellow style=filled] 18 [label="18: Exit A_name \n " color=yellow style=filled]
17 [label="17: Start A_name\nFormals: self:class A *\nLocals: \n DECLARE_LOCALS(&return); [line -1]\n " color=yellow style=filled] 17 [label="17: Start A_name (generated)\nFormals: self:class A *\nLocals: \n DECLARE_LOCALS(&return); [line 16]\n " color=yellow style=filled]
17 -> 19 ; 17 -> 19 ;
16 [label="16: BinaryOperatorStmt: Assign \n n$16=*&self:class A * [line 14]\n n$18=*&child:class A * [line -1]\n n$17=_fun_A_copy(n$18:class A *) virtual [line -1]\n *n$16._child:class A *=n$17 [line -1]\n REMOVE_TEMPS(n$16,n$17,n$18); [line -1]\n NULLIFY(&child,false); [line -1]\n NULLIFY(&self,false); [line -1]\n APPLY_ABSTRACTION; [line -1]\n " shape="box"] 16 [label="16: BinaryOperatorStmt: Assign \n n$16=*&self:class A * [line 14]\n n$18=*&child:class A * [line 14]\n n$17=_fun_A_copy(n$18:class A *) virtual [line 14]\n *n$16._child:class A *=n$17 [line 14]\n REMOVE_TEMPS(n$16,n$17,n$18); [line 14]\n NULLIFY(&child,false); [line 14]\n NULLIFY(&self,false); [line 14]\n APPLY_ABSTRACTION; [line 14]\n " shape="box"]
16 -> 15 ; 16 -> 15 ;
15 [label="15: Exit A_setChild: \n " color=yellow style=filled] 15 [label="15: Exit A_setChild: \n " color=yellow style=filled]
14 [label="14: Start A_setChild:\nFormals: self:class A * child:class A *\nLocals: \n DECLARE_LOCALS(&return); [line -1]\n " color=yellow style=filled] 14 [label="14: Start A_setChild: (generated)\nFormals: self:class A * child:class A *\nLocals: \n DECLARE_LOCALS(&return); [line 14]\n " color=yellow style=filled]
14 -> 16 ; 14 -> 16 ;
13 [label="13: Return Stmt \n n$14=*&self:class A * [line -1]\n n$15=*n$14._child:class A * [line -1]\n *&return:class A *=n$15 [line -1]\n REMOVE_TEMPS(n$14,n$15); [line -1]\n NULLIFY(&self,false); [line -1]\n APPLY_ABSTRACTION; [line -1]\n " shape="box"] 13 [label="13: Return Stmt \n n$14=*&self:class A * [line 14]\n n$15=*n$14._child:class A * [line 14]\n *&return:class A *=n$15 [line 14]\n REMOVE_TEMPS(n$14,n$15); [line 14]\n NULLIFY(&self,false); [line 14]\n APPLY_ABSTRACTION; [line 14]\n " shape="box"]
13 -> 12 ; 13 -> 12 ;
12 [label="12: Exit A_child \n " color=yellow style=filled] 12 [label="12: Exit A_child \n " color=yellow style=filled]
11 [label="11: Start A_child\nFormals: self:class A *\nLocals: \n DECLARE_LOCALS(&return); [line -1]\n " color=yellow style=filled] 11 [label="11: Start A_child (generated)\nFormals: self:class A *\nLocals: \n DECLARE_LOCALS(&return); [line 14]\n " color=yellow style=filled]
11 -> 13 ; 11 -> 13 ;

8
infer/tests/codetoanalyze/objc/frontend/property/PropertyCustomAccessor.dot
Unescape View File

@ -1,23 +1,23 @@
digraph iCFG { digraph iCFG {
6 [label="6: BinaryOperatorStmt: Assign \n n$2=*&self:class ASDisplayNode * [line 14]\n n$3=*&opaque:signed char [line 14]\n *n$2._opaque:signed char =n$3 [line -1]\n REMOVE_TEMPS(n$2,n$3); [line -1]\n NULLIFY(&opaque,false); [line -1]\n NULLIFY(&self,false); [line -1]\n APPLY_ABSTRACTION; [line -1]\n " shape="box"] 6 [label="6: BinaryOperatorStmt: Assign \n n$2=*&self:class ASDisplayNode * [line 14]\n n$3=*&opaque:signed char [line 14]\n *n$2._opaque:signed char =n$3 [line 14]\n REMOVE_TEMPS(n$2,n$3); [line 14]\n NULLIFY(&opaque,false); [line 14]\n NULLIFY(&self,false); [line 14]\n APPLY_ABSTRACTION; [line 14]\n " shape="box"]
6 -> 5 ; 6 -> 5 ;
5 [label="5: Exit ASDisplayNode_setOpaque: \n " color=yellow style=filled] 5 [label="5: Exit ASDisplayNode_setOpaque: \n " color=yellow style=filled]
4 [label="4: Start ASDisplayNode_setOpaque:\nFormals: self:class ASDisplayNode * opaque:signed char \nLocals: \n DECLARE_LOCALS(&return); [line -1]\n " color=yellow style=filled] 4 [label="4: Start ASDisplayNode_setOpaque: (generated)\nFormals: self:class ASDisplayNode * opaque:signed char \nLocals: \n DECLARE_LOCALS(&return); [line 14]\n " color=yellow style=filled]
4 -> 6 ; 4 -> 6 ;
3 [label="3: Return Stmt \n n$0=*&self:class ASDisplayNode * [line -1]\n n$1=*n$0._opaque:signed char [line -1]\n *&return:signed char =n$1 [line -1]\n REMOVE_TEMPS(n$0,n$1); [line -1]\n NULLIFY(&self,false); [line -1]\n APPLY_ABSTRACTION; [line -1]\n " shape="box"] 3 [label="3: Return Stmt \n n$0=*&self:class ASDisplayNode * [line 14]\n n$1=*n$0._opaque:signed char [line 14]\n *&return:signed char =n$1 [line 14]\n REMOVE_TEMPS(n$0,n$1); [line 14]\n NULLIFY(&self,false); [line 14]\n APPLY_ABSTRACTION; [line 14]\n " shape="box"]
3 -> 2 ; 3 -> 2 ;
2 [label="2: Exit ASDisplayNode_isOpaque \n " color=yellow style=filled] 2 [label="2: Exit ASDisplayNode_isOpaque \n " color=yellow style=filled]
1 [label="1: Start ASDisplayNode_isOpaque\nFormals: self:class ASDisplayNode *\nLocals: \n DECLARE_LOCALS(&return); [line -1]\n " color=yellow style=filled] 1 [label="1: Start ASDisplayNode_isOpaque (generated)\nFormals: self:class ASDisplayNode *\nLocals: \n DECLARE_LOCALS(&return); [line 14]\n " color=yellow style=filled]
1 -> 3 ; 1 -> 3 ;

11
infer/tests/codetoanalyze/objc/frontend/property/PropertyImplSetter.dot
Unescape View File

@ -1,15 +1,4 @@
digraph iCFG { digraph iCFG {
6 [label="6: Return Stmt \n n$1=*&self:class PropertyImplSetter * [line -1]\n n$2=*n$1._maximumFileSize:int [line -1]\n *&return:int =n$2 [line -1]\n REMOVE_TEMPS(n$1,n$2); [line -1]\n NULLIFY(&self,false); [line -1]\n APPLY_ABSTRACTION; [line -1]\n " shape="box"]
6 -> 5 ;
5 [label="5: Exit PropertyImplSetter_maximumFileSize \n " color=yellow style=filled]
4 [label="4: Start PropertyImplSetter_maximumFileSize\nFormals: self:class PropertyImplSetter *\nLocals: \n DECLARE_LOCALS(&return); [line -1]\n " color=yellow style=filled]
4 -> 6 ;
3 [label="3: BinaryOperatorStmt: Assign \n n$0=*&self:class PropertyImplSetter * [line 16]\n *n$0._maximumFileSize:int =0 [line 16]\n REMOVE_TEMPS(n$0); [line 16]\n NULLIFY(&self,false); [line 16]\n APPLY_ABSTRACTION; [line 16]\n " shape="box"] 3 [label="3: BinaryOperatorStmt: Assign \n n$0=*&self:class PropertyImplSetter * [line 16]\n *n$0._maximumFileSize:int =0 [line 16]\n REMOVE_TEMPS(n$0); [line 16]\n NULLIFY(&self,false); [line 16]\n APPLY_ABSTRACTION; [line 16]\n " shape="box"]

20
infer/tests/codetoanalyze/objc/frontend/property/Property_getter.dot
Unescape View File

@ -1,26 +1,26 @@
digraph iCFG { digraph iCFG {
9 [label="9: BinaryOperatorStmt: Assign \n n$4=*&self:class A * [line 13]\n n$5=*&x:int [line 13]\n *n$4._x:int =n$5 [line -1]\n REMOVE_TEMPS(n$4,n$5); [line -1]\n NULLIFY(&self,false); [line -1]\n NULLIFY(&x,false); [line -1]\n APPLY_ABSTRACTION; [line -1]\n " shape="box"] 12 [label="12: BinaryOperatorStmt: Assign \n n$6=*&self:class A * [line 13]\n n$7=*&x:int [line 13]\n *n$6._x:int =n$7 [line 13]\n REMOVE_TEMPS(n$6,n$7); [line 13]\n NULLIFY(&self,false); [line 13]\n NULLIFY(&x,false); [line 13]\n APPLY_ABSTRACTION; [line 13]\n " shape="box"]
9 -> 8 ; 12 -> 11 ;
8 [label="8: Exit A_setX: \n " color=yellow style=filled] 11 [label="11: Exit A_setX: \n " color=yellow style=filled]
7 [label="7: Start A_setX:\nFormals: self:class A * x:int \nLocals: \n DECLARE_LOCALS(&return); [line -1]\n " color=yellow style=filled] 10 [label="10: Start A_setX: (generated)\nFormals: self:class A * x:int \nLocals: \n DECLARE_LOCALS(&return); [line 13]\n " color=yellow style=filled]
7 -> 9 ; 10 -> 12 ;
6 [label="6: Return Stmt \n n$2=*&self:class A * [line -1]\n n$3=*n$2._x:int [line -1]\n *&return:int =n$3 [line -1]\n REMOVE_TEMPS(n$2,n$3); [line -1]\n NULLIFY(&self,false); [line -1]\n APPLY_ABSTRACTION; [line -1]\n " shape="box"] 9 [label="9: Return Stmt \n n$4=*&self:class A * [line 13]\n n$5=*n$4._x:int [line 13]\n *&return:int =n$5 [line 13]\n REMOVE_TEMPS(n$4,n$5); [line 13]\n NULLIFY(&self,false); [line 13]\n APPLY_ABSTRACTION; [line 13]\n " shape="box"]
6 -> 5 ; 9 -> 8 ;
5 [label="5: Exit A_x \n " color=yellow style=filled] 8 [label="8: Exit A_x \n " color=yellow style=filled]
4 [label="4: Start A_x\nFormals: self:class A *\nLocals: \n DECLARE_LOCALS(&return); [line -1]\n " color=yellow style=filled] 7 [label="7: Start A_x (generated)\nFormals: self:class A *\nLocals: \n DECLARE_LOCALS(&return); [line 13]\n " color=yellow style=filled]
4 -> 6 ; 7 -> 9 ;
3 [label="3: Return Stmt \n n$1=*&target:class A * [line 19]\n n$0=_fun_A_x(n$1:class A *) virtual [line 19]\n *&return:int =n$0 [line 19]\n REMOVE_TEMPS(n$0,n$1); [line 19]\n NULLIFY(&target,false); [line 19]\n APPLY_ABSTRACTION; [line 19]\n " shape="box"] 3 [label="3: Return Stmt \n n$1=*&target:class A * [line 19]\n n$0=_fun_A_x(n$1:class A *) virtual [line 19]\n *&return:int =n$0 [line 19]\n REMOVE_TEMPS(n$0,n$1); [line 19]\n NULLIFY(&target,false); [line 19]\n APPLY_ABSTRACTION; [line 19]\n " shape="box"]

12
infer/tests/codetoanalyze/objc/frontend/property/aclass.dot
Unescape View File

@ -1,31 +1,31 @@
digraph iCFG { digraph iCFG {
8 [label="8: Message Call: retain \n n$8=*&aDynValue:class NSObject * [line -1]\n n$7=_fun___objc_retain(n$8:class NSObject *) [line -1]\n REMOVE_TEMPS(n$7,n$8); [line -1]\n " shape="box"] 8 [label="8: Message Call: retain \n n$8=*&aDynValue:class NSObject * [line 13]\n n$7=_fun___objc_retain(n$8:class NSObject *) [line 13]\n REMOVE_TEMPS(n$7,n$8); [line 13]\n " shape="box"]
8 -> 7 ; 8 -> 7 ;
7 [label="7: Message Call: release \n n$5=*&self:class AClass * [line 13]\n n$6=*n$5.aDynValue:class NSObject * [line -1]\n n$4=_fun___objc_release(n$6:class NSObject *) [line -1]\n REMOVE_TEMPS(n$4,n$5,n$6); [line -1]\n " shape="box"] 7 [label="7: Message Call: release \n n$5=*&self:class AClass * [line 13]\n n$6=*n$5._aDynValue:class NSObject * [line 13]\n n$4=_fun___objc_release(n$6:class NSObject *) [line 13]\n REMOVE_TEMPS(n$4,n$5,n$6); [line 13]\n " shape="box"]
7 -> 6 ; 7 -> 6 ;
6 [label="6: BinaryOperatorStmt: Assign \n n$2=*&self:class AClass * [line 13]\n n$3=*&aDynValue:class NSObject * [line 13]\n *n$2.aDynValue:class NSObject *=n$3 [line -1]\n REMOVE_TEMPS(n$2,n$3); [line -1]\n NULLIFY(&aDynValue,false); [line -1]\n NULLIFY(&self,false); [line -1]\n APPLY_ABSTRACTION; [line -1]\n " shape="box"] 6 [label="6: BinaryOperatorStmt: Assign \n n$2=*&self:class AClass * [line 13]\n n$3=*&aDynValue:class NSObject * [line 13]\n *n$2._aDynValue:class NSObject *=n$3 [line 13]\n REMOVE_TEMPS(n$2,n$3); [line 13]\n NULLIFY(&aDynValue,false); [line 13]\n NULLIFY(&self,false); [line 13]\n APPLY_ABSTRACTION; [line 13]\n " shape="box"]
6 -> 5 ; 6 -> 5 ;
5 [label="5: Exit AClass_setADynValue: \n " color=yellow style=filled] 5 [label="5: Exit AClass_setADynValue: \n " color=yellow style=filled]
4 [label="4: Start AClass_setADynValue:\nFormals: self:class AClass * aDynValue:class NSObject *\nLocals: \n DECLARE_LOCALS(&return); [line -1]\n " color=yellow style=filled] 4 [label="4: Start AClass_setADynValue: (generated)\nFormals: self:class AClass * aDynValue:class NSObject *\nLocals: \n DECLARE_LOCALS(&return); [line 13]\n " color=yellow style=filled]
4 -> 8 ; 4 -> 8 ;
3 [label="3: Return Stmt \n n$0=*&self:class AClass * [line -1]\n n$1=*n$0.aDynValue:class NSObject * [line -1]\n *&return:class NSObject *=n$1 [line -1]\n REMOVE_TEMPS(n$0,n$1); [line -1]\n NULLIFY(&self,false); [line -1]\n APPLY_ABSTRACTION; [line -1]\n " shape="box"] 3 [label="3: Return Stmt \n n$0=*&self:class AClass * [line 13]\n n$1=*n$0._aDynValue:class NSObject * [line 13]\n *&return:class NSObject *=n$1 [line 13]\n REMOVE_TEMPS(n$0,n$1); [line 13]\n NULLIFY(&self,false); [line 13]\n APPLY_ABSTRACTION; [line 13]\n " shape="box"]
3 -> 2 ; 3 -> 2 ;
2 [label="2: Exit AClass_aDynValue \n " color=yellow style=filled] 2 [label="2: Exit AClass_aDynValue \n " color=yellow style=filled]
1 [label="1: Start AClass_aDynValue\nFormals: self:class AClass *\nLocals: \n DECLARE_LOCALS(&return); [line -1]\n " color=yellow style=filled] 1 [label="1: Start AClass_aDynValue (generated)\nFormals: self:class AClass *\nLocals: \n DECLARE_LOCALS(&return); [line 13]\n " color=yellow style=filled]
1 -> 3 ; 1 -> 3 ;

2
infer/tests/codetoanalyze/objc/frontend/property_in_protocol/MyProtocol.h
Unescape View File

@ -7,7 +7,7 @@
* of patent rights can be found in the PATENTS file in the same directory. * of patent rights can be found in the PATENTS file in the same directory.
*/ */
#import <Foundation/Foundation.h> #import <Foundation/NSObject.h>
@protocol MyProtocol <NSObject> @protocol MyProtocol <NSObject>

24
infer/tests/codetoanalyze/objc/frontend/property_in_protocol/Test.dot
Unescape View File

@ -1,24 +0,0 @@
digraph iCFG {
6 [label="6: BinaryOperatorStmt: Assign \n n$2=*&self:class Test * [line 14]\n n$3=*&numberOfFiles:int [line 14]\n *n$2.numberOfFiles:int =n$3 [line -1]\n REMOVE_TEMPS(n$2,n$3); [line -1]\n NULLIFY(&numberOfFiles,false); [line -1]\n NULLIFY(&self,false); [line -1]\n APPLY_ABSTRACTION; [line -1]\n " shape="box"]
6 -> 5 ;
5 [label="5: Exit Test_setNumberOfFiles: \n " color=yellow style=filled]
4 [label="4: Start Test_setNumberOfFiles:\nFormals: self:class Test * numberOfFiles:int \nLocals: \n DECLARE_LOCALS(&return); [line -1]\n " color=yellow style=filled]
4 -> 6 ;
3 [label="3: Return Stmt \n n$0=*&self:class Test * [line -1]\n n$1=*n$0.numberOfFiles:int [line -1]\n *&return:int =n$1 [line -1]\n REMOVE_TEMPS(n$0,n$1); [line -1]\n NULLIFY(&self,false); [line -1]\n APPLY_ABSTRACTION; [line -1]\n " shape="box"]
3 -> 2 ;
2 [label="2: Exit Test_numberOfFiles \n " color=yellow style=filled]
1 [label="1: Start Test_numberOfFiles\nFormals: self:class Test *\nLocals: \n DECLARE_LOCALS(&return); [line -1]\n " color=yellow style=filled]
1 -> 3 ;
}

2
infer/tests/codetoanalyze/objc/frontend/property_in_protocol/Test.h
Unescape View File

@ -7,7 +7,7 @@
* of patent rights can be found in the PATENTS file in the same directory. * of patent rights can be found in the PATENTS file in the same directory.
*/ */
#import <Foundation/Foundation.h> #import <Foundation/NSObject.h>
#import "MyProtocol.h" #import "MyProtocol.h"
@interface Test : NSObject<MyProtocol> { @interface Test : NSObject<MyProtocol> {

8
infer/tests/endtoend/c/SentinelTest.java
Unescape View File

@ -1,6 +1,10 @@
/* /*
* Copyright (c) 2013- Facebook. * Copyright (c) 2013 - present Facebook, Inc.
* All rights reserved. * All rights reserved.
*
* This source code is licensed under the BSD style license found in the
* LICENSE file in the root directory of this source tree. An additional grant
* of patent rights can be found in the PATENTS file in the same directory.
*/ */
package endtoend.c; package endtoend.c;

Write Preview
Loading…
Cancel
Save