diff options
| author | Yann Herklotz <git@yannherklotz.com> | 2020-10-23 13:25:32 +0100 |
|---|---|---|
| committer | Yann Herklotz <git@yannherklotz.com> | 2020-10-23 13:25:32 +0100 |
| commit | 5cc780e10afa2851980fd3157644cccb1f528b1c (patch) | |
| tree | fb783ede65cf509436c8cdeaff120f15514a1bfe /src | |
| parent | e1b64efcb01015987763b94a21439ded9817b6b6 (diff) | |
| download | vericert-5cc780e10afa2851980fd3157644cccb1f528b1c.tar.gz vericert-5cc780e10afa2851980fd3157644cccb1f528b1c.zip | |
Add printing of intermediate rtlblock language
Diffstat (limited to 'src')
| -rw-r--r-- | src/Compiler.v | 6 | ||||
| -rw-r--r-- | src/VericertClflags.ml | 1 | ||||
| -rw-r--r-- | src/extraction/Extraction.v | 1 |
3 files changed, 7 insertions, 1 deletions
diff --git a/src/Compiler.v b/src/Compiler.v index cceb87d..ac5c664 100644 --- a/src/Compiler.v +++ b/src/Compiler.v @@ -60,6 +60,7 @@ From compcert Require Import Smallstep. Parameter print_RTL: Z -> RTL.program -> unit. Parameter print_HTL: HTL.program -> unit. +Parameter print_RTLBlock: RTLBlock.program -> unit. Definition print {A: Type} (printer: A -> unit) (prog: A) : A := let unused := printer prog in prog. @@ -110,9 +111,12 @@ Definition transf_hls_temp (p : Csyntax.program) : res Verilog.program := @@@ Cminorgen.transl_program @@@ Selection.sel_program @@@ RTLgen.transl_program - @@ Renumber.transf_program + @@@ Inlining.transf_program @@ print (print_RTL 0) + @@ Renumber.transf_program + @@ print (print_RTL 1) @@@ RTLBlockgen.transl_program + @@ print print_RTLBlock @@@ HTLSchedulegen.transl_program @@ print print_HTL @@ Veriloggen.transl_program. diff --git a/src/VericertClflags.ml b/src/VericertClflags.ml index ca591de..cbee31b 100644 --- a/src/VericertClflags.ml +++ b/src/VericertClflags.ml @@ -4,3 +4,4 @@ let option_hls = ref true let option_debug_hls = ref false let option_initial = ref false let option_dhtl = ref false +let option_drtlblock = ref false diff --git a/src/extraction/Extraction.v b/src/extraction/Extraction.v index f7131b0..d5cb9d7 100644 --- a/src/extraction/Extraction.v +++ b/src/extraction/Extraction.v @@ -134,6 +134,7 @@ Extract Constant Compiler.print_Clight => "PrintClight.print_if". Extract Constant Compiler.print_Cminor => "PrintCminor.print_if". Extract Constant driver.Compiler.print_RTL => "PrintRTL.print_if". Extract Constant Compiler.print_RTL => "PrintRTL.print_if". +Extract Constant Compiler.print_RTLBlock => "PrintRTLBlock.print_if". Extract Constant Compiler.print_HTL => "PrintHTL.print_if". Extract Constant Compiler.print_LTL => "PrintLTL.print_if". Extract Constant Compiler.print_Mach => "PrintMach.print_if". |