| … | |
… | |
| 56 | |
56 | |
| 57 | /* optionally saved, might be zero */ |
57 | /* optionally saved, might be zero */ |
| 58 | AV *defav; |
58 | AV *defav; |
| 59 | SV *defsv; |
59 | SV *defsv; |
| 60 | SV *errsv; |
60 | SV *errsv; |
|
|
61 | /* TODO: PL_pmop might be nice && effortless to save. */ |
| 61 | |
62 | |
| 62 | /* saved global state not related to stacks */ |
63 | /* saved global state not related to stacks */ |
| 63 | U8 dowarn; |
64 | U8 dowarn; |
| 64 | I32 in_eval; |
65 | I32 in_eval; |
| 65 | |
66 | |
| … | |
… | |
| 543 | stack->refcnt = 1; |
544 | stack->refcnt = 1; |
| 544 | stack->usecnt = 1; |
545 | stack->usecnt = 1; |
| 545 | stack->gencnt = ctx->gencnt = 0; |
546 | stack->gencnt = ctx->gencnt = 0; |
| 546 | if (alloc) |
547 | if (alloc) |
| 547 | { |
548 | { |
| 548 | #ifdef HAVE_MMAP |
549 | #if HAVE_MMAP |
| 549 | stack->ssize = 128 * 1024 * sizeof (long); /* mmap should do allocate-on-write for us */ |
550 | stack->ssize = 128 * 1024 * sizeof (long); /* mmap should do allocate-on-write for us */ |
| 550 | stack->sptr = mmap (0, stack->ssize, PROT_EXEC|PROT_READ|PROT_WRITE, MAP_PRIVATE|MAP_ANONYMOUS, 0, 0); |
551 | stack->sptr = mmap (0, stack->ssize, PROT_EXEC|PROT_READ|PROT_WRITE, MAP_PRIVATE|MAP_ANONYMOUS, 0, 0); |
| 551 | if (stack->sptr == (void *)-1) |
552 | if (stack->sptr == (void *)-1) |
| 552 | #endif |
553 | #endif |
| 553 | { |
554 | { |
