jeltz/heptagon
1
0
Fork 0
Code Issues Pull requests Releases Activity

Output MiniLS code before clocking when in verbose mode.

Browse source
This commit is contained in:
Adrien Guatto 2010-07-21 17:24:18 +02:00
parent b1944cf752
commit 7f91ffab53
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
compiler/main/heptc.ml
View file

@ -53,12 +53,13 @@ let compile_impl modname filename =
let pp = Mls_printer.print stdout in
comment "Translation into MiniLs";
Mls_printer.print mlsc p;
if !Misc.verbose then pp p;
(* Process the MiniLS AST *)
let p = Mls_compiler.compile pp p in
(* Generate the sequential code *)
Mls2seq.program p;
(* Generate the sequential code *)
Mls2seq.program p;
close_all_files ()