view release on metacpan or  search on metacpan

OpProf.xs  view on Meta::CPAN

    return 0;
}

MODULE = Devel::OpProf		PACKAGE = Devel::OpProf

PROTOTYPES: ENABLE

void
profile(flag)
	int	flag
    PPCODE:
	profiling = flag;

void
op_count()
    PPCODE:
	int i;
	EXTEND(sp, PL_maxo);
	for (i = 0; i < PL_maxo; i++)
	    PUSHs(sv_2mortal(newSViv(op_count[i])));
	
void
zero_stats()
    PPCODE:
	Zero(op_count, PL_maxo, unsigned long);

BOOT:
    Newz(0, op_count, PL_maxo, unsigned long);
    PL_runops = runops_opprof;