Redisable interference of scalars during scheduling

This commit is contained in:
Adrien Guatto 2012-02-10 11:33:09 +01:00
parent 0abb050a23
commit 5ac3a7f028

View file

@ -149,6 +149,9 @@ let node _ () f =
f, ()
let program p =
let m = !Compiler_options.interf_all in
Compiler_options.interf_all := false;
let funs = { Mls_mapfold.defaults with Mls_mapfold.node_dec = node } in
let p, () = Mls_mapfold.program_it funs () p in
Compiler_options.interf_all := m;
p