diff options
author | Yann Herklotz <git@yannherklotz.com> | 2021-04-07 01:11:04 +0100 |
---|---|---|
committer | Yann Herklotz <git@yannherklotz.com> | 2021-04-07 01:11:04 +0100 |
commit | 8573889ca84a84475761b4d75d55547a2995c831 (patch) | |
tree | cb1c78a976b0f03c9dbb46b521696bc4f90fa825 /src/hls/HTLgen.v | |
parent | 6b56454246620cc1a0cda6949c524e20264d1935 (diff) | |
download | vericert-kvx-8573889ca84a84475761b4d75d55547a2995c831.tar.gz vericert-kvx-8573889ca84a84475761b4d75d55547a2995c831.zip |
Basically done with proof
Diffstat (limited to 'src/hls/HTLgen.v')
-rw-r--r-- | src/hls/HTLgen.v | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/src/hls/HTLgen.v b/src/hls/HTLgen.v index b55d7a3..4d60a24 100644 --- a/src/hls/HTLgen.v +++ b/src/hls/HTLgen.v @@ -608,9 +608,10 @@ Definition transf_module (f: function) : mon HTL.module. do current_state <- get; match zle (Z.pos (max_pc_map current_state.(st_datapath))) Integers.Int.max_unsigned, zle (Z.pos (max_pc_map current_state.(st_controllogic))) Integers.Int.max_unsigned, - decide_order (st_st current_state) fin rtrn stack start rst clk + decide_order (st_st current_state) fin rtrn stack start rst clk, + max_list_dec (RTL.fn_params f) (st_st current_state) with - | left LEDATA, left LECTRL, left MORD => + | left LEDATA, left LECTRL, left MORD, left WFPARAMS => ret (HTL.mkmodule f.(RTL.fn_params) current_state.(st_datapath) @@ -629,8 +630,9 @@ Definition transf_module (f: function) : mon HTL.module. None (conj (max_pc_wf _ LECTRL) (max_pc_wf _ LEDATA)) MORD - _) - | _, _, _ => error (Errors.msg "More than 2^32 states.") + _ + WFPARAMS) + | _, _, _, _ => error (Errors.msg "More than 2^32 states.") end else error (Errors.msg "Stack size misalignment.")); discriminate. Defined. |