ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/Coro/Coro/State.xs
(Generate patch)

Comparing Coro/Coro/State.xs (file contents):
Revision 1.469 by root, Fri Jul 14 02:43:50 2017 UTC vs.
Revision 1.471 by root, Fri Jul 14 23:20:07 2017 UTC

116# define CORO_CLOCK_MONOTONIC 1 116# define CORO_CLOCK_MONOTONIC 1
117# define CORO_CLOCK_THREAD_CPUTIME_ID 3 117# define CORO_CLOCK_THREAD_CPUTIME_ID 3
118# endif 118# endif
119#endif 119#endif
120 120
121/* one off bugfix for perl 5.22 */
122#if PERL_VERSION_ATLEAST(5,22,0) && !PERL_VERSION_ATLEAST(5,24,0)
123# undef PadlistNAMES
124# define PadlistNAMES(pl) *((PADNAMELIST **)PadlistARRAY (pl))
125#endif
126
121#if PERL_VERSION_ATLEAST(5,24,0) 127#if PERL_VERSION_ATLEAST(5,24,0)
122# define SUB_ARGARRAY PL_curpad[0] 128# define SUB_ARGARRAY PL_curpad[0]
123#else 129#else
124# define SUB_ARGARRAY (SV *)cx->blk_sub.argarray 130# define SUB_ARGARRAY (SV *)cx->blk_sub.argarray
125#endif 131#endif
126 132
127/* perl usually suppressed asserts. for debugging, we sometimes force it to be on */ 133/* perl usually suppresses asserts. for debugging, we sometimes force it to be on */
128#if 0 134#if 0
129# undef NDEBUG 135# undef NDEBUG
130# include <assert.h> 136# include <assert.h>
131#endif 137#endif
132 138
4073 coroapi.enterleave_hook = api_enterleave_hook; 4079 coroapi.enterleave_hook = api_enterleave_hook;
4074 coroapi.enterleave_unhook = api_enterleave_unhook; 4080 coroapi.enterleave_unhook = api_enterleave_unhook;
4075 coroapi.enterleave_scope_hook = api_enterleave_scope_hook; 4081 coroapi.enterleave_scope_hook = api_enterleave_scope_hook;
4076 4082
4077 /*GCoroAPI = &coroapi;*/ 4083 /*GCoroAPI = &coroapi;*/
4078 sv_setiv (sv, (IV)&coroapi); 4084 sv_setiv (sv, PTR2IV (&coroapi));
4079 SvREADONLY_on (sv); 4085 SvREADONLY_on (sv);
4080 } 4086 }
4081} 4087}
4082 4088
4083SV * 4089SV *

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines