diff options
| author | Yann Herklotz <git@yannherklotz.com> | 2021-05-21 18:28:58 +0100 |
|---|---|---|
| committer | Yann Herklotz <git@yannherklotz.com> | 2021-05-21 18:28:58 +0100 |
| commit | e1d0762daf0dd4d8f826decaa4c0498c75aa9119 (patch) | |
| tree | 14f247eac741b3d7ba3ea6f1b0e7f213e7891162 /src/hls/RTLPargen.v | |
| parent | 51d25ab7feeaca959d35fbd4fa905f8ce003e07b (diff) | |
| download | vericert-e1d0762daf0dd4d8f826decaa4c0498c75aa9119.tar.gz vericert-e1d0762daf0dd4d8f826decaa4c0498c75aa9119.zip | |
Finish top-level of proof
Diffstat (limited to 'src/hls/RTLPargen.v')
| -rw-r--r-- | src/hls/RTLPargen.v | 10 |
1 files changed, 1 insertions, 9 deletions
diff --git a/src/hls/RTLPargen.v b/src/hls/RTLPargen.v index a8da344..be57e7f 100644 --- a/src/hls/RTLPargen.v +++ b/src/hls/RTLPargen.v @@ -1354,15 +1354,7 @@ Definition transl_function (f: RTLBlock.function) : Errors.res RTLPar.function : else Errors.Error (Errors.msg "RTLPargen: Could not prove the blocks equivalent."). -Definition transl_function_temp (f: RTLBlock.function) : Errors.res RTLPar.function := - let tfcode := fn_code (schedule f) in - Errors.OK (mkfunction f.(fn_sig) - f.(fn_params) - f.(fn_stacksize) - tfcode - f.(fn_entrypoint)). - -Definition transl_fundef := transf_partial_fundef transl_function_temp. +Definition transl_fundef := transf_partial_fundef transl_function. Definition transl_program (p : RTLBlock.program) : Errors.res RTLPar.program := transform_partial_program transl_fundef p. |