From 6ab6b6754b6c900297e71c6e26ee6a1084e44e7c Mon Sep 17 00:00:00 2001 From: Yann Herklotz Date: Tue, 16 Feb 2021 15:43:26 +0000 Subject: Add functional units and Sat --- src/hls/FunctionalUnits.v | 41 +++++++++++++++++++++++++++++++++++++++++ 1 file changed, 41 insertions(+) create mode 100644 src/hls/FunctionalUnits.v (limited to 'src/hls/FunctionalUnits.v') 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 + * + * 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 . + *) + +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. -- cgit