Using CMS, any chance of forewarning a serial full GC is imminent?

[Maslowski, Chuck]

Ramki gave us this D script awhile back. In our case we wanted to kill
the process should this occur.

hotspot$target:::gc-begin
{
  self->partial = !arg0;
}

hotspot$target:::mem-pool-gc-begin
/ self->partial && copyinstr(arg0) == "ConcurrentMarkSweep" &&
copyinstr(arg2) == "CMS Old Gen" /
{
  system("kill %d", pid);
}