pldtrace.d   [plain text]



/* Perl dtrace provider */

provider perl {
    probe sub__entry(char *, char *, int);
    probe sub__return(char *, char *, int);
};

/*

Entry
	1. char * (sub name, GvENAME(CvGV(cv)))
	2. char * (file name, CopFILE((COP*)CvSTART(cv)))
	3. int    (line number, CopLINE((COP*)CvSTART(cv)))

Return
	1. char * (sub name, GvENAME(CvGV(cv)))
	2. char * (file name, CopFILE((COP*)CvSTART(cv)))
	3. int    (line number, CopLINE((COP*)CvSTART(cv)))

*/



/*
  The definitions for these below are here:
	http://docs.sun.com/app/docs/doc/817-6223/6mlkidlnp?a=view
*/
#pragma D attributes unstable/unstable/Common provider perl provider
#pragma D attributes unstable/unstable/Common provider perl module
#pragma D attributes unstable/unstable/Common provider perl function
#pragma D attributes unstable/unstable/Common provider perl name
#pragma D attributes unstable/unstable/Common provider perl args