Revision: 1405
Author: [email protected]
Date: Tue Nov 30 14:15:31 2010
Log: Disable the new initial CxMULTICALL support, and fix probable cause of
segv on OpenBSD
http://code.google.com/p/perl-devel-nytprof/source/detail?r=1405
Modified:
/trunk/NYTProf.xs
=======================================
--- /trunk/NYTProf.xs Fri Nov 19 07:23:37 2010
+++ /trunk/NYTProf.xs Tue Nov 30 14:15:31 2010
@@ -1516,12 +1516,12 @@
prev_last_executed_fid = last_executed_fid;
prev_last_executed_line = last_executed_line;
-#ifdef CxMULTICALL
+#ifdef CxMULTICALL && 0 /* disabled for now */
/* pp_return, pp_leavesub and pp_leavesublv
* return a NULL op when returning from a MULTICALL.
* See Lightweight Callbacks in perlcall.
*/
- is_multicall = (!op && CxMULTICALL(&cxstack[cxstack_ix]));
+ is_multicall = (!op && cxstack_ix >= 0 &&
CxMULTICALL(&cxstack[cxstack_ix]));
#else
is_multicall = 0;
#endif
--
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]
