From f8ff27915f8c4d5fb6f31ec2a0a73f65cf604c43 Mon Sep 17 00:00:00 2001
From: Yann Herklotz <git@yannherklotz.com>
Date: Tue, 30 Jun 2020 19:52:59 +0100
Subject: Add htl pretty printing

---
 src/Compiler.v | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'src/Compiler.v')

diff --git a/src/Compiler.v b/src/Compiler.v
index 98ef429..a34b359 100644
--- a/src/Compiler.v
+++ b/src/Compiler.v
@@ -51,6 +51,7 @@ From coqup Require
      HTLgen.
 
 Parameter print_RTL: Z -> RTL.program -> unit.
+Parameter print_HTL: HTL.program -> unit.
 
 Definition print {A: Type} (printer: A -> unit) (prog: A) : A :=
   let unused := printer prog in prog.
@@ -79,6 +80,7 @@ Definition transf_backend (r : RTL.program) : res Verilog.program :=
   @@@ Inlining.transf_program
   @@ print (print_RTL 1)
   @@@ HTLgen.transl_program
+  @@ print print_HTL
   @@ Veriloggen.transl_program.
 
 Definition transf_frontend (p: Csyntax.program) : res RTL.program :=
-- 
cgit