diff options
author | Michalis Pardalos <m.pardalos@gmail.com> | 2021-08-31 13:05:20 +0100 |
---|---|---|
committer | Michalis Pardalos <m.pardalos@gmail.com> | 2021-08-31 13:56:56 +0100 |
commit | 4139d0f8772d20d2836be2ab34a18b5ce580590b (patch) | |
tree | 7383dc4009a91506c6431d1d9c5c72273c7d02c8 /src/hls/ApplyExternctrl.v | |
parent | ea48228b89194d7904133983f44807289a93f040 (diff) | |
download | vericert-4139d0f8772d20d2836be2ab34a18b5ce580590b.tar.gz vericert-4139d0f8772d20d2836be2ab34a18b5ce580590b.zip |
Get Renaming compiling with RAM inference
Diffstat (limited to 'src/hls/ApplyExternctrl.v')
-rw-r--r-- | src/hls/ApplyExternctrl.v | 14 |
1 files changed, 0 insertions, 14 deletions
diff --git a/src/hls/ApplyExternctrl.v b/src/hls/ApplyExternctrl.v index ef056cf..bd48adb 100644 --- a/src/hls/ApplyExternctrl.v +++ b/src/hls/ApplyExternctrl.v @@ -142,20 +142,6 @@ Section APPLY_EXTERNCTRL. do l <- xassocmap_apply_externctrl (AssocMap.elements regmap); OK (AssocMap_Properties.of_list l). - Definition option_ram_wf (clk : reg) (mr : option HTL.ram) : - option (forall r' : ram, mr = Some r' -> (clk < ram_addr r')%positive). - refine ( - match mr with - | Some r => - match (plt clk (ram_addr r)) with - | left LE => Some _ - | _ => None - end - | None => None - end). - crush. - Defined. - Definition module_apply_externctrl : res HTL.module := do mod_start' <- reg_apply_externctrl (HTL.mod_start m); do mod_reset' <- reg_apply_externctrl (HTL.mod_reset m); |