Output MiniLS code before clocking when in verbose mode.
This commit is contained in:
parent
b1944cf752
commit
7f91ffab53
|
@ -53,12 +53,13 @@ let compile_impl modname filename =
|
||||||
let pp = Mls_printer.print stdout in
|
let pp = Mls_printer.print stdout in
|
||||||
comment "Translation into MiniLs";
|
comment "Translation into MiniLs";
|
||||||
Mls_printer.print mlsc p;
|
Mls_printer.print mlsc p;
|
||||||
|
if !Misc.verbose then pp p;
|
||||||
|
|
||||||
(* Process the MiniLS AST *)
|
(* Process the MiniLS AST *)
|
||||||
let p = Mls_compiler.compile pp p in
|
let p = Mls_compiler.compile pp p in
|
||||||
|
|
||||||
(* Generate the sequential code *)
|
(* Generate the sequential code *)
|
||||||
Mls2seq.program p;
|
Mls2seq.program p;
|
||||||
|
|
||||||
close_all_files ()
|
close_all_files ()
|
||||||
|
|
||||||
|
|
Loading…
Reference in a new issue