Revision: 1142
Author: [email protected]
Date: Mon Mar 8 01:50:01 2010
Log: Convert load_time_callback() to take an enum tag, rather than a raw
char.
http://code.google.com/p/perl-devel-nytprof/source/detail?r=1142
Modified:
/trunk/NYTProf.xs
=======================================
--- /trunk/NYTProf.xs Mon Mar 8 01:49:57 2010
+++ /trunk/NYTProf.xs Mon Mar 8 01:50:01 2010
@@ -3542,7 +3542,7 @@
}
static void
-load_time_callback(Loader_state *state, const unsigned char tag, ...)
+load_time_callback(Loader_state *state, const nytp_tax_index tag, ...)
{
dTHXa(state->interp);
va_list args;
@@ -3593,7 +3593,7 @@
1 - state->statement_discount
);
- if (tag == NYTP_TAG_TIME_BLOCK) {
+ if (tag == nytp_time_block) {
unsigned int block_line_num = va_arg(args, unsigned int);
unsigned int sub_line_num = va_arg(args, unsigned int);
@@ -4312,8 +4312,10 @@
/* Because it happens that the two "optional" arguments are
last, a single call will work. */
- load_time_callback(&state, c, ticks, file_num, line_num,
- block_line_num, sub_line_num);
+ load_time_callback(&state, c == NYTP_TAG_TIME_BLOCK
+ ? nytp_time_block : nytp_time_line,
ticks,
+ file_num, line_num, block_line_num,
+ sub_line_num);
break;
}
--
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]
