diff options
| author | Yann Herklotz <git@yannherklotz.com> | 2021-09-29 22:03:06 +0100 |
|---|---|---|
| committer | Yann Herklotz <git@yannherklotz.com> | 2021-09-29 22:03:06 +0100 |
| commit | 5d42b5fc8b24492f4457ccd541751db869fefc20 (patch) | |
| tree | db3b7aaf01b76cd55e9d490dcbf40ebec84508f9 /src/hls/HTLPargen.v | |
| parent | bb5695f5bcb9f3c3c7948c0f3a36da55ba5dcbcf (diff) | |
| parent | ab1e748f622f4345a3fc13ebbdbc8f223bd10e5c (diff) | |
| download | vericert-kvx-5d42b5fc8b24492f4457ccd541751db869fefc20.tar.gz vericert-kvx-5d42b5fc8b24492f4457ccd541751db869fefc20.zip | |
Merge remote-tracking branch 'origin/develop' into develop
Diffstat (limited to 'src/hls/HTLPargen.v')
| -rw-r--r-- | src/hls/HTLPargen.v | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/src/hls/HTLPargen.v b/src/hls/HTLPargen.v index 40d1dcc..9746f92 100644 --- a/src/hls/HTLPargen.v +++ b/src/hls/HTLPargen.v @@ -641,9 +641,9 @@ Definition add_control_instr_force_state_incr : s.(st_arrdecls) s.(st_datapath) (AssocMap.set n st s.(st_controllogic))). -Abort. +Admitted. -(*Definition add_control_instr_force (n : node) (st : stmnt) : mon unit := +Definition add_control_instr_force (n : node) (st : stmnt) : mon unit := fun s => OK tt (mkstate s.(st_st) @@ -708,7 +708,7 @@ Lemma create_new_state_state_incr: s.(st_arrdecls) s.(st_datapath) s.(st_controllogic)). -Abort. +Admitted. Definition create_new_state (p: node): mon node := fun s => OK s.(st_freshstate) @@ -876,4 +876,3 @@ Definition transl_program (p : RTLBlockInstr.program) : Errors.res HTL.program : if main_is_internal p then transform_partial_program transl_fundef p else Errors.Error (Errors.msg "Main function is not Internal."). -*) |