From 75d476e24a01b66c507ec2d7c2c99d3f810f625e Mon Sep 17 00:00:00 2001 From: Steffen Mueller Date: Tue, 2 Jul 2013 19:06:01 +0200 Subject: -DPERL_TRACE_OPS to produce reports on executed OP counts This produces a report on the number of OPs of a given type that were executed at the end of a program run. This can be useful in multiple ways. One, it can help determine hotspots for optimization (yes, I know execution count is not equal execution time). It can also help with determining whether a given change to perl has had the desired effect on deterministic programs. --- embedvar.h | 1 + 1 file changed, 1 insertion(+) (limited to 'embedvar.h') diff --git a/embedvar.h b/embedvar.h index 0c34c0f3c6..ef2fa686a8 100644 --- a/embedvar.h +++ b/embedvar.h @@ -216,6 +216,7 @@ #define PL_ofsgv (vTHX->Iofsgv) #define PL_oldname (vTHX->Ioldname) #define PL_op (vTHX->Iop) +#define PL_op_exec_cnt (vTHX->Iop_exec_cnt) #define PL_op_mask (vTHX->Iop_mask) #define PL_opfreehook (vTHX->Iopfreehook) #define PL_opsave (vTHX->Iopsave) -- cgit v1.2.1