[inferbo] Fix inferbo error for ondemand paths of Java Collections

Reviewed By: mbouaziz, jvillard

Differential Revision: D14911655

fbshipit-source-id: 9f21876ed

infer/src/bufferoverrun/bufferOverrunOndemandEnv.ml

@@ -26,26 +26,29 @@ let mk pdesc =
     let rec typ_of_param_path = function
       | SPath.Pvar x ->
           FormalTyps.find_opt x formal_typs
-      | SPath.Deref (_, x) ->
-          Option.map (typ_of_param_path x) ~f:(fun typ ->
+      | SPath.Deref (_, x) -> (
+        match typ_of_param_path x with
+        | None ->
+            None
+        | Some typ -> (
           match typ.Typ.desc with
           | Tptr (typ, _) ->
-                  typ
+              Some typ
           | Tarray {elt} ->
-                  elt
+              Some elt
           | Tvoid ->
-                  Typ.void
+              Some Typ.void
           | Tstruct typename -> (
             match BufferOverrunTypModels.dispatch tenv typename with
             | Some (CArray {element_typ}) ->
-                    element_typ
+                Some element_typ
             | Some _ ->
-                    L.(die InternalError)
-                      "Deref of non-array modeled type `%a`" Typ.Name.pp typename
+                L.internal_error "Deref of non-array modeled type `%a`" Typ.Name.pp typename ;
+                None
             | None ->
                 L.(die InternalError) "Deref of unmodeled type `%a`" Typ.Name.pp typename )
           | _ ->
-                  L.(die InternalError) "Untyped expression is given." )
+              L.(die InternalError) "Untyped expression is given." ) )
       | SPath.Field (fn, x) -> (
         match BufferOverrunField.get_type fn with
         | None ->