[ViewVC] Diff of: cvs/Coro/Coro/State.xs

Comparing Coro/Coro/State.xs (file contents):
Revision 1.243 by root, Sat Aug 30 03:07:46 2008 UTC vs.
Revision 1.252 by root, Tue Nov 4 12:08:44 2008 UTC

…		…
4	#define PERL_EXT	4	#define PERL_EXT
5		5
6	#include "EXTERN.h"	6	#include "EXTERN.h"
7	#include "perl.h"	7	#include "perl.h"
8	#include "XSUB.h"	8	#include "XSUB.h"
		9	#include "perliol.h"
9		10
10	#include "patchlevel.h"	11	#include "patchlevel.h"
11		12
12	#include <stdio.h>	13	#include <stdio.h>
13	#include <errno.h>	14	#include <errno.h>
…		…
80	# ifndef IS_PADCONST	81	# ifndef IS_PADCONST
81	# define IS_PADCONST(v) 0	82	# define IS_PADCONST(v) 0
82	# endif	83	# endif
83	#endif	84	#endif
84		85
		86	/* 5.11 */
		87	#ifndef CxHASARGS
		88	# define CxHASARGS(cx) (cx)->blk_sub.hasargs
		89	#endif
		90
		91	/* 5.10.0 */
		92	#ifndef SvREFCNT_inc_NN
		93	# define SvREFCNT_inc_NN(sv) SvREFCNT_inc (sv)
		94	#endif
		95
85	/* 5.8.8 */	96	/* 5.8.8 */
86	#ifndef GV_NOTQUAL	97	#ifndef GV_NOTQUAL
87	# define GV_NOTQUAL 0	98	# define GV_NOTQUAL 0
88	#endif	99	#endif
89	#ifndef newSV	100	#ifndef newSV
90	# define newSV(l) NEWSV(0,l)	101	# define newSV(l) NEWSV(0,l)
91	#endif
92
93	/* 5.11 */
94	#ifndef CxHASARGS
95	# define CxHASARGS(cx) (cx)->blk_sub.hasargs
96	#endif	102	#endif
97		103
98	/* 5.8.7 */	104	/* 5.8.7 */
99	#ifndef SvRV_set	105	#ifndef SvRV_set
100	# define SvRV_set(s,v) SvRV(s) = (v)	106	# define SvRV_set(s,v) SvRV(s) = (v)
…		…
147	#endif	153	#endif
148		154
149	/* helper storage struct for Coro::AIO */	155	/* helper storage struct for Coro::AIO */
150	struct io_state	156	struct io_state
151	{	157	{
		158	AV *res;
152	int errorno;	159	int errorno;
153	I32 laststype;	160	I32 laststype;
154	int laststatval;	161	int laststatval;
155	Stat_t statcache;	162	Stat_t statcache;
156	};	163	};
157		164
		165	static double (nvtime)(); / so why doesn't it take void? */
		166
