… | |
… | |
279 | |
279 | |
280 | #if CORO_JIT |
280 | #if CORO_JIT |
281 | /* APPLE doesn't have mmap though */ |
281 | /* APPLE doesn't have mmap though */ |
282 | #define CORO_JIT_UNIXY (__linux || __FreeBSD__ || __OpenBSD__ || __NetBSD__ || __solaris || __APPLE__) |
282 | #define CORO_JIT_UNIXY (__linux || __FreeBSD__ || __OpenBSD__ || __NetBSD__ || __solaris || __APPLE__) |
283 | #ifndef CORO_JIT_TYPE |
283 | #ifndef CORO_JIT_TYPE |
284 | #if __x86_64 && CORO_JIT_UNIXY |
284 | #if ECB_AMD64 && CORO_JIT_UNIXY |
285 | #define CORO_JIT_TYPE "amd64-unix" |
285 | #define CORO_JIT_TYPE "amd64-unix" |
286 | #elif __i386 && CORO_JIT_UNIXY |
286 | #elif __i386 && CORO_JIT_UNIXY |
287 | #define CORO_JIT_TYPE "x86-unix" |
287 | #define CORO_JIT_TYPE "x86-unix" |
288 | #endif |
288 | #endif |
289 | #endif |
289 | #endif |
… | |
… | |
3471 | transfer (...) |
3471 | transfer (...) |
3472 | PROTOTYPE: $$ |
3472 | PROTOTYPE: $$ |
3473 | CODE: |
3473 | CODE: |
3474 | CORO_EXECUTE_SLF_XS (slf_init_transfer); |
3474 | CORO_EXECUTE_SLF_XS (slf_init_transfer); |
3475 | |
3475 | |
3476 | void |
|
|
3477 | _exit (int code) |
|
|
3478 | PROTOTYPE: $ |
|
|
3479 | CODE: |
|
|
3480 | _exit (code); |
|
|
3481 | |
|
|
3482 | SV * |
3476 | SV * |
3483 | clone (Coro::State coro) |
3477 | clone (Coro::State coro) |
3484 | CODE: |
3478 | CODE: |
3485 | { |
3479 | { |
3486 | #if CORO_CLONE |
3480 | #if CORO_CLONE |
… | |
… | |
4237 | { |
4231 | { |
4238 | PL_ppaddr [OP_SSELECT] = coro_old_pp_sselect; |
4232 | PL_ppaddr [OP_SSELECT] = coro_old_pp_sselect; |
4239 | coro_old_pp_sselect = 0; |
4233 | coro_old_pp_sselect = 0; |
4240 | } |
4234 | } |
4241 | |
4235 | |
|
|
4236 | MODULE = Coro::State PACKAGE = Coro::Util |
|
|
4237 | |
|
|
4238 | void |
|
|
4239 | _exit (int code) |
|
|
4240 | CODE: |
|
|
4241 | _exit (code); |
|
|
4242 | |
|
|
4243 | NV |
|
|
4244 | time () |
|
|
4245 | CODE: |
|
|
4246 | RETVAL = nvtime (aTHX); |
|
|
4247 | OUTPUT: |
|
|
4248 | RETVAL |
|
|
4249 | |
|
|
4250 | NV |
|
|
4251 | gettimeofday () |
|
|
4252 | PPCODE: |
|
|
4253 | { |
|
|
4254 | UV tv [2]; |
|
|
4255 | u2time (aTHX_ tv); |
|
|
4256 | EXTEND (SP, 2); |
|
|
4257 | PUSHs (sv_2mortal (newSVuv (tv [0]))); |
|
|
4258 | PUSHs (sv_2mortal (newSVuv (tv [1]))); |
|
|
4259 | } |
|
|
4260 | |