[threadsafety] Address issue arising from actuals and formals having different lengths at call sites (this time for ObjC).

Reviewed By: jberdine

Differential Revision: D6000682

fbshipit-source-id: 27f7ab7
master
Kyriakos Nikolaos Gkorogiannis 7 years ago committed by Facebook Github Bot
parent 4769c481ad
commit d179c4ccb5

@ -580,8 +580,9 @@ module TransferFunctions (CFG : ProcCfg.S) = struct
in in
let open Domain in let open Domain in
let formals, _ = FormalMap.make pdesc |> FormalMap.get_formals_indexes |> List.unzip in let formals, _ = FormalMap.make pdesc |> FormalMap.get_formals_indexes |> List.unzip in
let n = min (List.length formals) (List.length actuals) in
let fmls_actls = let fmls_actls =
List.zip_exn formals (List.take actuals (List.length formals)) List.zip_exn (List.take formals n) (List.take actuals n)
|> List.filter_map ~f:(fun (fml, act) -> |> List.filter_map ~f:(fun (fml, act) ->
match get_access_path act with Some path -> Some (fml, path) | _ -> None ) match get_access_path act with Some path -> Some (fml, path) | _ -> None )
in in

Loading…
Cancel
Save