diff options
| author | Yann Herklotz <git@yannherklotz.com> | 2021-05-26 19:24:46 +0100 |
|---|---|---|
| committer | Yann Herklotz <git@yannherklotz.com> | 2021-05-26 19:24:46 +0100 |
| commit | cb82a024b748ccaa7d607741a21b3eb6e0e347ff (patch) | |
| tree | 239e8d91ce4b46cd9f69c1a8b17f739574b936ba /src/hls/HTLPargen.v | |
| parent | 69a61d57f53b56f4efa0c78054aad9fce56f0422 (diff) | |
| download | vericert-cb82a024b748ccaa7d607741a21b3eb6e0e347ff.tar.gz vericert-cb82a024b748ccaa7d607741a21b3eb6e0e347ff.zip | |
Change naturals to positive in predicates
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 7ce6c7a..9746f92 100644 --- a/src/hls/HTLPargen.v +++ b/src/hls/HTLPargen.v @@ -659,7 +659,7 @@ Definition add_control_instr_force (n : node) (st : stmnt) : mon unit := Fixpoint pred_expr (preg: reg) (p: pred_op) := match p with | Pvar pred => - Vrange preg (Vlit (natToValue pred)) (Vlit (natToValue pred)) + Vrange preg (Vlit (posToValue pred)) (Vlit (posToValue pred)) | Pnot pred => Vunop Vnot (pred_expr preg pred) | Pand p1 p2 => |