Source file maxIdUtil.ml

(** Tracking of maximum CIL IDs in use. *)

open GoblintCil

type max_ids = {
  max_sid: int;
  max_vid: int;
}

let update_id_max (id_max : int ref) id =
  if id > !id_max then id_max := id

let update_sids sid_max (glob: global) = match glob with
  | GFun (fn, loc) -> List.iter (fun s -> update_id_max sid_max s.sid) fn.sallstmts
  | _ -> ()

let update_vids vid_max (glob: global) = match glob with
  | GFun (fn, loc) -> update_id_max vid_max fn.svar.vid; List.iter (List.iter (fun v -> update_id_max vid_max v.vid)) [fn.slocals; fn.sformals]
  | GVar (v,_,_) -> update_id_max vid_max v.vid
  | GVarDecl (v,_) -> update_id_max vid_max v.vid
  | _ -> ()

let update_max_ids ~sid_max ~vid_max (glob: global) =
  update_sids sid_max glob;
  update_vids vid_max glob

(** Obtains the maximum sid and vid from a Cil.file *)
let get_file_max_ids (new_file: Cil.file) =
  let sid_max = ref 0 in
  let vid_max = ref 0 in
  Cil.iterGlobals new_file (fun g -> update_max_ids ~sid_max ~vid_max g);
  {max_sid = !sid_max; max_vid = !vid_max}