Raymond Toy pushed to branch rtoy-mmap-anon-control-and-binding-stacks at cmucl / cmucl

Commits:

1 changed file:

Changes:

  • src/lisp/solaris-os.c
    --- a/src/lisp/solaris-os.c
    +++ b/src/lisp/solaris-os.c
    @@ -435,13 +435,13 @@ static unsigned long *space_size[] = {
     #define HOLE_SIZE 0x2000
     
     void
    -make_hole(int k)
    +make_hole(void *start_start, size_t space_size)
     {
         os_vm_address_t hole;
     
         /* Make holes of the appropriate size for desired spaces */
     
    -    hole = spaces[k] + *space_size[k];
    +    hole = space_start + space_size;
     
         if (os_validate(hole, HOLE_SIZE) == NULL) {
             fprintf(stderr,
    @@ -463,8 +463,8 @@ make_holes(void)
          * stacks are handled in make_stack_holes.
          */
     
    -    make_hole(0);               /* Read-only space */
    -    make_hole(1);               /* Static space */
    +    make_hole(spaces[0], sapce_sizes[0]); /* Read-only space */
    +    make_hole(spaces[1], space_sizes[1]); /* Static space */
         
         /* Round up the dynamic_space_size to the nearest SPARSE_BLOCK_SIZE */
         dynamic_space_size = round_up_sparse_size(dynamic_space_size);
    @@ -495,8 +495,8 @@ make_holes(void)
     void
     make_stack_holes(void)
     {
    -    make_hole(2);
    -    make_hole(3);
    +    make_hole(control_stack, control_stack_size);
    +    make_hole(binding_stack, binding_stack_size);
     }
         
     void *