Revision: 896 Author: tim.bunce Date: Wed Nov 11 01:59:33 2009 Log: Fix compiler warnings, mainly for perls built with -Duselongdouble (RT#51431)
http://code.google.com/p/perl-devel-nytprof/source/detail?r=896 Modified: /trunk/NYTProf.xs ======================================= --- /trunk/NYTProf.xs Thu Oct 29 10:45:04 2009 +++ /trunk/NYTProf.xs Wed Nov 11 01:59:33 2009 @@ -2311,7 +2311,7 @@ } if (trace_level >= 4) - logwarn("%02d <- %s %"NVff"s excl = %"NVff"s incl - %"NVff"s (%g-%g), oh %g-%g=%gt, d%d @%d:%d #%lu %p\n", + logwarn("%02d <- %s %"NVff"s excl = %"NVff"s incl - %"NVff"s (%"NVff"-%"NVff"), oh %"NVff"-%"NVff"=%"NVff"t, d%d @%d:%d #%lu %p\n", subr_entry->subr_prof_depth, called_subname_pv, excl_subr_sec, incl_subr_sec, called_sub_secs, @@ -4173,7 +4173,7 @@ } if (trace_level >= 3) - logwarn("Sub %s called by %s %u:%u: count %d, incl %f, excl %f, ucpu %f scpu %f\n", + logwarn("Sub %s called by %s %u:%u: count %d, incl %"NVff", excl %"NVff", ucpu %"NVff" scpu %"NVff"\n", SvPV_nolen(called_subname_sv), SvPV_nolen(caller_subname_sv), fid, line, count, incl_time, excl_time, ucpu_time, scpu_time); @@ -4224,7 +4224,7 @@ sv = *av_fetch(av, NYTP_SCi_CALLING_SUB, 1); if (!SvROK(sv)) /* autoviv */ sv_setsv(sv, newRV_noinc((SV*)newHV())); - hv_fetch_ent((HV *)SvRV(sv), caller_subname_sv, 1, 0); + (void)hv_fetch_ent((HV *)SvRV(sv), caller_subname_sv, 1, 0); /* add sub call to NYTP_FIDi_SUBS_CALLED hash of fid making the call */ /* => { line => { subname => [ ... ] } } */ @@ -4449,7 +4449,7 @@ int show_summary_stats = (trace_level >= 1); if (profiler_end_time && total_stmts_duration > profiler_duration * 1.1) { - logwarn("The sum of the statement timings is %.1f%% of the total time profiling." + logwarn("The sum of the statement timings is %.1"NVff"%% of the total time profiling." " (Values slightly over 100%% can be due simply to cumulative timing errors," " whereas larger values can indicate a problem with the clock used.)\n", total_stmts_duration / profiler_duration * 100); --~--~---------~--~----~------------~-------~--~----~ 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] -~----------~----~----~----~------~----~------~--~---
