Revision: 949 Author: tim.bunce Date: Fri Dec 11 02:08:02 2009 Log: Updated with recommendations from ppport.h.
http://code.google.com/p/perl-devel-nytprof/source/detail?r=949 Modified: /trunk/NYTProf.xs ======================================= --- /trunk/NYTProf.xs Thu Dec 10 08:54:55 2009 +++ /trunk/NYTProf.xs Fri Dec 11 02:08:02 2009 @@ -24,6 +24,12 @@ #include "XSUB.h" #ifndef NO_PPPORT_H +#define NEED_eval_pv +#define NEED_grok_number +#define NEED_grok_numeric_radix +#define NEED_newCONSTSUB +#define NEED_newRV_noinc +#define NEED_sv_2pv_flags # include "ppport.h" #endif @@ -4281,7 +4287,7 @@ /* add sub to NYTP_FIDi_SUBS_DEFINED hash */ sv = SvRV(*av_fetch(fid_fileinfo_av, fid, 1)); sv = SvRV(*av_fetch((AV *)sv, NYTP_FIDi_SUBS_DEFINED, 1)); - (void)hv_store((HV *)sv, subname_pv, (I32)subname_len, newRV((SV*)av), 0); + (void)hv_store((HV *)sv, subname_pv, (I32)subname_len, newRV_inc((SV*)av), 0); break; } @@ -4388,7 +4394,7 @@ if (!SvROK(fi)) /* autoviv */ sv_setsv(fi, newRV_noinc((SV*)newHV())); fi = HeVAL(hv_fetch_ent((HV *)SvRV(fi), called_subname_sv, 1, 0)); - sv_setsv(fi, newRV((SV *)av)); + sv_setsv(fi, newRV_inc((SV *)av)); } else { /* is meta-data about sub */ /* line == 0: is_xs - set line range to 0,0 as marker */ -- 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]
