| … | |
… | |
| 7 | #include <signal.h> |
7 | #include <signal.h> |
| 8 | |
8 | |
| 9 | #ifdef HAVE_MMAP |
9 | #ifdef HAVE_MMAP |
| 10 | # include <unistd.h> |
10 | # include <unistd.h> |
| 11 | # include <sys/mman.h> |
11 | # include <sys/mman.h> |
| 12 | # ifndef MAP_ANON |
|
|
| 13 | # ifdef MAP_ANONYMOUS |
12 | # ifndef MAP_ANONYMOUS |
| 14 | # define MAP_ANON MAP_ANONYMOUS |
13 | # ifdef MAP_ANON |
|
|
14 | # define MAP_ANONYMOUS MAP_ANON |
| 15 | # else |
15 | # else |
| 16 | # undef HAVE_MMAP |
16 | # undef HAVE_MMAP |
| 17 | # endif |
17 | # endif |
| 18 | # endif |
18 | # endif |
| 19 | #endif |
19 | #endif |
| … | |
… | |
| 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_ANON, 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 | { |
| 554 | /*FIXME*//*D*//* reasonable stack size! */ |
555 | /*FIXME*//*D*//* reasonable stack size! */ |
| 555 | stack->ssize = -4096 * sizeof (long); |
556 | stack->ssize = -4096 * sizeof (long); |
