diff options
author | Yann Herklotz <git@yannherklotz.com> | 2020-07-03 18:47:56 +0100 |
---|---|---|
committer | Yann Herklotz <git@yannherklotz.com> | 2020-07-03 18:47:56 +0100 |
commit | b5144a6f513c5c6e3344dcc935117706637ddd3f (patch) | |
tree | 34bf07611d40da221c3023c0b24a82ec71e5cad3 /src/translation | |
parent | 2fa04589bc1e2404235e95ca272fc403c7234fa4 (diff) | |
download | vericert-b5144a6f513c5c6e3344dcc935117706637ddd3f.tar.gz vericert-b5144a6f513c5c6e3344dcc935117706637ddd3f.zip |
Add new value type to fix Iop proof
Diffstat (limited to 'src/translation')
-rw-r--r-- | src/translation/HTLgen.v | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/translation/HTLgen.v b/src/translation/HTLgen.v index a2b77e6..f58c9ae 100644 --- a/src/translation/HTLgen.v +++ b/src/translation/HTLgen.v @@ -19,7 +19,7 @@ From compcert Require Import Maps. From compcert Require Errors Globalenvs Integers. From compcert Require Import AST RTL. -From coqup Require Import Verilog HTL Coquplib AssocMap Value Statemonad. +From coqup Require Import Verilog HTL Coquplib AssocMap ValueInt Statemonad. Hint Resolve AssocMap.gempty : htlh. Hint Resolve AssocMap.gso : htlh. @@ -88,7 +88,7 @@ Import HTLMonadExtra. Export MonadNotation. Definition state_goto (st : reg) (n : node) : stmnt := - Vnonblock (Vvar st) (Vlit (posToValue 32 n)). + Vnonblock (Vvar st) (Vlit (posToValue n)). Definition state_cond (st : reg) (c : expr) (n1 n2 : node) : stmnt := Vnonblock (Vvar st) (Vternary c (posToExpr 32 n1) (posToExpr 32 n2)). |