let merge_call_froms table callsite froms =
try
let current = Kinstr.Hashtbl.find table callsite in
let new_froms = Function_Froms.join froms current in
Kinstr.Hashtbl.replace table callsite new_froms
with Not_found ->
Kinstr.Hashtbl.add table callsite froms