diff options
| author | Yann Herklotz <git@yannherklotz.com> | 2020-08-13 16:40:26 +0100 |
|---|---|---|
| committer | Yann Herklotz <git@yannherklotz.com> | 2020-08-13 16:41:48 +0100 |
| commit | b4aa578616acaab35e8c5c8ca7f58cc971d0baf5 (patch) | |
| tree | ebff45c35639d74fd4e0ccac5be17995d429630e /src/translation/HTLgen.v | |
| parent | 8e0838b04a76f64342b570e22a1c0447c85ecd64 (diff) | |
| download | vericert-kvx-b4aa578616acaab35e8c5c8ca7f58cc971d0baf5.tar.gz vericert-kvx-b4aa578616acaab35e8c5c8ca7f58cc971d0baf5.zip | |
Finished all the proofsv1.0.0
Removed support for case statements temporarily.
Diffstat (limited to 'src/translation/HTLgen.v')
| -rw-r--r-- | src/translation/HTLgen.v | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/translation/HTLgen.v b/src/translation/HTLgen.v index 87a6de6..68e0293 100644 --- a/src/translation/HTLgen.v +++ b/src/translation/HTLgen.v @@ -478,8 +478,9 @@ Definition transf_instr (fin rtrn stack: reg) (ni: node * instruction) : mon uni add_branch_instr e n n1 n2 else error (Errors.msg "State is larger than 2^32.") | Ijumptable r tbl => - do s <- get; - add_node_skip n (Vcase (Vvar r) (tbl_to_case_expr s.(st_st) tbl) (Some Vskip)) + (*do s <- get; + add_node_skip n (Vcase (Vvar r) (tbl_to_case_expr s.(st_st) tbl) (Some Vskip))*) + error (Errors.msg "Ijumptable: Case statement not supported.") | Ireturn r => match r with | Some r' => |