Author: dubiously
Date: Fri Jul 3 17:53:06 2009
New Revision: 799
Modified:
trunk/NYTProf.xs
Log:
An (unsigned long) is still only 32 bits on 64-bit Windows. %Ix prints the
right number of bytes for size_t values for both 32 and 64 bit Windows.
Modified: trunk/NYTProf.xs
==============================================================================
--- trunk/NYTProf.xs (original)
+++ trunk/NYTProf.xs Fri Jul 3 17:53:06 2009
@@ -2345,8 +2345,13 @@
else {
/* unnamed CV, e.g. seen in mod_perl/Class::MOP. XXX
do better? */
stash_name = HvNAME(CvSTASH(cv));
+#ifdef WIN32
+ sv_setpvf(subname_sv, "%s::__UNKNOWN__[0x%Ix]",
+ (stash_name)?stash_name:"__UNKNOWN__", (size_t)cv);
+#else
sv_setpvf(subname_sv, "%s::__UNKNOWN__[0x%lx]",
(stash_name)?stash_name:"__UNKNOWN__", (unsigned
long)cv);
+#endif
if (trace_level) {
logwarn("unknown entersub %s assumed to be anon
cv '%s'", (is_xs) ? is_xs : "sub", SvPV_nolen(sub_sv));
sv_dump(sub_sv);
--~--~---------~--~----~------------~-------~--~----~
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]
-~----------~----~----~----~------~----~------~--~---
