let optimize_obj = function
| C.Constant (name, Some bo, ty, pars, attrs) ->
let g bo =
- Printf.eprintf "Optimized: %s\n" (Pp.ppterm bo);
+ Printf.eprintf "Optimized: %s\nNodes : %u"
+ (Pp.ppterm bo) (I.count_nodes 0 bo);
let _ = H.get_type [] (C.Cast (bo, ty)) in
C.Constant (name, Some bo, ty, pars, attrs)
in