Revision: 971
Author: [email protected]
Date: Fri Dec 18 09:04:16 2009
Log: Refactor Devel::NYTProf::ReadStream::output_iv() to take a list of
values.
http://code.google.com/p/perl-devel-nytprof/source/detail?r=971
Modified:
/trunk/FileHandle.xs
=======================================
--- /trunk/FileHandle.xs Fri Dec 18 09:04:12 2009
+++ /trunk/FileHandle.xs Fri Dec 18 09:04:16 2009
@@ -628,16 +628,20 @@
RETVAL
void
-output_int(handle, value)
+output_int(handle, ...)
SV *handle
-unsigned int value
PREINIT:
NYTP_file fh;
- CODE:
+ SV **last = sp + items;
+ PPCODE:
if(!sv_isa(handle, "Devel::NYTProf::FileHandle"))
croak("handle is not a Devel::NYTProf::FileHandle");
fh = (NYTP_file)SvPVX(SvRV(handle));
- output_int(fh, value);
+ ++sp; /* A pointer to the function is first item on the stack.
+ It's not included in items */
+ while(sp++ < last)
+ output_int(fh, SvUV(*sp));
+ XSRETURN(0);
void
output_nv(handle, value)
--
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]
