Revision: 1430
Author: [email protected]
Date: Tue Sep 11 08:29:43 2012
Log: Bleadperl v5.17.3-252-gd3b9753 fix from David Mitchell.
http://code.google.com/p/perl-devel-nytprof/source/detail?r=1430
Modified:
/trunk/Changes
/trunk/NYTProf.xs
=======================================
--- /trunk/Changes Sat Aug 11 03:53:27 2012
+++ /trunk/Changes Tue Sep 11 08:29:43 2012
@@ -6,6 +6,10 @@
=cut
+=head2 Changes in Devel::NYTProf 4.09
+
+ Fixed to work for perl v5.17.3+ thanks to David Mitchell.
+
=head2 Changes in Devel::NYTProf 4.08 (svn 1427) 11th Aug 2012
Fixed version numbers in nytprofhtml and nytprofmerge.
=======================================
--- /trunk/NYTProf.xs Fri Aug 10 04:32:58 2012
+++ /trunk/NYTProf.xs Tue Sep 11 08:29:43 2012
@@ -329,7 +329,7 @@
static char *last_executed_fileptr;
static unsigned int last_block_line;
static unsigned int last_sub_line;
-static bool last_sawampersand;
+static U8 last_sawampersand;
static unsigned int is_profiling; /* disable_profile() &
enable_profile() */
static Pid_t last_pid = 0;
static NV cumulative_overhead_ticks = 0.0;
@@ -377,11 +377,11 @@
static HV *pkg_fids_hv; /* currently just package names */
#define CHECK_SAWAMPERSAND(fid,line) STMT_START { \
- if (PL_sawampersand != last_sawampersand) { \
+ if ((U8)PL_sawampersand != last_sawampersand) { \
if (trace_level >= 1) \
logwarn("Slow regex match variable seen (first noted
at %u:%u)\n", fid, line); \
NYTP_write_sawampersand(out, fid, line); \
- last_sawampersand = PL_sawampersand; \
+ last_sawampersand = (U8)PL_sawampersand; \
} \
} STMT_END
--
You've received this message because you are subscribed to
the Devel::NYTProf Development User group.
Group hosted at: http://groups.google.com/group/develnytprof-dev
Project hosted at: http://perl-devel-nytprof.googlecode.com
CPAN distribution: http://search.cpan.org/dist/Devel-NYTProf
To post, email: [email protected]
To unsubscribe, email: [email protected]