158	static size_t coro_stacksize = CORO_STACKSIZE;	167	static size_t coro_stacksize = CORO_STACKSIZE;
159	static struct CoroAPI coroapi;	168	static struct CoroAPI coroapi;
160	static AV main_mainstack; / used to differentiate between $main and others */	169	static AV main_mainstack; / used to differentiate between $main and others */
161	static JMPENV *main_top_env;	170	static JMPENV *main_top_env;
162	static HV coro_state_stash, coro_stash;	171	static HV coro_state_stash, coro_stash;
163	static volatile SV coro_mortal; / will be freed after next transfer */	172	static volatile SV coro_mortal; / will be freed/thrown after next transfer */
164		173
165	static GV irsgv; / $/ */	174	static GV irsgv; / $/ */
166	static GV stdoutgv; / STDOUT /	175	static GV stdoutgv; / STDOUT /
167	static SV *rv_diehook;	176	static SV *rv_diehook;
168	static SV *rv_warnhook;	177	static SV *rv_warnhook;
…		…
321	Perl_pad_push (aTHX_ padlist, AvFILLp (padlist) + 1, 1);	330	Perl_pad_push (aTHX_ padlist, AvFILLp (padlist) + 1, 1);
322	#endif	331	#endif
323	newpad = (AV *)AvARRAY (padlist)[AvFILLp (padlist)];	332	newpad = (AV *)AvARRAY (padlist)[AvFILLp (padlist)];
324	--AvFILLp (padlist);	333	--AvFILLp (padlist);
325		334
326	av_store (newpadlist, 0, SvREFCNT_inc (*av_fetch (padlist, 0, FALSE)));	335	av_store (newpadlist, 0, SvREFCNT_inc_NN (*av_fetch (padlist, 0, FALSE)));
327	av_store (newpadlist, 1, (SV *)newpad);	336	av_store (newpadlist, 1, (SV *)newpad);
328		337
329	return newpadlist;	338	return newpadlist;
330	}	339	}
331		340
…		…
361		370
362	/* casting is fun. */	371	/* casting is fun. */
363	while (&PL_sv_undef != (SV )(padlist = (AV )av_pop (av)))	372	while (&PL_sv_undef != (SV )(padlist = (AV )av_pop (av)))
364	free_padlist (aTHX_ padlist);	373	free_padlist (aTHX_ padlist);
365		374
		375	SvREFCNT_dec (av); /* sv_magicext increased the refcount */
		376
366	return 0;	377	return 0;
367	}	378	}
368		379
369	#define CORO_MAGIC_type_cv PERL_MAGIC_ext	380	#define CORO_MAGIC_type_cv PERL_MAGIC_ext
370	#define CORO_MAGIC_type_state PERL_MAGIC_ext	381	#define CORO_MAGIC_type_state PERL_MAGIC_ext
…		…
420	if (expect_true (mg && AvFILLp ((av = (AV *)mg->mg_obj)) >= 0))	431	if (expect_true (mg && AvFILLp ((av = (AV *)mg->mg_obj)) >= 0))
421	CvPADLIST (cv) = (AV *)AvARRAY (av)[AvFILLp (av)--];	432	CvPADLIST (cv) = (AV *)AvARRAY (av)[AvFILLp (av)--];
422	else	433	else
423	{	434	{
424	#if CORO_PREFER_PERL_FUNCTIONS	435	#if CORO_PREFER_PERL_FUNCTIONS
425	/* this is probably cleaner, but also slower? */	436	/* this is probably cleaner? but also slower! */
		437	/* in practise, it seems to be less stable */
426	CV *cp = Perl_cv_clone (cv);	438	CV *cp = Perl_cv_clone (cv);
427	CvPADLIST (cv) = CvPADLIST (cp);	439	CvPADLIST (cv) = CvPADLIST (cp);
428	CvPADLIST (cp) = 0;	440	CvPADLIST (cp) = 0;
429	SvREFCNT_dec (cp);	441	SvREFCNT_dec (cp);
430	#else	442	#else
…		…
663	#undef VAR	675	#undef VAR
664	}	676	}
665	else	677	else
666	slot = coro->slot;	678	slot = coro->slot;
667		679
		680	if (slot)
		681	{
668	rss += sizeof (slot->curstackinfo);	682	rss += sizeof (slot->curstackinfo);
669	rss += (slot->curstackinfo->si_cxmax + 1) * sizeof (PERL_CONTEXT);	683	rss += (slot->curstackinfo->si_cxmax + 1) * sizeof (PERL_CONTEXT);
670	rss += sizeof (SV) + sizeof (struct xpvav) + (1 + AvMAX (slot->curstack)) * sizeof (SV *);	684	rss += sizeof (SV) + sizeof (struct xpvav) + (1 + AvMAX (slot->curstack)) * sizeof (SV *);
671	rss += slot->tmps_max * sizeof (SV *);	685	rss += slot->tmps_max * sizeof (SV *);
672	rss += (slot->markstack_max - slot->markstack_ptr) * sizeof (I32);	686	rss += (slot->markstack_max - slot->markstack_ptr) * sizeof (I32);
673	rss += slot->scopestack_max * sizeof (I32);	687	rss += slot->scopestack_max * sizeof (I32);
674	rss += slot->savestack_max * sizeof (ANY);	688	rss += slot->savestack_max * sizeof (ANY);
675		689
676	#if !PERL_VERSION_ATLEAST (5,10,0)	690	#if !PERL_VERSION_ATLEAST (5,10,0)
677	rss += slot->retstack_max * sizeof (OP *);	691	rss += slot->retstack_max * sizeof (OP *);
678	#endif	692	#endif
		693	}
