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

Bug correction tentative (itfusion)

Browse source 
Tentative of correction of itfusion bug:

The itfusion pass adds some "anonymous" nodes into the module.

This correction adds the signature of these created nodes.

This only shifts the bug (towards clocking pass).
This commit is contained in:
Gwenal Delaval 2012-09-28 13:06:46 +02:00
parent b176384952
commit eddeb1f4de
1 changed files with 7 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
compiler/heptagon/transformations/itfusion.ml
View file

@ -178,5 +178,11 @@ let edesc funs acc ed =
let program p =
let funs = { Hept_mapfold.defaults with edesc = edesc } in
let p, _ = Hept_mapfold.program_it funs false p in
let pd = QualEnv.fold (fun _ nd l -> Pnode nd :: l) !anon_nodes p.p_desc in
let pd =
QualEnv.fold
(fun _ nd l ->
Modules.add_value nd.n_name (signature_of_node nd);
Pnode nd :: l)
!anon_nodes
p.p_desc in
{ p with p_desc = pd }