diff options
author | Yann Herklotz <git@yannherklotz.com> | 2021-11-11 12:29:27 +0000 |
---|---|---|
committer | Yann Herklotz <git@yannherklotz.com> | 2021-11-11 12:29:27 +0000 |
commit | 8909d8e8f49cecc1eda24dab8578186f96563d0b (patch) | |
tree | 136a0ff1a812ee7258619a5f5d62ef809565fcc5 /src | |
parent | 4c001e85fcfea8a9dfbd636d532b5a1970cabb8d (diff) | |
download | vericert-8909d8e8f49cecc1eda24dab8578186f96563d0b.tar.gz vericert-8909d8e8f49cecc1eda24dab8578186f96563d0b.zip |
Fix the scheduler to not remove dead code
Diffstat (limited to 'src')
-rw-r--r-- | src/hls/Schedule.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/hls/Schedule.ml b/src/hls/Schedule.ml index dd3e39f..c5443c7 100644 --- a/src/hls/Schedule.ml +++ b/src/hls/Schedule.ml @@ -828,6 +828,6 @@ let schedule_fn (f : RTLBlock.coq_function) : RTLPar.coq_function = { fn_sig = f.fn_sig; fn_params = f.fn_params; fn_stacksize = f.fn_stacksize; - fn_code = List.fold_left (add_to_tree scheduled) PTree.empty reachable; + fn_code = scheduled (*List.fold_left (add_to_tree scheduled) PTree.empty reachable*); fn_entrypoint = f.fn_entrypoint } |