open Ir open Parser open Nemo open Printer let () = if Array.length Sys.argv < 2 then begin Printf.eprintf "Usage: %s \n" Sys.argv.(0); exit 1 end; let path = Sys.argv.(1) in let f = parse_func_from_file path in let f' = mem2reg f in Printf.printf "Before (mem2reg input):\n"; print_func f; Printf.printf "\nAfter (SSA):\n"; print_func f'