Redisable interference of scalars during scheduling
This commit is contained in:
parent
0abb050a23
commit
5ac3a7f028
1 changed files with 3 additions and 0 deletions
|
@ -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
|
||||
|
|
Loading…
Reference in a new issue