Revision: 1138
Author: [email protected]
Date: Mon Mar 8 01:49:38 2010
Log: Move discount and start deflate processing into load_perl_callback().
http://code.google.com/p/perl-devel-nytprof/source/detail?r=1138
Modified:
/trunk/NYTProf.xs
=======================================
--- /trunk/NYTProf.xs Mon Mar 8 01:49:34 2010
+++ /trunk/NYTProf.xs Mon Mar 8 01:49:38 2010
@@ -4050,7 +4050,7 @@
{STR_WITH_LEN("COMMENT"), "3"},
{STR_WITH_LEN("TIME_BLOCK"), NULL},
{STR_WITH_LEN("TIME_LINE"), NULL},
- {STR_WITH_LEN("DISCOUNT"), NULL},
+ {STR_WITH_LEN("DISCOUNT"), ""},
{STR_WITH_LEN("NEW_FID"), "uuuuuuS"},
{STR_WITH_LEN("SRC_LINE"), "uuS"},
{STR_WITH_LEN("SUB_INFO"), "uuus"},
@@ -4059,7 +4059,7 @@
{STR_WITH_LEN("PID_END"), "un"},
{STR_WITH_LEN("[string]"), NULL},
{STR_WITH_LEN("[string utf8]"), NULL},
- {STR_WITH_LEN("START_DEFLATE"), NULL}
+ {STR_WITH_LEN("START_DEFLATE"), ""}
};
static void
@@ -4284,11 +4284,7 @@
case NYTP_TAG_DISCOUNT:
{
if (cb) {
- PUSHMARK(SP);
- XPUSHs(cb_DISCOUNT_tag);
- PUTBACK;
- call_sv(cb, G_DISCARD);
- SPAGAIN;
+ load_perl_callback(&state, nytp_discount);
break;
}
@@ -4523,14 +4519,7 @@
{
#ifdef HAS_ZLIB
if (cb) {
- PUSHMARK(SP);
-
- i = 0;
- sv_setpvs(cb_args[i], "START_DEFLATE");
XPUSHs(cb_args[i++]);
-
- PUTBACK;
- call_sv(cb, G_DISCARD);
- SPAGAIN;
+ load_perl_callback(&state, nytp_start_deflate);
}
NYTP_start_inflate(in);
#else
--
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]
