| … | |
… | |
| 569 | stack->usecnt = 1; |
569 | stack->usecnt = 1; |
| 570 | stack->gencnt = ctx->gencnt = 0; |
570 | stack->gencnt = ctx->gencnt = 0; |
| 571 | if (alloc) |
571 | if (alloc) |
| 572 | { |
572 | { |
| 573 | #if HAVE_MMAP |
573 | #if HAVE_MMAP |
| 574 | stack->ssize = 128 * 1024 * sizeof (long); /* mmap should do allocate-on-write for us */ |
574 | stack->ssize = 16384 * sizeof (long); /* mmap should do allocate-on-write for us */ |
| 575 | stack->sptr = mmap (0, stack->ssize, PROT_EXEC|PROT_READ|PROT_WRITE, MAP_PRIVATE|MAP_ANONYMOUS, 0, 0); |
575 | stack->sptr = mmap (0, stack->ssize, PROT_EXEC|PROT_READ|PROT_WRITE, MAP_PRIVATE|MAP_ANONYMOUS, 0, 0); |
| 576 | if (stack->sptr == (void *)-1) |
576 | if (stack->sptr == (void *)-1) |
| 577 | #endif |
577 | #endif |
| 578 | { |
578 | { |
| 579 | /*FIXME*//*D*//* reasonable stack size! */ |
579 | /*FIXME*//*D*//* reasonable stack size! */ |
| 580 | stack->ssize = - (16384 * sizeof (long)); |
580 | stack->ssize = - (8192 * sizeof (long)); |
| 581 | New (0, stack->sptr, 16384, long); |
581 | New (0, stack->sptr, 8192, long); |
| 582 | } |
582 | } |
| 583 | } |
583 | } |
| 584 | else |
584 | else |
| 585 | stack->sptr = 0; |
585 | stack->sptr = 0; |
| 586 | |
586 | |
