diff options
author | Yann Herklotz <git@yannherklotz.com> | 2021-10-01 14:16:31 +0100 |
---|---|---|
committer | Yann Herklotz <git@yannherklotz.com> | 2021-10-01 14:16:31 +0100 |
commit | 23c700b5fb35fb00d994cb66e4597fe8ea0b28e1 (patch) | |
tree | 8e5723152c11fd693aaa062adc27ad741d1701a0 /src/hls | |
parent | c5003f6f33c2f54e16f03773b49f93f33643d0c9 (diff) | |
download | vericert-23c700b5fb35fb00d994cb66e4597fe8ea0b28e1.tar.gz vericert-23c700b5fb35fb00d994cb66e4597fe8ea0b28e1.zip |
Fix compilation of new intermediate languages
Diffstat (limited to 'src/hls')
-rw-r--r-- | src/hls/PrintHTL.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/hls/PrintHTL.ml b/src/hls/PrintHTL.ml index a75d0ee..5963be0 100644 --- a/src/hls/PrintHTL.ml +++ b/src/hls/PrintHTL.ml @@ -71,10 +71,10 @@ let print_program pp prog = let destination : string option ref = ref None -let print_if prog = +let print_if passno prog = match !destination with | None -> () | Some f -> - let oc = open_out f in + let oc = open_out (f ^ "." ^ Z.to_string passno) in print_program oc prog; close_out oc |