- if List.length gl > flags.maxwidth then
- (debug_print ~depth (lazy "FAIL GLOBAL WIDTH");
- raise (Gaveup IntSet.empty))
- else ()) classes;
+ if List.length gl > flags.maxwidth then begin
+ debug_print ~depth (lazy "FAIL GLOBAL WIDTH");
+ HLog.warn (sprintf "global width (%u) exceeded: %u"
+ flags.maxwidth (List.length gl));
+ raise (Gaveup IntSet.empty)
+ end else ()) classes;