sig val iter : ((Cil_types.kinstr -> Function_Froms.t -> unit) -> unit) Pervasives.ref val find : (Cil_types.kinstr -> Function_Froms.t) Pervasives.ref end