diff options
| author | Yann Herklotz <git@yannherklotz.com> | 2020-03-31 10:45:13 +0100 |
|---|---|---|
| committer | Yann Herklotz <git@yannherklotz.com> | 2020-03-31 10:45:13 +0100 |
| commit | 0695114f5f1b758177d2e43989be5432710db6a5 (patch) | |
| tree | c9a752e1340c08df32735b349ac507ed131ae682 /src/verilog/Verilog.v | |
| parent | 436daa0e4b0d7929a02715fe8acc9a0fa9dcaf9e (diff) | |
| download | vericert-kvx-0695114f5f1b758177d2e43989be5432710db6a5.tar.gz vericert-kvx-0695114f5f1b758177d2e43989be5432710db6a5.zip | |
Improve Verilog error messages
Diffstat (limited to 'src/verilog/Verilog.v')
| -rw-r--r-- | src/verilog/Verilog.v | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/verilog/Verilog.v b/src/verilog/Verilog.v index 225d35d..09eb914 100644 --- a/src/verilog/Verilog.v +++ b/src/verilog/Verilog.v @@ -43,7 +43,10 @@ Definition posToValue (p : positive) : value := mkvalue size (Word.posToWord size p). Definition intToValue (i : Integers.int) : value := - mkvalue 32%nat (Word.natToWord 32%nat (Z.to_nat (Integers.Int.unsigned i))). + mkvalue 32%nat (Word.ZToWord 32%nat (Integers.Int.unsigned i)). + +Definition valueToZ (v : value) : Z := + Word.uwordToZ v.(vword). Definition state : Type := PositiveMap.t value * PositiveMap.t value. |