diff options
author | Yann Herklotz <git@yannherklotz.com> | 2021-02-16 15:43:26 +0000 |
---|---|---|
committer | Yann Herklotz <git@yannherklotz.com> | 2021-02-16 15:50:09 +0000 |
commit | 6ab6b6754b6c900297e71c6e26ee6a1084e44e7c (patch) | |
tree | dea5a9fd892ccb771177d631ca2b3b8895764374 /src/hls/FunctionalUnits.v | |
parent | 5f1e7aa8fbc4a0e04d0b137410c13f3d8da4d987 (diff) | |
download | vericert-kvx-6ab6b6754b6c900297e71c6e26ee6a1084e44e7c.tar.gz vericert-kvx-6ab6b6754b6c900297e71c6e26ee6a1084e44e7c.zip |
Add functional units and Sat
Diffstat (limited to 'src/hls/FunctionalUnits.v')
-rw-r--r-- | src/hls/FunctionalUnits.v | 41 |
1 files changed, 41 insertions, 0 deletions
diff --git a/src/hls/FunctionalUnits.v b/src/hls/FunctionalUnits.v new file mode 100644 index 0000000..019cf15 --- /dev/null +++ b/src/hls/FunctionalUnits.v @@ -0,0 +1,41 @@ +(* + * Vericert: Verified high-level synthesis. + * Copyright (C) 2021 Yann Herklotz <yann@yannherklotz.com> + * + * This program is free software: you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation, either version 3 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program. If not, see <https://www.gnu.org/licenses/>. + *) + +Require Import compcert.backend.Registers. +Require Import compcert.lib.Maps. + +Require Import vericert.common.Vericertlib. + +Inductive funct_unit: Type := +| SignedDiv (size: positive) (numer denom quot rem: reg): funct_unit +| UnsignedDiv (size: positive) (numer denom quot rem: reg): funct_unit. + +Record funct_units := mk_avail_funct_units { + avail_sdiv: option positive; + avail_udiv: option positive; + avail_units: PTree.t funct_unit; + }. + +Definition initial_funct_units := + mk_avail_funct_units None None (PTree.empty funct_unit). + +Definition funct_unit_stages (f: funct_unit) : positive := + match f with + | SignedDiv s _ _ _ _ => s + | UnsignedDiv s _ _ _ _ => s + end. |