Revision: 1120
Author: [email protected]
Date: Mon Mar 8 01:48:13 2010
Log: Remove the XS wrappers for output_int(), output_nv() and output_str().
http://code.google.com/p/perl-devel-nytprof/source/detail?r=1120
Modified:
/trunk/FileHandle.xs
=======================================
--- /trunk/FileHandle.xs Mon Mar 8 01:48:07 2010
+++ /trunk/FileHandle.xs Mon Mar 8 01:48:13 2010
@@ -1120,42 +1120,6 @@
OUTPUT:
RETVAL
-void
-output_int(handle, ...)
-NYTP_file handle
- PREINIT:
- SV **last = sp + items;
- PPCODE:
- ++sp; /* A pointer to the function is first item on the stack.
- It's not included in items */
- while(sp++ < last)
- output_int(handle, SvUV(*sp));
- XSRETURN(0);
-
-void
-output_nv(handle, ...)
-NYTP_file handle
- PREINIT:
- SV **last = sp + items;
- PPCODE:
- ++sp; /* A pointer to the function is first item on the stack.
- It's not included in items */
- while(sp++ < last)
- output_nv(handle, SvNV(*sp));
- XSRETURN(0);
-
-
-void
-output_str(handle, value)
-NYTP_file handle
-SV *value
- PREINIT:
- STRLEN len;
- char *p;
- CODE:
- p = SvPV(value, len);
- output_str(handle, p, SvUTF8(value) ? -(I32)len : (I32) len);
-
#ifdef HAS_ZLIB
void
--
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]
