… | |
… | |
294 | |
294 | |
295 | #if CORO_JIT |
295 | #if CORO_JIT |
296 | #ifndef CORO_JIT_TYPE |
296 | #ifndef CORO_JIT_TYPE |
297 | #if __x86_64 && (__linux || __FreeBSD__ || __OpenBSD__ || __NetBSD__ || __solaris) |
297 | #if __x86_64 && (__linux || __FreeBSD__ || __OpenBSD__ || __NetBSD__ || __solaris) |
298 | #define CORO_JIT_TYPE "amd64-unix" |
298 | #define CORO_JIT_TYPE "amd64-unix" |
|
|
299 | typedef void (*load_save_perl_slots_type)(perl_slots *); |
|
|
300 | #elif __i386 && (__linux || __FreeBSD__ || __OpenBSD__ || __NetBSD__ || __solaris) |
|
|
301 | #define CORO_JIT_TYPE "x86-unix" |
299 | typedef void (*load_save_perl_slots_type)(perl_slots *); |
302 | typedef void (*load_save_perl_slots_type)(perl_slots *); |
300 | #else |
303 | #else |
301 | #undef CORO_JIT |
304 | #undef CORO_JIT |
302 | #endif |
305 | #endif |
303 | #endif |
306 | #endif |
… | |
… | |
3460 | time_init (aTHX); |
3463 | time_init (aTHX); |
3461 | |
3464 | |
3462 | assert (("PRIO_NORMAL must be 0", !CORO_PRIO_NORMAL)); |
3465 | assert (("PRIO_NORMAL must be 0", !CORO_PRIO_NORMAL)); |
3463 | #if CORO_JIT |
3466 | #if CORO_JIT |
3464 | PUTBACK; |
3467 | PUTBACK; |
3465 | require_pv ("Coro/jit-" CORO_JIT_TYPE ".pl"); |
3468 | eval_pv ("require 'Coro/jit-" CORO_JIT_TYPE ".pl'", 1); |
3466 | jit_init (aTHX); |
3469 | jit_init (aTHX); |
3467 | perl_eval_pv ("undef &Coro::State::_jit", 1); |
3470 | perl_eval_pv ("undef &Coro::State::_jit", 1); |
3468 | SPAGAIN; |
3471 | SPAGAIN; |
3469 | #endif |
3472 | #endif |
3470 | } |
3473 | } |