dwarf-synthesis/DwarfSynth/Frontend.ml

(** Frontend
    Clean printers, etc.
 *)

let pp_int64_hex ppx number =
  let mask_short = Int64.(pred (shift_left one 16)) in
  let pp_short number =
    Format.fprintf ppx "%04x" Int64.(to_int (logand number mask_short))
  in
  List.iter pp_short @@ List.map (fun x ->
      Int64.(shift_right number (16*x))) [3;2;1;0]

let pp_cfa_change ppx addr pos = Simplest.(
    let num_len num =
      let str_rep = Format.sprintf "%+d" num in
      String.length str_rep
    in
    let print_row cfa_reg int64_offset =
      let offset = Int64.to_int int64_offset in
      let post_offset_spaces = String.make (6 - num_len offset) ' ' in
      Format.fprintf ppx "%a %s%+d%sc-8@."
        pp_int64_hex addr cfa_reg offset post_offset_spaces
    in

    match pos with
    | RspOffset offset ->
      print_row "rsp" offset
    | RbpOffset offset ->
      print_row "rbp" offset
    | CfaLostTrack ->
      Format.fprintf ppx "%a u        u@." pp_int64_hex addr
  )

let pp_pre_dwarf_readelf ppx pre_dwarf =
  Simplest.StrMap.iter (fun fde_name entry ->
      Format.fprintf ppx "FDE %s@." fde_name ;
      if not (Simplest.AddrMap.is_empty entry) then (
         Format.fprintf ppx "   LOC           CFA      ra@." ;
         Simplest.AddrMap.iter (pp_cfa_change ppx) entry ;
         Format.fprintf ppx "@.")
    )
    pre_dwarf