diff options
| author | Christopher | 2015-12-09 17:16:02 +0000 |
|---|---|---|
| committer | Christopher | 2015-12-09 17:16:02 +0000 |
| commit | c78d27967766480138599da36f2f3bb20f7a01c9 (patch) | |
| tree | ad8420407f9cd63ef1989083c47000c9f4e34a8a /src/process_file.ml | |
| parent | 3c709c896023b5952e5481311307ddecccfad83c (diff) | |
adapted for Kathy's lexp effect typing changes: register writes should be correct now, fixes, pp
Diffstat (limited to 'src/process_file.ml')
| -rw-r--r-- | src/process_file.ml | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/process_file.ml b/src/process_file.ml index 1a776cff..8dd6fd46 100644 --- a/src/process_file.ml +++ b/src/process_file.ml @@ -177,7 +177,8 @@ let output1 libpath out_arg filename defs (* alldoc_accum alldoc_inc_accum alldo open_output_with_check_unformatted ("arch.lem") in let ((o2,_, _) as ext_o2) = open_output_with_check_unformatted (f' ^ "embed.lem") in - Pretty_print.pp_defs_lem o1 o2 defs (generated_line filename) ["Sail_values"]; + (Pretty_print.pp_defs_lem o1 o2 defs (generated_line filename)) + ["Pervasives";"Vector";"State";"Arch";"Sail_values";"Power_extras"]; close_output_with_check ext_o1; close_output_with_check ext_o2 | Lem_out (Some lib) -> @@ -185,7 +186,8 @@ let output1 libpath out_arg filename defs (* alldoc_accum alldoc_inc_accum alldo open_output_with_check_unformatted ("arch.lem") in let ((o2,_, _) as ext_o2) = open_output_with_check_unformatted (f' ^ "embed.lem") in - Pretty_print.pp_defs_lem o1 o2 defs (generated_line filename) ["Sail_values"; lib]; + (Pretty_print.pp_defs_lem o1 o2 defs (generated_line filename)) + ["Pervasives";"Vector";"State";"Arch";"Sail_values";"Power_extras"; lib]; close_output_with_check ext_o1; close_output_with_check ext_o2 | Ocaml_out None -> |