dwarf-synthesis/DwarfSynth/Main.ml

11 lines
345 B
OCaml
Raw Normal View History

2018-10-23 19:21:57 +02:00
open Std
let main outfile proj =
let pre_dwarf = proj
|> Simplest.of_proj
|> Simplest.clean_lost_track_subs in
Format.printf "%a" Frontend.pp_pre_dwarf_readelf pre_dwarf;
let pre_c_dwarf = PreCBinding.convert_pre_c pre_dwarf in
let fd = open_out_bin outfile in
Marshal.to_channel fd pre_c_dwarf []