#!/usr/sbin/dtrace -s

#pragma D option quiet
#pragma D option defaultargs
#pragma D option destructive

/*
 * Usage:
 *      vm.d -p JAVA_PID
 */


:::BEGIN
/ $1 == "" /
{
    system("rm vm.paused.%d", $target);
}

jrts$target:::safepoint-begin
{
	printf("%d : Safepoint begins\n",timestamp);
}

jrts$target:::safepoint-end
{
	printf("%d : Safepoint ends\n",timestamp);
}