… | |
… | |
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 | |
4083 | SV * |
4089 | SV * |