Project

General

Profile

Revision f4050bef src/scheduling.ml

View differences:

src/scheduling.ml
186 186
  List.fold_right (
187 187
    fun top_decl (accu_prog, sch_map)  ->
188 188
      match top_decl.top_decl_desc with
189
	| Node nd -> 
190
	  let report = schedule_node nd in
191
	  {top_decl with top_decl_desc = Node report.node}::accu_prog, 
192
	  IMap.add nd.node_id report sch_map
189
      | Node nd ->
190
	let report = schedule_node nd in
191
	{top_decl with top_decl_desc = Node report.node}::accu_prog, 
192
	IMap.add nd.node_id report sch_map
193 193
	| _ -> top_decl::accu_prog, sch_map
194 194
    ) 
195 195
    prog

Also available in: Unified diff