diff options
author | Michalis Pardalos <m.pardalos@gmail.com> | 2021-09-02 21:20:13 +0100 |
---|---|---|
committer | Michalis Pardalos <m.pardalos@gmail.com> | 2021-09-03 13:13:57 +0100 |
commit | 5c7c33f6651114ffc2904b242d78bb892f644e41 (patch) | |
tree | f9f2f99f7a048039811903c088e068d06829c3bf /src/hls/HTLgen.v | |
parent | c897f10b61700fce4977ea5a3726c0f497732781 (diff) | |
download | vericert-5c7c33f6651114ffc2904b242d78bb892f644e41.tar.gz vericert-5c7c33f6651114ffc2904b242d78bb892f644e41.zip |
Fix error in map_externctrl
Diffstat (limited to 'src/hls/HTLgen.v')
-rw-r--r-- | src/hls/HTLgen.v | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/hls/HTLgen.v b/src/hls/HTLgen.v index d05b93c..39146ff 100644 --- a/src/hls/HTLgen.v +++ b/src/hls/HTLgen.v @@ -204,7 +204,7 @@ Definition map_externctrl (othermod : ident) (ctrl : controlsignal) : mon reg. fun s => match check_unmapped_externctrl s (st_freshreg s) with | left CTRL => OK (st_freshreg s) (mkstate (st_st s) - (st_freshreg s) + (Pos.succ (st_freshreg s)) (st_freshstate s) (st_scldecls s) (st_arrdecls s) |