diff options
author | Yann Herklotz <git@yannherklotz.com> | 2021-02-12 14:31:44 +0000 |
---|---|---|
committer | Yann Herklotz <git@yannherklotz.com> | 2021-02-12 14:31:44 +0000 |
commit | 23c4e482cad3aff97391f32b51993b053d6aa4db (patch) | |
tree | 77c75a39c41ca1bcfca1850c894485bf79f2f8f6 /src/hls/RTLPargen.v | |
parent | 8d5047ca436ba42e9253d24d6b5b2c0c62dd7437 (diff) | |
download | vericert-23c4e482cad3aff97391f32b51993b053d6aa4db.tar.gz vericert-23c4e482cad3aff97391f32b51993b053d6aa4db.zip |
Add temporary fixes to get everything to compile
Diffstat (limited to 'src/hls/RTLPargen.v')
-rw-r--r-- | src/hls/RTLPargen.v | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/src/hls/RTLPargen.v b/src/hls/RTLPargen.v index 8ff701f..39c57df 100644 --- a/src/hls/RTLPargen.v +++ b/src/hls/RTLPargen.v @@ -683,7 +683,15 @@ Definition transl_function (f: RTLBlock.function) : Errors.res RTLPar.function : else Errors.Error (Errors.msg "RTLPargen: Could not prove the blocks equivalent."). -Definition transl_fundef := transf_partial_fundef transl_function. +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_program (p : RTLBlock.program) : Errors.res RTLPar.program := transform_partial_program transl_fundef p. |