From 5c7c33f6651114ffc2904b242d78bb892f644e41 Mon Sep 17 00:00:00 2001 From: Michalis Pardalos Date: Thu, 2 Sep 2021 21:20:13 +0100 Subject: Fix error in map_externctrl --- src/hls/HTLgen.v | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/hls') 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) -- cgit