dwarf-synthesis/DwarfSynth/c_bindings/ml_dwarf_write.ml

61 lines
1.6 KiB
OCaml
Raw Normal View History

(* copy here as quick hack / restructure the file directory *)
type pre_c_pre_dwarf_entry = {
location: int64;
cfa_offset: int64;
2019-04-01 18:51:06 +02:00
cfa_offset_reg: int;
rbp_defined: bool;
rbp_offset: int64 (* Assumed to be offset of CFA *)
}
type pre_c_pre_dwarf_fde = {
num: int;
initial_location: int64;
end_location: int64;
name: string;
entries: pre_c_pre_dwarf_entry array
}
type pre_c_pre_dwarf = {
num_fde: int;
fdes: pre_c_pre_dwarf_fde array
}
let dump_pre_c_pre_dwarf_entry e =
Printf.printf " %8Lx %d+%Ld \n" e.location e.cfa_offset_reg e.cfa_offset
let dump_pre_c_pre_dwarf_fde f =
Printf.printf "%s %Lx %Lx\n" f.name f.initial_location f.end_location;
for i = 0 to Array.length f.entries - 1 do
dump_pre_c_pre_dwarf_entry f.entries.(i)
done
let dump_pre_c_pre_dwarf p =
for i = 0 to Array.length p.fdes - 1 do
dump_pre_c_pre_dwarf_fde p.fdes.(i)
done
external write_dwarf : string -> string -> pre_c_pre_dwarf -> int
= "caml_write_dwarf"
(** ========== USAGE ========== **)
let use_string =
Sys.argv.(0) ^ " <marshalled_data> <executable> [<eh_file>]\n" ^
"<eh_file> defaults to `<executable>.eh_frame`\n" ;;
let _ =
if Array.length Sys.argv <= 2 then (
Format.eprintf "Error: missing argument(s). Usage:\n%s" use_string ;
exit 1
) ;
let eh_path = (if Array.length Sys.argv <= 3
then (Sys.argv.(2) ^ ".eh_frame")
else Sys.argv.(3)) in
let fd = open_in_bin Sys.argv.(1) in
let pre_c_dwarf = ((Marshal.from_channel fd): pre_c_pre_dwarf) in
dump_pre_c_pre_dwarf pre_c_dwarf;
write_dwarf Sys.argv.(2) eh_path pre_c_dwarf