dwarf-synthesis/DwarfSynth/Main.ml

open Std

let main ?no_rbp_undef:(no_rbp_undef=false) outfile proj =
  let pre_dwarf = proj
                  |> Simplest.of_proj no_rbp_undef
                  |> 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 []
Generate CFA tracking with RIP 2018-10-23 19:21:57 +02:00			`open Std`

Add flag to never go back to undefined rbp Once rbp has been set in the DWARF, if this flag is set, nothing will remove it from the table. This mimicks gcc and allows us to check easily our tables against theirs. 2019-04-04 11:52:47 +02:00			`let main ?no_rbp_undef:(no_rbp_undef=false) outfile proj =`
Ensure a crashing FDE still generates other FDEs 2019-03-27 16:35:54 +01:00			`let pre_dwarf = proj`
Add flag to never go back to undefined rbp Once rbp has been set in the DWARF, if this flag is set, nothing will remove it from the table. This mimicks gcc and allows us to check easily our tables against theirs. 2019-04-04 11:52:47 +02:00			`\|> Simplest.of_proj no_rbp_undef`
Ensure a crashing FDE still generates other FDEs 2019-03-27 16:35:54 +01:00			`\|> Simplest.clean_lost_track_subs in`
initial commit of ocaml->c wrappers. as bap linking is already complicated, two independent binaries communicate via a tmp.marshall file for now. 2018-12-30 19:10:51 +01:00			`Format.printf "%a" Frontend.pp_pre_dwarf_readelf pre_dwarf;`
ml_dwarf_write: write to a separate file Don't try to write into the ELF file directly, use objcopy. Updated README 2019-03-18 14:20:53 +01:00			`let pre_c_dwarf = PreCBinding.convert_pre_c pre_dwarf in`
			`let fd = open_out_bin outfile in`
initial commit of ocaml->c wrappers. as bap linking is already complicated, two independent binaries communicate via a tmp.marshall file for now. 2018-12-30 19:10:51 +01:00			`Marshal.to_channel fd pre_c_dwarf []`