| … | |
… | |
| 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 | } |
