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
    @@ -199,8 +199,8 @@ boolean valid_addr(os_vm_address_t addr)
     #ifndef GENCGC
     	    || in_range_p(addr, DYNAMIC_1_SPACE_START, dynamic_space_size)
     #endif
    -	    || in_range_p(addr, control_stack, control_stack_size)
    -	    || in_range_p(addr, binding_stack, binding_stack_size));
    +	    || in_range_p(addr, (lispobj)control_stack, control_stack_size)
    +	    || in_range_p(addr, (lispobj)binding_stack, binding_stack_size));
     }
     
     /* ---------------------------------------------------------------- */
    @@ -414,7 +414,7 @@ os_vm_address_t round_up_sparse_size(os_vm_address_t addr)
      * below.
      */
     static os_vm_address_t spaces[] = {
    -    READ_ONLY_SPACE_START, STATIC_SPACE_START
    +    READ_ONLY_SPACE_START, STATIC_SPACE_START,
     #ifndef RELOCATABLE_STACK_START
         BINDING_STACK_START,
         CONTROL_STACK_START
    @@ -441,7 +441,7 @@ static unsigned long *space_size[] = {
     #define HOLE_SIZE 0x2000
     
     void
    -make_hole(char *space_start, size_t space_size)
    +make_hole(os_vm_address_t space_start, size_t space_size)
     {
         os_vm_address_t hole;