diff --git a/infer/src/backend/symExec.ml b/infer/src/backend/symExec.ml index d6c69332a..6eb68d14e 100644 --- a/infer/src/backend/symExec.ml +++ b/infer/src/backend/symExec.ml @@ -968,7 +968,7 @@ let add_constraints_on_retval tenv pdesc prop ret_exp ~has_nullable_annot typ ca else add_ret_non_null ret_exp typ prop let execute_load ?(report_deref_errors= true) pname pdesc tenv id rhs_exp typ loc prop_ = - let execute_load_ pdesc tenv id loc acc_in iter = + let execute_load_ acc_in iter = let iter_ren = Prop.prop_iter_make_id_primed tenv id iter in let prop_ren = Prop.prop_iter_to_prop tenv iter_ren in match Prop.prop_iter_current tenv iter_ren with @@ -1015,7 +1015,7 @@ let execute_load ?(report_deref_errors= true) pname pdesc tenv id rhs_exp typ lo let iter_list = Rearrange.rearrange ~report_deref_errors pdesc tenv n_rhs_exp' typ prop loc in - List.rev (List.fold ~f:(execute_load_ pdesc tenv id loc) ~init:[] iter_list) + List.rev (List.fold ~f:execute_load_ ~init:[] iter_list) with Exceptions.Symexec_memory_error _ -> (* This should normally be a real alarm and should not be caught but currently happens when the normalization drops hpreds of the form ident |-> footprint var. *) diff --git a/infer/src/backend/tabulation.ml b/infer/src/backend/tabulation.ml index 6a494d734..8ae5712d0 100644 --- a/infer/src/backend/tabulation.ml +++ b/infer/src/backend/tabulation.ml @@ -317,7 +317,7 @@ let check_dereferences tenv callee_pname actual_pre sub spec_pre formal_params = | None -> assert false else if (* Check if the dereferenced expr has the dangling uninitialized attribute. *) - (* In that case it raise a dangling pointer dereferece *) + (* In that case it raise a dangling pointer dereference *) Attribute.has_dangling_uninit tenv spec_pre e then Some (Deref_undef_exp, desc false (Localise.deref_str_dangling (Some PredSymb.DAuninit))) else if Exp.equal e_sub Exp.minus_one then