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-b4aa578616acaab35e8c5c8ca7f58cc971d0baf5.tar.gz vericert-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' => |