diff options
| author | Yann Herklotz <git@yannherklotz.com> | 2023-07-06 18:43:34 +0100 |
|---|---|---|
| committer | Yann Herklotz <git@yannherklotz.com> | 2023-07-06 18:43:34 +0100 |
| commit | 6cdb6490437b9e609afbf5e8749b24d31c02fce1 (patch) | |
| tree | 00b2acbb5f2fb17d5a0ffb3983c5e2b022db5802 /src/Compiler.v | |
| parent | 6ae44229dedb893410bd9cec34a9435f9c233f40 (diff) | |
| download | vericert-6cdb6490437b9e609afbf5e8749b24d31c02fce1.tar.gz vericert-6cdb6490437b9e609afbf5e8749b24d31c02fce1.zip | |
Add if-conversion decision procedure
Diffstat (limited to 'src/Compiler.v')
| -rw-r--r-- | src/Compiler.v | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/src/Compiler.v b/src/Compiler.v index 2fb909e..49464c0 100644 --- a/src/Compiler.v +++ b/src/Compiler.v @@ -280,10 +280,15 @@ Definition transf_hls_temp (p : Csyntax.program) : res Verilog.program := @@ print (print_GibleSeq 0) @@ total_if HLSOpts.optim_if_conversion CondElim.transf_program @@ print (print_GibleSeq 1) - @@ total_if HLSOpts.optim_if_conversion (fold_left (fun a b => IfConversion.transf_program b a) (PTree.empty _ :: PTree.empty _ :: nil)) + (* @@ total_if HLSOpts.optim_if_conversion (fold_left (fun a b => IfConversion.transf_program b a) (PTree.empty _ :: PTree.empty _ :: nil)) *) + @@ total_if HLSOpts.optim_if_conversion (IfConversion.transf_program (PTree.empty _)) @@ print (print_GibleSeq 2) - @@@ DeadBlocks.transf_program + @@ total_if HLSOpts.optim_if_conversion (IfConversion.transf_program (PTree.empty _)) @@ print (print_GibleSeq 3) + @@ total_if HLSOpts.optim_if_conversion (IfConversion.transf_program (PTree.empty _)) + @@ print (print_GibleSeq 4) + @@@ DeadBlocks.transf_program + @@ print (print_GibleSeq 5) @@@ GiblePargen.transl_program @@ print (print_GiblePar 0) @@@ HTLPargen.transl_program |