… | |
… | |
114 | # ifdef SYS_clock_gettime |
114 | # ifdef SYS_clock_gettime |
115 | # define coro_clock_gettime(id, ts) syscall (SYS_clock_gettime, (id), (ts)) |
115 | # define coro_clock_gettime(id, ts) syscall (SYS_clock_gettime, (id), (ts)) |
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 |
|
|
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)) |
119 | #endif |
125 | #endif |
120 | |
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 |
… | |
… | |
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 * |