679	}	694	}
680		695
681	return rss;	696	return rss;
682	}	697	}
683		698
…		…
801	GvSV (PL_defgv) = newSV (0);	816	GvSV (PL_defgv) = newSV (0);
802	GvAV (PL_defgv) = coro->args; coro->args = 0;	817	GvAV (PL_defgv) = coro->args; coro->args = 0;
803	GvSV (PL_errgv) = newSV (0);	818	GvSV (PL_errgv) = newSV (0);
804	GvSV (irsgv) = newSVpvn ("\n", 1); sv_magic (GvSV (irsgv), (SV *)irsgv, PERL_MAGIC_sv, "/", 0);	819	GvSV (irsgv) = newSVpvn ("\n", 1); sv_magic (GvSV (irsgv), (SV *)irsgv, PERL_MAGIC_sv, "/", 0);
805	PL_rs = newSVsv (GvSV (irsgv));	820	PL_rs = newSVsv (GvSV (irsgv));
806	PL_defoutgv = (GV *)SvREFCNT_inc (stdoutgv);	821	PL_defoutgv = (GV *)SvREFCNT_inc_NN (stdoutgv);
807		822
808	{	823	{
809	dSP;	824	dSP;
810	LOGOP myop;	825	LOGOP myop;
811		826
…		…
907	: cx->blk_gimme == G_SCALAR ? bot + 1	922	: cx->blk_gimme == G_SCALAR ? bot + 1
908	: bot;	923	: bot;
909		924
910	av_extend (av, top - bot);	925	av_extend (av, top - bot);
911	while (bot < top)	926	while (bot < top)
912	av_push (av, SvREFCNT_inc (*bot++));	927	av_push (av, SvREFCNT_inc_NN (*bot++));
913		928
914	PL_runops = RUNOPS_DEFAULT;	929	PL_runops = RUNOPS_DEFAULT;
915	ENTER;	930	ENTER;
916	SAVETMPS;	931	SAVETMPS;
917	EXTEND (SP, 3);	932	EXTEND (SP, 3);
…		…
1193	/* always use the TRANSFER macro */	1208	/* always use the TRANSFER macro */
1194	static void NOINLINE	1209	static void NOINLINE
1195	transfer (pTHX_ struct coro prev, struct coro next, int force_cctx)	1210	transfer (pTHX_ struct coro prev, struct coro next, int force_cctx)
1196	{	1211	{
1197	dSTACKLEVEL;	1212	dSTACKLEVEL;
1198	static volatile int has_throw;
1199		1213
1200	/* sometimes transfer is only called to set idle_sp */	1214	/* sometimes transfer is only called to set idle_sp */
1201	if (expect_false (!next))	1215	if (expect_false (!next))
1202	{	1216	{
1203	((coro_cctx *)prev)->idle_sp = STACKLEVEL;	1217	((coro_cctx *)prev)->idle_sp = STACKLEVEL;
1204	assert (((coro_cctx )prev)->idle_te = PL_top_env); / just for the side-effect when asserts are enabled */	1218	assert (((coro_cctx )prev)->idle_te = PL_top_env); / just for the side-effect when asserts are enabled */
1205	}	1219	}
1206	else if (expect_true (prev != next))	1220	else if (expect_true (prev != next))
1207	{	1221	{
		1222	static volatile int has_throw;
1208	coro_cctx *prev__cctx;	1223	coro_cctx *prev__cctx;
1209		1224
1210	if (expect_false (prev->flags & CF_NEW))	1225	if (expect_false (prev->flags & CF_NEW))
1211	{	1226	{
1212	/* create a new empty context */	1227	/* create a new empty context */
…		…
1441	LOCK;	1456	LOCK;
1442		1457
1443	sv_hook = coro_nready ? 0 : coro_readyhook;	1458	sv_hook = coro_nready ? 0 : coro_readyhook;
1444	xs_hook = coro_nready ? 0 : coroapi.readyhook;	1459	xs_hook = coro_nready ? 0 : coroapi.readyhook;
1445		1460
1446	coro_enq (aTHX_ SvREFCNT_inc (coro_sv));	1461	coro_enq (aTHX_ SvREFCNT_inc_NN (coro_sv));
1447	++coro_nready;	1462	++coro_nready;
1448		1463
1449	UNLOCK;	1464	UNLOCK;
1450		1465
1451	if (sv_hook)	1466	if (sv_hook)
…		…
1639	static MGVTBL coro_gensub_vtbl = {	1654	static MGVTBL coro_gensub_vtbl = {
1640	0, 0, 0, 0,	1655	0, 0, 0, 0,
1641	coro_gensub_free	1656	coro_gensub_free
1642	};	1657	};
1643		1658
		1659	/*****************************************************************************/
		1660	/* PerlIO::cede */
		1661
		1662	typedef struct
		1663	{
		1664	PerlIOBuf base;
		1665	NV next, every;
		1666	} PerlIOCede;
		1667
		1668	static IV
		1669	PerlIOCede_pushed (pTHX_ PerlIO f, const char mode, SV arg, PerlIO_funcs tab)
		1670	{
		1671	PerlIOCede *self = PerlIOSelf (f, PerlIOCede);
		1672
		1673	self->every = SvCUR (arg) ? SvNV (arg) : 0.01;
		1674	self->next = nvtime () + self->every;
		1675
		1676	return PerlIOBuf_pushed (aTHX_ f, mode, Nullsv, tab);
		1677	}
		1678
		1679	static SV *
		1680	PerlIOCede_getarg (pTHX_ PerlIO f, CLONE_PARAMS param, int flags)
		1681	{
		1682	PerlIOCede *self = PerlIOSelf (f, PerlIOCede);
		1683
		1684	return newSVnv (self->every);
		1685	}
		1686
		1687	static IV
		1688	PerlIOCede_flush (pTHX_ PerlIO *f)
		1689	{
		1690	PerlIOCede *self = PerlIOSelf (f, PerlIOCede);
		1691	double now = nvtime ();
		1692
		1693	if (now >= self->next)
		1694	{
		1695	api_cede ();
		1696	self->next = now + self->every;
		1697	}
		1698
		1699	return PerlIOBuf_flush (aTHX_ f);
		1700	}
		1701
		1702	static PerlIO_funcs PerlIO_cede =
		1703	{
		1704	sizeof(PerlIO_funcs),
		1705	"cede",
		1706	sizeof(PerlIOCede),
		1707	PERLIO_K_DESTRUCT \| PERLIO_K_RAW,
		1708	PerlIOCede_pushed,
		1709	PerlIOBuf_popped,
		1710	PerlIOBuf_open,
		1711	PerlIOBase_binmode,
		1712	PerlIOCede_getarg,
		1713	PerlIOBase_fileno,
		1714	PerlIOBuf_dup,
		1715	PerlIOBuf_read,
		1716	PerlIOBuf_unread,
		1717	PerlIOBuf_write,
		1718	PerlIOBuf_seek,
		1719	PerlIOBuf_tell,
		1720	PerlIOBuf_close,
		1721	PerlIOCede_flush,
		1722	PerlIOBuf_fill,
		1723	PerlIOBase_eof,
		1724	PerlIOBase_error,
		1725	PerlIOBase_clearerr,
		1726	PerlIOBase_setlinebuf,
		1727	PerlIOBuf_get_base,
		1728	PerlIOBuf_bufsiz,
		1729	PerlIOBuf_get_ptr,
		1730	PerlIOBuf_get_cnt,
		1731	PerlIOBuf_set_ptrcnt,
		1732	};
		1733
		1734
1644	MODULE = Coro::State PACKAGE = Coro::State PREFIX = api_	1735	MODULE = Coro::State PACKAGE = Coro::State PREFIX = api_
1645		1736
1646	PROTOTYPES: DISABLE	1737	PROTOTYPES: DISABLE
1647		1738
1648	BOOT:	1739	BOOT:
…		…
1677	main_top_env = main_top_env->je_prev;	1768	main_top_env = main_top_env->je_prev;
1678		1769
1679	coroapi.ver = CORO_API_VERSION;	1770	coroapi.ver = CORO_API_VERSION;
1680	coroapi.rev = CORO_API_REVISION;	1771	coroapi.rev = CORO_API_REVISION;
1681	coroapi.transfer = api_transfer;	1772	coroapi.transfer = api_transfer;
		1773
		1774	{
		1775	SV **svp = hv_fetch (PL_modglobal, "Time::NVtime", 12, 0);
		1776
		1777	if (!svp) croak ("Time::HiRes is required");
		1778	if (!SvIOK (*svp)) croak ("Time::NVtime isn't a function pointer");
		1779
		1780	nvtime = INT2PTR (double ()(), SvIV (svp));
		1781	}
1682		1782
1683	assert (("PRIO_NORMAL must be 0", !PRIO_NORMAL));	1783	assert (("PRIO_NORMAL must be 0", !PRIO_NORMAL));
1684	}	1784	}
1685		1785
1686	SV *	1786	SV *
…		…
1734	ta.next = 0;	1834	ta.next = 0;
1735	break;	1835	break;
1736		1836
1737	case 1:	1837	case 1:
1738	if (items != 2)	1838	if (items != 2)
1739	croak ("Coro::State::transfer (prev,next) expects two arguments, not %d", items);	1839	croak ("Coro::State::transfer (prev, next) expects two arguments, not %d", items);
1740		1840
1741	prepare_transfer (aTHX_ &ta, ST (0), ST (1));	1841	prepare_transfer (aTHX_ &ta, ST (0), ST (1));
1742	break;	1842	break;
1743		1843
1744	case 2:	1844	case 2:
…		…
1814	call (Coro::State coro, SV *coderef)	1914	call (Coro::State coro, SV *coderef)
1815	ALIAS:	1915	ALIAS:
1816	eval = 1	1916	eval = 1
1817	CODE:	1917	CODE:
1818	{	1918	{
1819	if (coro->mainstack)	1919	if (coro->mainstack && ((coro->flags & CF_RUNNING) \|\| coro->slot))
1820	{	1920	{
1821	struct coro temp;	1921	struct coro temp;
1822		1922
1823	if (!(coro->flags & CF_RUNNING))	1923	if (!(coro->flags & CF_RUNNING))
1824	{	1924	{
…		…
1907	CODE:	2007	CODE:
1908	struct coro *coro = SvSTATE (coro_current);	2008	struct coro *coro = SvSTATE (coro_current);
1909	coro->cctx->idle_sp = 0;	2009	coro->cctx->idle_sp = 0;
1910		2010
1911	void	2011	void
1912	throw (Coro::State self, SV *throw = &PL_sv_undef)
1913	PROTOTYPE: $;$
1914	CODE:
1915	SvREFCNT_dec (self->throw);
1916	self->throw = SvOK (throw) ? newSVsv (throw) : 0;
1917
1918	void
1919	swap_defsv (Coro::State self)	2012	swap_defsv (Coro::State self)
1920	PROTOTYPE: $	2013	PROTOTYPE: $
1921	ALIAS:	2014	ALIAS:
1922	swap_defav = 1	2015	swap_defav = 1
1923	CODE:	2016	CODE:
…		…
1977	void	2070	void
1978	_set_current (SV *current)	2071	_set_current (SV *current)
1979	PROTOTYPE: $	2072	PROTOTYPE: $
1980	CODE:	2073	CODE:
1981	SvREFCNT_dec (SvRV (coro_current));	2074	SvREFCNT_dec (SvRV (coro_current));
1982	SvRV_set (coro_current, SvREFCNT_inc (SvRV (current)));	2075	SvRV_set (coro_current, SvREFCNT_inc_NN (SvRV (current)));
1983		2076
1984	void	2077	void
1985	_set_readyhook (SV *hook)	2078	_set_readyhook (SV *hook)
1986	PROTOTYPE: $	2079	PROTOTYPE: $
1987	CODE:	2080	CODE:
…		…
2026	CODE:	2119	CODE:
2027	RETVAL = coro_nready;	2120	RETVAL = coro_nready;
2028	OUTPUT:	2121	OUTPUT:
2029	RETVAL	2122	RETVAL
2030		2123
		2124	void
		2125	throw (Coro::State self, SV *throw = &PL_sv_undef)
		2126	PROTOTYPE: $;$
		2127	CODE:
		2128	SvREFCNT_dec (self->throw);
		2129	self->throw = SvOK (throw) ? newSVsv (throw) : 0;
		2130
2031	# for async_pool speedup	2131	# for async_pool speedup
2032	void	2132	void
2033	_pool_1 (SV *cb)	2133	_pool_1 (SV *cb)
2034	CODE:	2134	CODE:
2035	{	2135	{
…		…
2047	SvREFCNT_dec (old);	2147	SvREFCNT_dec (old);
2048	croak ("\3async_pool terminate\2\n");	2148	croak ("\3async_pool terminate\2\n");
2049	}	2149	}
2050		2150
2051	SvREFCNT_dec (coro->saved_deffh);	2151	SvREFCNT_dec (coro->saved_deffh);
2052	coro->saved_deffh = SvREFCNT_inc ((SV *)PL_defoutgv);	2152	coro->saved_deffh = SvREFCNT_inc_NN ((SV *)PL_defoutgv);
2053		2153
2054	hv_store (hv, "desc", sizeof ("desc") - 1,	2154	hv_store (hv, "desc", sizeof ("desc") - 1,
2055	newSVpvn ("[async_pool]", sizeof ("[async_pool]") - 1), 0);	2155	newSVpvn ("[async_pool]", sizeof ("[async_pool]") - 1), 0);
2056		2156
2057	invoke_av = (AV *)SvRV (invoke);	2157	invoke_av = (AV *)SvRV (invoke);
…		…
2061		2161
2062	if (len > 0)	2162	if (len > 0)
2063	{	2163	{
2064	av_fill (defav, len - 1);	2164	av_fill (defav, len - 1);
2065	for (i = 0; i < len; ++i)	2165	for (i = 0; i < len; ++i)
2066	av_store (defav, i, SvREFCNT_inc (AvARRAY (invoke_av)[i + 1]));	2166	av_store (defav, i, SvREFCNT_inc_NN (AvARRAY (invoke_av)[i + 1]));
2067	}	2167	}
2068		2168
2069	SvREFCNT_dec (invoke);	2169	SvREFCNT_dec (invoke);
2070	}	2170	}
2071		2171
…		…
2150	#endif	2250	#endif
2151		2251
2152		2252
2153	MODULE = Coro::State PACKAGE = Coro::AIO	2253	MODULE = Coro::State PACKAGE = Coro::AIO
2154		2254
2155	SV *	2255	void
2156	_get_state ()	2256	_get_state (SV *self)
2157	CODE:	2257	PPCODE:
2158	{	2258	{
2159	struct io_state *data;	2259	AV *defav = GvAV (PL_defgv);
2160		2260	AV *av = newAV ();
		2261	int i;
2161	RETVAL = newSV (sizeof (struct io_state));	2262	SV *data_sv = newSV (sizeof (struct io_state));
2162	data = (struct io_state *)SvPVX (RETVAL);	2263	struct io_state data = (struct io_state )SvPVX (data_sv);
2163	SvCUR_set (RETVAL, sizeof (struct io_state));	2264	SvCUR_set (data_sv, sizeof (struct io_state));
2164	SvPOK_only (RETVAL);	2265	SvPOK_only (data_sv);
2165		2266
2166	data->errorno = errno;	2267	data->errorno = errno;
2167	data->laststype = PL_laststype;	2268	data->laststype = PL_laststype;
2168	data->laststatval = PL_laststatval;	2269	data->laststatval = PL_laststatval;
2169	data->statcache = PL_statcache;	2270	data->statcache = PL_statcache;
		2271
		2272	av_extend (av, AvFILLp (defav) + 1 + 1);
		2273
		2274	for (i = 0; i <= AvFILLp (defav); ++i)
		2275	av_push (av, SvREFCNT_inc_NN (AvARRAY (defav)[i]));
		2276
		2277	av_push (av, data_sv);
		2278
		2279	XPUSHs (sv_2mortal (newRV_noinc ((SV *)av)));
		2280
		2281	api_ready (self);
2170	}	2282	}
2171	OUTPUT:
2172	RETVAL
2173		2283
2174	void	2284	void
2175	_set_state (char *data_)	2285	_set_state (SV *state)
2176	PROTOTYPE: $	2286	PROTOTYPE: $
2177	CODE:	2287	PPCODE:
2178	{	2288	{
2179	struct io_state data = (void )data_;	2289	AV av = (AV )SvRV (state);
		2290	struct io_state data = (struct io_state )SvPVX (AvARRAY (av)[AvFILLp (av)]);
		2291	int i;
2180		2292
2181	errno = data->errorno;	2293	errno = data->errorno;
2182	PL_laststype = data->laststype;	2294	PL_laststype = data->laststype;
2183	PL_laststatval = data->laststatval;	2295	PL_laststatval = data->laststatval;
2184	PL_statcache = data->statcache;	2296	PL_statcache = data->statcache;
		2297
		2298	EXTEND (SP, AvFILLp (av));
		2299	for (i = 0; i < AvFILLp (av); ++i)
		2300	PUSHs (sv_2mortal (SvREFCNT_inc_NN (AvARRAY (av)[i])));
2185	}	2301	}
2186		2302
2187		2303
2188	MODULE = Coro::State PACKAGE = Coro::AnyEvent	2304	MODULE = Coro::State PACKAGE = Coro::AnyEvent
2189		2305
…		…
2213	}	2329	}
2214		2330
2215	--incede;	2331	--incede;
2216	}	2332	}
2217		2333
		2334
		2335	MODULE = Coro::State PACKAGE = PerlIO::cede
		2336
		2337	BOOT:
		2338	PerlIO_define_layer (aTHX_ &PerlIO_cede);

Diff Legend

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines

Comparing Coro/Coro/State.xs (file contents): Revision 1.243 by root, Sat Aug 30 03:07:46 2008 UTC vs. Revision 1.252 by root, Tue Nov 4 12:08:44 2008 UTC

Diff Legend

Comparing Coro/Coro/State.xs (file contents):
Revision 1.243 by root, Sat Aug 30 03:07:46 2008 UTC vs.
Revision 1.252 by root, Tue Nov 4 12:08:44 2008 UTC