(* copy here as quick hack / restructure the file directory *)

type pre_c_pre_dwarf_entry = {
  location: int64;
  cfa_offset: int64;
  cfa_offset_reg: int
}

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 -> pre_c_pre_dwarf -> int = "caml_write_dwarf" 

(* use: ml_dwarf_write <marshalled_data> <executable> *)
                                                        
let _ =
  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) pre_c_dwarf