Project

General

Profile

Revision df39e35a src/scheduling.ml

View differences:

src/scheduling.ml
212 212
     then
213 213
       let nd = match (Corelang.node_from_name nd).top_decl_desc with Node nd -> nd | _ -> assert false in
214 214
       ISet.iter
215
	 (fun u -> 
216
	   Format.fprintf fmt "Warning: variable '%s' seems unused@.%a@."
217
	     u
218
	     Location.pp_loc (get_node_var u nd).var_loc)
215
	 (fun u ->
216
	   let vu = get_node_var u nd in
217
	   if vu.var_orig
218
	   then Format.fprintf fmt "Warning: variable '%s' seems unused@.%a@." u Location.pp_loc vu.var_loc)
219 219
	 unused
220 220
   )
221 221
   node_schs

Also available in: Unified diff