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

Re enabled iterator fusion

Browse source 
Added an option to enable it (off by default)
This commit is contained in:
Cédric Pasteur 2010-09-15 09:53:20 +02:00
parent d913e1be89
commit db732621a1
4 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
compiler/main/heptc.ml
View file

@ -85,6 +85,7 @@ let main () =
"-targetpath", Arg.String set_target_path, doc_target_path;
"-noinit", Arg.Clear init, doc_noinit;
"-fti", Arg.Set full_type_info, doc_full_type_info;
"-itfusion", Arg.Set do_iterator_fusion, doc_itfusion;
]
(compile compile_impl)
errmsg;

2
compiler/minils/main/mls_compiler.ml
View file

@ -37,7 +37,7 @@ let compile pp p =
(*let p = silent_pass "Initialization check" !init Init.program p in *)
(* Iterator fusion *)
(*let p = pass "Iterator fusion" false Itfusion.program p pp in*)
let p = pass "Iterator fusion" !do_iterator_fusion Itfusion.program p pp in
(* Normalization to maximize opportunities *)
let p = pass "Normalization" true Normalize.program p pp in

1
compiler/minils/main/mlsc.ml
View file

@ -79,6 +79,7 @@ let main () =
"-targetpath", Arg.String set_target_path, doc_target_path;
"-noinit", Arg.Clear init, doc_noinit;
"-fti", Arg.Set full_type_info, doc_full_type_info;
"-itfusion", Arg.Set do_iterator_fusion, doc_itfusion;
]
compile
errmsg;

2
compiler/utilities/global/compiler_options.ml
View file

@ -82,6 +82,7 @@ let flatten = ref false
let nodes_to_inline : string list ref = ref []
let do_iterator_fusion = ref false
let doc_verbose = "\t\t\tSet verbose mode"
and doc_version = "\t\tThe version of the compiler"
@ -103,3 +104,4 @@ and doc_target_path =
and doc_noinit = "\t\tDisable initialization analysis"
and doc_assert = "<node>\t\tInsert run-time assertions for boolean node <node>"
and doc_inline = "<node>\t\tInline node <node>"
and doc_itfusion = "\t\tEnable iterator fusion."