diff options
author | Yann Herklotz <git@yannherklotz.com> | 2021-03-01 11:05:12 +0000 |
---|---|---|
committer | Yann Herklotz <git@yannherklotz.com> | 2021-03-01 11:05:12 +0000 |
commit | 975a5fb0c11af6e8db3f250322794c0712f4af90 (patch) | |
tree | 700cb068388ba30685c099f593dbd0bbcca29204 /src/hls/HTLPargen.v | |
parent | 5ba31274207ba24a15682f1aec9ad9e0f50e08ee (diff) | |
download | vericert-kvx-975a5fb0c11af6e8db3f250322794c0712f4af90.tar.gz vericert-kvx-975a5fb0c11af6e8db3f250322794c0712f4af90.zip |
Change lists in case statements to stmnt_list
Diffstat (limited to 'src/hls/HTLPargen.v')
-rw-r--r-- | src/hls/HTLPargen.v | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/hls/HTLPargen.v b/src/hls/HTLPargen.v index 9213514..618c5e6 100644 --- a/src/hls/HTLPargen.v +++ b/src/hls/HTLPargen.v @@ -758,7 +758,7 @@ Fixpoint translate_cfi' (fin rtrn stack preg: reg) (cfi: cf_instr) ret ((Vcond (pred_expr preg p) tc1s tc2s), (Vcond (pred_expr preg p) tc1c tc2c)) | RBjumptable r tbl => do s <- get; - ret (Vskip, Vcase (Vvar r) (tbl_to_case_expr s.(st_st) tbl) (Some Vskip)) + ret (Vskip, Vcase (Vvar r) (list_to_stmnt (tbl_to_case_expr s.(st_st) tbl)) (Some Vskip)) | RBcall sig ri rl r n => error (Errors.msg "HTLPargen: RPcall not supported.") | RBtailcall sig ri lr => |