Author: dubiously
Date: Mon Jul 6 15:43:08 2009
New Revision: 807
Modified:
trunk/NYTProf.xs
Log:
Use %p to format pointer values. Solves potential issue with Cygwin, which
may define WIN32 symbol too but doesn't use MSVCRT.dll
Modified: trunk/NYTProf.xs
==============================================================================
--- trunk/NYTProf.xs (original)
+++ trunk/NYTProf.xs Mon Jul 6 15:43:08 2009
@@ -2384,13 +2384,8 @@
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
+ sv_setpvf(subname_sv, "%s::__UNKNOWN__[0x%p]",
+ (stash_name)?stash_name:"__UNKNOWN__", cv);
if (trace_level) {
logwarn("unknown entersub %s assumed to be anon
cv '%s'\n", (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]
-~----------~----~----~----~------~----~------~--~---
