Author: tim.bunce
Date: Mon Jan 5 01:33:19 2009
New Revision: 662
Modified:
trunk/NYTProf.xs
Log:
Fix for
http://www.nntp.perl.org/group/perl.cpan.testers/2009/01/msg2985535.html
(Anyone have any idea about the SSNEWa "cast from pointer to integer of
different size" warning?)
Modified: trunk/NYTProf.xs
==============================================================================
--- trunk/NYTProf.xs (original)
+++ trunk/NYTProf.xs Mon Jan 5 01:33:19 2009
@@ -2203,7 +2203,7 @@
sub_call_start.sub_av = av;
if (stash_name) /* note that a sub in this package was called
*/
- hv_fetch(pkg_fids_hv, stash_name, (I32)strlen(stash_name),
1);
+ (void)hv_fetch(pkg_fids_hv, stash_name,
(I32)strlen(stash_name), 1);
}
else {
sub_call_start.sub_av = (AV *)SvRV(sv_tmp);
@@ -2231,6 +2231,7 @@
}
else {
/* copy struct to save stack (very efficient) */
+ /* XXX "warning: cast from pointer to integer of different
size" with use64bitall=define */
I32 save_ix = SSNEWa(sizeof(sub_call_start),
MEM_ALIGNBYTES);
Copy(&sub_call_start, SSPTR(save_ix, sub_call_start_t *),
1, sub_call_start_t);
/* defer acculumating time spent until we leave the sub */
@@ -3694,7 +3695,7 @@
void
set_option(const char *opt, const char *value)
C_ARGS:
- aTHX, opt, value
+ aTHX_ opt, value
int
init_profiler()
--~--~---------~--~----~------------~-------~--~----~
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]
-~----------~----~----~----~------~----~------~--~---
