[infer][biabduction] Minor simplification of the load symbolic execution code

Summary: Cleanup

Reviewed By: mbouaziz

Differential Revision: D5873159

fbshipit-source-id: 30ee521

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. *)

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