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

Comparing Coro/Coro/State.xs (file contents):
Revision 1.425 by root, Wed Dec 5 00:14:22 2012 UTC vs.
Revision 1.434 by root, Sat Nov 2 19:48:50 2013 UTC

…		…
1	/* this works around a bug in mingw32 providing a non-working setjmp */	1	/* this works around a bug in mingw32 providing a non-working setjmp */
2	#define USE_NO_MINGW_SETJMP_TWO_ARGS	2	#define USE_NO_MINGW_SETJMP_TWO_ARGS
3		3
4	#define NDEBUG 1	4	#define NDEBUG 1 /* perl usually disables NDEBUG later */
5		5
6	#include "libcoro/coro.c"	6	#include "libcoro/coro.c"
7		7
8	#define PERL_NO_GET_CONTEXT	8	#define PERL_NO_GET_CONTEXT
9	#define PERL_EXT	9	#define PERL_EXT
26	#ifndef SVs_PADSTALE	26	#ifndef SVs_PADSTALE
27	# define SVs_PADSTALE 0	27	# define SVs_PADSTALE 0
28	#endif	28	#endif
29		29
30	#ifdef PadARRAY	30	#ifdef PadARRAY
31	# define NEWPADAPI	31	# define NEWPADAPI 1
32	# define newPADLIST(var) (Newz (0, var, 1, PADLIST), Newx (PadlistARRAY (var), 2, PAD *))	32	# define newPADLIST(var) (Newz (0, var, 1, PADLIST), Newx (PadlistARRAY (var), 2, PAD *))
33	#else	33	#else
34	typedef AV PADNAMELIST;	34	typedef AV PADNAMELIST;
35	# if !PERL_VERSION_ATLEAST(5,8,0)	35	# if !PERL_VERSION_ATLEAST(5,8,0)
36	typedef AV PADLIST;	36	typedef AV PADLIST;
…		…
52	# define setjmp _setjmp /* deep magic */	52	# define setjmp _setjmp /* deep magic */
53	#else	53	#else
54	# include <inttypes.h> /* most portable stdint.h */	54	# include <inttypes.h> /* most portable stdint.h */
55	#endif	55	#endif
56		56
57	#if HAVE_MMAP
58	# include <unistd.h>
59	# include <sys/mman.h>
60	# ifndef MAP_ANONYMOUS
61	# ifdef MAP_ANON
62	# define MAP_ANONYMOUS MAP_ANON
63	# else
64	# undef HAVE_MMAP
65	# endif
66	# endif
67	# include <limits.h>
68	# ifndef PAGESIZE
69	# define PAGESIZE pagesize
70	# define BOOT_PAGESIZE pagesize = sysconf (_SC_PAGESIZE)
71	static long pagesize;
72	# else
73	# define BOOT_PAGESIZE (void)0
74	# endif
75	#else
76	# define PAGESIZE 0
77	# define BOOT_PAGESIZE (void)0
78	#endif
79
80	#if CORO_USE_VALGRIND
81	# include <valgrind/valgrind.h>
82	#endif
83
84	/* the maximum number of idle cctx that will be pooled */	57	/* the maximum number of idle cctx that will be pooled */
85	static int cctx_max_idle = 4;	58	static int cctx_max_idle = 4;
86		59
87	#if defined(DEBUGGING) && PERL_VERSION_ATLEAST(5,12,0)	60	#if defined(DEBUGGING) && PERL_VERSION_ATLEAST(5,12,0)
88	# define HAS_SCOPESTACK_NAME 1	61	# define HAS_SCOPESTACK_NAME 1
89	#endif
90
91	#if !__i386 && !__x86_64 && !__powerpc && !__m68k && !__alpha && !__mips && !__sparc64
92	# undef CORO_STACKGUARD
93	#endif
94
95	#ifndef CORO_STACKGUARD
96	# define CORO_STACKGUARD 0
97	#endif	62	#endif
98		63
99	/* prefer perl internal functions over our own? */	64	/* prefer perl internal functions over our own? */
100	#ifndef CORO_PREFER_PERL_FUNCTIONS	65	#ifndef CORO_PREFER_PERL_FUNCTIONS
101	# define CORO_PREFER_PERL_FUNCTIONS 0	66	# define CORO_PREFER_PERL_FUNCTIONS 0
…		…
192	typedef struct coro_cctx	157	typedef struct coro_cctx
193	{	158	{
194	struct coro_cctx *next;	159	struct coro_cctx *next;
195		160
196	/* the stack */	161	/* the stack */
197	void *sptr;	162	struct coro_stack stack;
198	size_t ssize;
199		163
200	/* cpu state */	164	/* cpu state */
201	void idle_sp; / sp of top-level transfer/schedule/cede call */	165	void idle_sp; / sp of top-level transfer/schedule/cede call */
202	#ifndef NDEBUG	166	#ifndef NDEBUG
203	JMPENV idle_te; / same as idle_sp, but for top_env */	167	JMPENV idle_te; / same as idle_sp, but for top_env */
…		…
312	#define coro_nready coroapi.nready	276	#define coro_nready coroapi.nready
313		277
314	/ JIT *******************************************************************/	278	/ JIT *******************************************************************/
315		279
316	#if CORO_JIT	280	#if CORO_JIT
317	/* APPLE doesn't have HAVE_MMAP though */	281	/* APPLE doesn't have mmap though */
318	#define CORO_JIT_UNIXY (__linux \|\| __FreeBSD__ \|\| __OpenBSD__ \|\| __NetBSD__ \|\| __solaris \|\| __APPLE__)	282	#define CORO_JIT_UNIXY (__linux \|\| __FreeBSD__ \|\| __OpenBSD__ \|\| __NetBSD__ \|\| __solaris \|\| __APPLE__)
319	#ifndef CORO_JIT_TYPE	283	#ifndef CORO_JIT_TYPE
320	#if __x86_64 && CORO_JIT_UNIXY	284	#if ECB_AMD64 && CORO_JIT_UNIXY
321	#define CORO_JIT_TYPE "amd64-unix"	285	#define CORO_JIT_TYPE "amd64-unix"
322	#elif __i386 && CORO_JIT_UNIXY	286	#elif __i386 && CORO_JIT_UNIXY
323	#define CORO_JIT_TYPE "x86-unix"	287	#define CORO_JIT_TYPE "x86-unix"
324	#endif	288	#endif
325	#endif	289	#endif
326	#endif	290	#endif
327		291
328	#if !defined(CORO_JIT_TYPE) \|\| !HAVE_MMAP	292	#if !defined(CORO_JIT_TYPE) \|\| _POSIX_MEMORY_PROTECTION <= 0
329	#undef CORO_JIT	293	#undef CORO_JIT
330	#endif	294	#endif
331		295
332	#if CORO_JIT	296	#if CORO_JIT
333	typedef void (load_save_perl_slots_type)(perl_slots );	297	typedef void (load_save_perl_slots_type)(perl_slots );
…		…
547	coro_derive_padlist (pTHX_ CV *cv)	511	coro_derive_padlist (pTHX_ CV *cv)
548	{	512	{
549	PADLIST *padlist = CvPADLIST (cv);	513	PADLIST *padlist = CvPADLIST (cv);
550	PADLIST *newpadlist;	514	PADLIST *newpadlist;
551	PAD *newpad;	515	PAD *newpad;
552	PADOFFSET const off = PadlistMAX (padlist) + 1;	516	PADOFFSET off = PadlistMAX (padlist) + 1;
553		517
554	newPADLIST(newpadlist);	518	#if NEWPADAPI
555	#if !PERL_VERSION_ATLEAST(5,15,3)	519
556	/* Padlists are AvREAL as of 5.15.3. See perl bug #98092 and perl commit 7d953ba. */	520	while (!PadlistARRAY (padlist)[off - 1])
557	AvREAL_off (newpadlist);	521	--off;
558	#endif	522
		523	Perl_pad_push (aTHX_ padlist, off);
		524	newpad = PadlistARRAY (padlist)[off];
		525	PadlistARRAY (padlist)[off] = 0;
		526
		527	#else
		528
559	#if PERL_VERSION_ATLEAST (5,10,0)	529	#if PERL_VERSION_ATLEAST (5,10,0)
560	Perl_pad_push (aTHX_ padlist, off);	530	Perl_pad_push (aTHX_ padlist, off);
561	#else	531	#else
562	Perl_pad_push (aTHX_ padlist, off, 1);	532	Perl_pad_push (aTHX_ padlist, off, 1);
563	#endif	533	#endif
		534
564	newpad = PadlistARRAY (padlist)[off];	535	newpad = PadlistARRAY (padlist)[off];
565	PadlistMAX (padlist) = off - 1;	536	PadlistMAX (padlist) = off - 1;
		537
		538	#endif
		539
		540	newPADLIST (newpadlist);
		541	#if !PERL_VERSION_ATLEAST(5,15,3)
		542	/* Padlists are AvREAL as of 5.15.3. See perl bug #98092 and perl commit 7d953ba. */
		543	AvREAL_off (newpadlist);
		544	#endif
566		545
567	/* Already extended to 2 elements by newPADLIST. */	546	/* Already extended to 2 elements by newPADLIST. */
568	PadlistMAX (newpadlist) = 1;	547	PadlistMAX (newpadlist) = 1;
569	PadlistNAMES (newpadlist) = (PADNAMELIST *)SvREFCNT_inc_NN (PadlistNAMES (padlist));	548	PadlistNAMES (newpadlist) = (PADNAMELIST *)SvREFCNT_inc_NN (PadlistNAMES (padlist));
570	PadlistARRAY (newpadlist)[1] = newpad;	549	PadlistARRAY (newpadlist)[1] = newpad;
…		…
593	SvREFCNT_dec (pad);	572	SvREFCNT_dec (pad);
594	}	573	}
595		574
596	SvREFCNT_dec (PadlistNAMES (padlist));	575	SvREFCNT_dec (PadlistNAMES (padlist));
597		576
598	#ifdef NEWPADAPI	577	#if NEWPADAPI
599	Safefree (PadlistARRAY (padlist));	578	Safefree (PadlistARRAY (padlist));
600	Safefree (padlist);	579	Safefree (padlist);
601	#else	580	#else
602	AvFILLp (padlist) = -1;	581	AvFILLp (padlist) = -1;
603	AvREAL_off (padlist);	582	AvREAL_off (padlist);
…		…
1519	static coro_cctx *	1498	static coro_cctx *
1520	cctx_new_empty (void)	1499	cctx_new_empty (void)
1521	{	1500	{
1522	coro_cctx *cctx = cctx_new ();	1501	coro_cctx *cctx = cctx_new ();
1523		1502
1524	cctx->sptr = 0;	1503	cctx->stack.sptr = 0;
1525	coro_create (&cctx->cctx, 0, 0, 0, 0);	1504	coro_create (&cctx->cctx, 0, 0, 0, 0);
1526		1505
1527	return cctx;	1506	return cctx;
1528	}	1507	}
1529		1508
1530	/* create a new cctx suitable as destination/running a perl interpreter */	1509	/* create a new cctx suitable as destination/running a perl interpreter */
1531	static coro_cctx *	1510	static coro_cctx *
1532	cctx_new_run (void)	1511	cctx_new_run (void)
1533	{	1512	{
1534	coro_cctx *cctx = cctx_new ();	1513	coro_cctx *cctx = cctx_new ();
1535	void *stack_start;
1536	size_t stack_size;
1537		1514
1538	#if HAVE_MMAP	1515	if (!coro_stack_alloc (&cctx->stack, cctx_stacksize))
1539	cctx->ssize = ((cctx_stacksize * sizeof (long) + PAGESIZE - 1) / PAGESIZE + CORO_STACKGUARD) * PAGESIZE;
1540	/* mmap supposedly does allocate-on-write for us */
1541	cctx->sptr = mmap (0, cctx->ssize, PROT_READ \| PROT_WRITE \| PROT_EXEC, MAP_ANONYMOUS, -1, 0);
1542
1543	if (cctx->sptr != (void *)-1)
1544	{
1545	#if CORO_STACKGUARD
1546	mprotect (cctx->sptr, CORO_STACKGUARD * PAGESIZE, PROT_NONE);
1547	#endif
1548	stack_start = (char )cctx->sptr + CORO_STACKGUARD PAGESIZE;
1549	stack_size = cctx->ssize - CORO_STACKGUARD * PAGESIZE;
1550	cctx->flags \|= CC_MAPPED;
1551	}	1516	{
1552	else
1553	#endif
1554	{
1555	cctx->ssize = cctx_stacksize * (long)sizeof (long);
1556	New (0, cctx->sptr, cctx_stacksize, long);
1557
1558	if (!cctx->sptr)
1559	{
1560	perror ("FATAL: unable to allocate stack for coroutine, exiting.");	1517	perror ("FATAL: unable to allocate stack for coroutine, exiting.");
1561	_exit (EXIT_FAILURE);	1518	_exit (EXIT_FAILURE);
1562	}
1563
1564	stack_start = cctx->sptr;
1565	stack_size = cctx->ssize;
1566	}	1519	}
1567		1520
1568	#if CORO_USE_VALGRIND
1569	cctx->valgrind_id = VALGRIND_STACK_REGISTER ((char )stack_start, (char )stack_start + stack_size);
1570	#endif
1571
1572	coro_create (&cctx->cctx, cctx_run, (void *)cctx, stack_start, stack_size);	1521	coro_create (&cctx->cctx, cctx_run, (void *)cctx, cctx->stack.sptr, cctx->stack.ssze);
1573		1522
1574	return cctx;	1523	return cctx;
1575	}	1524	}
1576		1525
1577	static void	1526	static void
…		…
1583	assert (("FATAL: tried to destroy current cctx", cctx != cctx_current));	1532	assert (("FATAL: tried to destroy current cctx", cctx != cctx_current));
1584		1533
1585	--cctx_count;	1534	--cctx_count;
1586	coro_destroy (&cctx->cctx);	1535	coro_destroy (&cctx->cctx);
1587		1536
1588	/* coro_transfer creates new, empty cctx's */	1537	coro_stack_free (&cctx->stack);
1589	if (cctx->sptr)
1590	{
1591	#if CORO_USE_VALGRIND
1592	VALGRIND_STACK_DEREGISTER (cctx->valgrind_id);
1593	#endif
1594
1595	#if HAVE_MMAP
1596	if (cctx->flags & CC_MAPPED)
1597	munmap (cctx->sptr, cctx->ssize);
1598	else
1599	#endif
1600	Safefree (cctx->sptr);
1601	}
1602		1538
1603	Safefree (cctx);	1539	Safefree (cctx);
1604	}	1540	}
1605		1541
1606	/* wether this cctx should be destructed */	1542	/* wether this cctx should be destructed */
…		…
1625	}	1561	}
1626		1562
1627	static void	1563	static void
1628	cctx_put (coro_cctx *cctx)	1564	cctx_put (coro_cctx *cctx)
1629	{	1565	{
1630	assert (("FATAL: cctx_put called on non-initialised cctx in Coro (please report)", cctx->sptr));	1566	assert (("FATAL: cctx_put called on non-initialised cctx in Coro (please report)", cctx->stack.sptr));
1631		1567
1632	/* free another cctx if overlimit */	1568	/* free another cctx if overlimit */
1633	if (ecb_expect_false (cctx_idle >= cctx_max_idle))	1569	if (ecb_expect_false (cctx_idle >= cctx_max_idle))
1634	{	1570	{
1635	coro_cctx *first = cctx_first;	1571	coro_cctx *first = cctx_first;
…		…
2174	{	2110	{
2175	AV *od = coro->on_destroy;	2111	AV *od = coro->on_destroy;
2176		2112
2177	if (!od)	2113	if (!od)
2178	return;	2114	return;
		2115
		2116	coro->on_destroy = 0;
		2117	sv_2mortal ((SV *)od);
2179		2118
2180	while (AvFILLp (od) >= 0)	2119	while (AvFILLp (od) >= 0)
2181	{	2120	{
2182	SV *cb = sv_2mortal (av_pop (od));	2121	SV *cb = sv_2mortal (av_pop (od));
2183		2122
…		…
3227	/* it quickly returns */	3166	/* it quickly returns */
3228	if (CORO_THROW)	3167	if (CORO_THROW)
3229	return 0;	3168	return 0;
3230		3169
3231	/* one element that is an RV? repeat! */	3170	/* one element that is an RV? repeat! */
3232	if (AvFILLp (state) == 0 && SvROK (AvARRAY (state)[0]))	3171	if (AvFILLp (state) == 0 && SvTYPE (AvARRAY (state)[0]) != SVt_PV)
3233	return 1;	3172	return 1;
3234		3173
3235	/* restore status */	3174	/* restore status */
3236	{	3175	{
3237	SV *data_sv = av_pop (state);	3176	SV *data_sv = av_pop (state);
…		…
3470	#ifdef USE_ITHREADS	3409	#ifdef USE_ITHREADS
3471	# if CORO_PTHREAD	3410	# if CORO_PTHREAD
3472	coro_thx = PERL_GET_CONTEXT;	3411	coro_thx = PERL_GET_CONTEXT;
3473	# endif	3412	# endif
3474	#endif	3413	#endif
3475	BOOT_PAGESIZE;
3476
3477	/* perl defines these to check for existance first, but why it doesn't */	3414	/* perl defines these to check for existance first, but why it doesn't */
3478	/* just create them one at init time is not clear to me, except for */	3415	/* just create them one at init time is not clear to me, except for */
3479	/* programs trying to delete them, but... */	3416	/* programs trying to delete them, but... */
3480	/* anyway, we declare this as invalid and make sure they are initialised here */	3417	/* anyway, we declare this as invalid and make sure they are initialised here */
3481	DEFSV;	3418	DEFSV;
…		…
3551	void	3488	void
3552	transfer (...)	3489	transfer (...)
3553	PROTOTYPE: $$	3490	PROTOTYPE: $$
3554	CODE:	3491	CODE:
3555	CORO_EXECUTE_SLF_XS (slf_init_transfer);	3492	CORO_EXECUTE_SLF_XS (slf_init_transfer);
3556
3557	void
3558	_exit (int code)
3559	PROTOTYPE: $
3560	CODE:
3561	_exit (code);
3562		3493
3563	SV *	3494	SV *
3564	clone (Coro::State coro)	3495	clone (Coro::State coro)
3565	CODE:	3496	CODE:
3566	{	3497	{
…		…
3621	void	3552	void
3622	list ()	3553	list ()
3623	PROTOTYPE:	3554	PROTOTYPE:
3624	PPCODE:	3555	PPCODE:
3625	{	3556	{
3626	struct coro *coro;	3557	struct coro *coro;
3627	for (coro = coro_first; coro; coro = coro->next)	3558	for (coro = coro_first; coro; coro = coro->next)
3628	if (coro->hv)	3559	if (coro->hv)
3629	XPUSHs (sv_2mortal (newRV_inc ((SV *)coro->hv)));	3560	XPUSHs (sv_2mortal (newRV_inc ((SV *)coro->hv)));
3630	}	3561	}
3631		3562
…		…
3793		3724
3794	void	3725	void
3795	times (Coro::State self)	3726	times (Coro::State self)
3796	PPCODE:	3727	PPCODE:
3797	{	3728	{
3798	struct coro *current = SvSTATE (coro_current);	3729	struct coro *current = SvSTATE (coro_current);
3799		3730
3800	if (ecb_expect_false (current == self))	3731	if (ecb_expect_false (current == self))
3801	{	3732	{
3802	coro_times_update ();	3733	coro_times_update ();
3803	coro_times_add (SvSTATE (coro_current));	3734	coro_times_add (SvSTATE (coro_current));
…		…
4078	on_leave = 1	4009	on_leave = 1
4079	PROTOTYPE: &	4010	PROTOTYPE: &
4080	CODE:	4011	CODE:
4081	{	4012	{
4082	struct coro *coro = SvSTATE_current;	4013	struct coro *coro = SvSTATE_current;
4083	AV **avp = ix ? &coro->on_leave : &coro->on_enter;	4014	AV **avp = ix ? &coro->on_leave : &coro->on_enter;
4084		4015
4085	block = s_get_cv_croak (block);	4016	block = s_get_cv_croak (block);
4086		4017
4087	if (!*avp)	4018	if (!*avp)
4088	*avp = newAV ();	4019	*avp = newAV ();
…		…
4108		4039
4109	SV *	4040	SV *
4110	new (SV klass, SV count = 0)	4041	new (SV klass, SV count = 0)
4111	CODE:	4042	CODE:
4112	{	4043	{
4113	int semcnt = 1;	4044	int semcnt = 1;
4114		4045
4115	if (count)	4046	if (count)
4116	{	4047	{
4117	SvGETMAGIC (count);	4048	SvGETMAGIC (count);
4118		4049
…		…
4178	XSRETURN_NO;	4109	XSRETURN_NO;
4179	}	4110	}
4180		4111
4181	void	4112	void
4182	waiters (SV *self)	4113	waiters (SV *self)
4183	PPCODE:	4114	PPCODE:
4184	{	4115	{
4185	AV av = (AV )SvRV (self);	4116	AV av = (AV )SvRV (self);
4186	int wcount = AvFILLp (av) + 1 - 1;	4117	int wcount = AvFILLp (av) + 1 - 1;
4187		4118
4188	if (GIMME_V == G_SCALAR)	4119	if (GIMME_V == G_SCALAR)
…		…
4200		4131
4201	void	4132	void
4202	_may_delete (SV *sem, int count, unsigned int extra_refs)	4133	_may_delete (SV *sem, int count, unsigned int extra_refs)
4203	PPCODE:	4134	PPCODE:
4204	{	4135	{
4205	AV av = (AV )SvRV (sem);	4136	AV av = (AV )SvRV (sem);
4206		4137
4207	if (SvREFCNT ((SV *)av) == 1 + extra_refs	4138	if (SvREFCNT ((SV *)av) == 1 + extra_refs
4208	&& AvFILLp (av) == 0 /* no waiters, just count */	4139	&& AvFILLp (av) == 0 /* no waiters, just count */
4209	&& SvIV (AvARRAY (av)[0]) == count)	4140	&& SvIV (AvARRAY (av)[0]) == count)
4210	XSRETURN_YES;	4141	XSRETURN_YES;
…		…
4231		4162
4232	void	4163	void
4233	broadcast (SV *self)	4164	broadcast (SV *self)
4234	CODE:	4165	CODE:
4235	{	4166	{
4236	AV av = (AV )SvRV (self);	4167	AV av = (AV )SvRV (self);
4237	coro_signal_wake (aTHX_ av, AvFILLp (av));	4168	coro_signal_wake (aTHX_ av, AvFILLp (av));
4238	}	4169	}
4239		4170
4240	void	4171	void
4241	send (SV *self)	4172	send (SV *self)
…		…
4249	SvIVX (AvARRAY (av)[0]) = 1; /* remember the signal */	4180	SvIVX (AvARRAY (av)[0]) = 1; /* remember the signal */
4250	}	4181	}
4251		4182
4252	IV	4183	IV
4253	awaited (SV *self)	4184	awaited (SV *self)
4254	CODE:	4185	CODE:
4255	RETVAL = AvFILLp ((AV *)SvRV (self)) + 1 - 1;	4186	RETVAL = AvFILLp ((AV *)SvRV (self)) + 1 - 1;
4256	OUTPUT:	4187	OUTPUT:
4257	RETVAL	4188	RETVAL
4258		4189
4259		4190
…		…
4264		4195
4265	void	4196	void
4266	_schedule (...)	4197	_schedule (...)
4267	CODE:	4198	CODE:
4268	{	4199	{
4269	static int incede;	4200	static int incede;
4270		4201
4271	api_cede_notself (aTHX);	4202	api_cede_notself (aTHX);
4272		4203
4273	++incede;	4204	++incede;
4274	while (coro_nready >= incede && api_cede (aTHX))	4205	while (coro_nready >= incede && api_cede (aTHX))
…		…
4318	{	4249	{
4319	PL_ppaddr [OP_SSELECT] = coro_old_pp_sselect;	4250	PL_ppaddr [OP_SSELECT] = coro_old_pp_sselect;
4320	coro_old_pp_sselect = 0;	4251	coro_old_pp_sselect = 0;
4321	}	4252	}
4322		4253
		4254	MODULE = Coro::State PACKAGE = Coro::Util
		4255
		4256	void
		4257	_exit (int code)
		4258	CODE:
		4259	_exit (code);
		4260
		4261	NV
		4262	time ()
		4263	CODE:
		4264	RETVAL = nvtime (aTHX);
		4265	OUTPUT:
		4266	RETVAL
		4267
		4268	NV
		4269	gettimeofday ()
		4270	PPCODE:
		4271	{
		4272	UV tv [2];
		4273	u2time (aTHX_ tv);
		4274	EXTEND (SP, 2);
		4275	PUSHs (sv_2mortal (newSVuv (tv [0])));
		4276	PUSHs (sv_2mortal (newSVuv (tv [1])));
		4277	}
		4278

Diff Legend

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

Comparing Coro/Coro/State.xs (file contents): Revision 1.425 by root, Wed Dec 5 00:14:22 2012 UTC vs. Revision 1.434 by root, Sat Nov 2 19:48:50 2013 UTC

Diff Legend

Comparing Coro/Coro/State.xs (file contents):
Revision 1.425 by root, Wed Dec 5 00:14:22 2012 UTC vs.
Revision 1.434 by root, Sat Nov 2 19:48:50 2013 UTC