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

Commits:

4 changed files:

Changes:

  • src/lisp/globals.c
    --- a/src/lisp/globals.c
    +++ b/src/lisp/globals.c
    @@ -28,8 +28,6 @@ lispobj *dynamic_1_space;
     unsigned dynamic_space_size;
     lispobj *control_stack;
     
    -
    -lispobj *control_stack_start;
     #if (defined(i386) || defined(__x86_64))
     lispobj *control_stack_end;
     #endif
    

  • src/lisp/globals.h
    --- a/src/lisp/globals.h
    +++ b/src/lisp/globals.h
    @@ -37,8 +37,6 @@ extern unsigned long binding_stack_size;
     extern unsigned long static_space_size;
     extern unsigned long control_stack_size;
     
    -extern lispobj *control_stack_start;
    -
     #if (defined(i386) || defined(__x86_64))
     extern lispobj *control_stack_end;
     #endif
    

  • src/lisp/os-common.c
    --- a/src/lisp/os-common.c
    +++ b/src/lisp/os-common.c
    @@ -424,7 +424,7 @@ guard_zones(char **yellow_start, char **red_start)
          * control stack area.
          */
     
    -    char *end = (char *) control_stack_start + control_stack_size;
    +    char *end = (char *) control_stack + control_stack_size;
     
         *red_start = end - RED_ZONE_SIZE;
         *yellow_start = *red_start - YELLOW_ZONE_SIZE;
    

  • src/lisp/solaris-os.c
    --- a/src/lisp/solaris-os.c
    +++ b/src/lisp/solaris-os.c
    @@ -436,7 +436,7 @@ static unsigned long *space_size[] = {
     #define HOLE_SIZE 0x2000
     
     void
    -make_hole(int index)
    +make_hole(int k)
     {
         os_vm_address_t hole;