diff options
Diffstat (limited to 'src/process_file.ml')
| -rw-r--r-- | src/process_file.ml | 10 |
1 files changed, 0 insertions, 10 deletions
diff --git a/src/process_file.ml b/src/process_file.ml index 4c70400c..344e5951 100644 --- a/src/process_file.ml +++ b/src/process_file.ml @@ -47,7 +47,6 @@ let opt_lem_mwords = ref false type out_type = | Lem_ast_out | Lem_out of string option - | Ocaml_out of string option let get_lexbuf f = let in_chan = open_in f in @@ -198,15 +197,6 @@ let output1 libpath out_arg filename defs = output_lem f' [] defs | Lem_out (Some lib) -> output_lem f' [lib] defs - | Ocaml_out None -> - let ((o,temp_file_name, _) as ext_o) = open_output_with_check_unformatted (f' ^ ".ml") in - begin Pretty_print.pp_defs_ocaml o defs (generated_line filename) ["Big_int_Z";"Sail_values"]; - close_output_with_check ext_o - end - | Ocaml_out (Some lib) -> - let ((o,temp_file_name, _) as ext_o) = open_output_with_check_unformatted (f' ^ ".ml") in - Pretty_print.pp_defs_ocaml o defs (generated_line filename) ["Big_int_Z"; "Sail_values"; lib]; - close_output_with_check ext_o let output libpath out_arg files = List.iter |