diff options
| author | Yann Herklotz <git@yannherklotz.com> | 2021-09-18 14:40:45 +0100 |
|---|---|---|
| committer | Yann Herklotz <git@yannherklotz.com> | 2021-09-18 14:40:45 +0100 |
| commit | b666f88219893c82361606f8652297ecc7fb7a9f (patch) | |
| tree | 946c2ddb5ce21b7af24ce6945fe5f83cbb274061 /src/hls/HTLPargen.v | |
| parent | c4d44af5f3135aba4d4878f8f41c80d1f0b9e9a2 (diff) | |
| parent | c4436c02648502c4cb327d2018229e62a2c0d1c0 (diff) | |
| download | vericert-b666f88219893c82361606f8652297ecc7fb7a9f.tar.gz vericert-b666f88219893c82361606f8652297ecc7fb7a9f.zip | |
Merge branch 'master' into develop
Diffstat (limited to 'src/hls/HTLPargen.v')
| -rw-r--r-- | src/hls/HTLPargen.v | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/src/hls/HTLPargen.v b/src/hls/HTLPargen.v index 9746f92..40d1dcc 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))). -Admitted. +Abort. -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)). -Admitted. +Abort. Definition create_new_state (p: node): mon node := fun s => OK s.(st_freshstate) @@ -876,3 +876,4 @@ 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."). +*) |