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

Commits: 67befdb5 by Raymond Toy at 2015-10-03T13:55:50Z Fix typo: index -> k.

- - - - - 1aa6477b by Raymond Toy at 2015-10-03T13:56:20Z The start of the control stack is control_stack, not control_stack_start.

- - - - - 65b5ed77 by Raymond Toy at 2015-10-03T13:56:47Z The start of the control stack is control_stack, not control_stack_start.

- - - - -

4 changed files:

- src/lisp/globals.c - src/lisp/globals.h - src/lisp/os-common.c - src/lisp/solaris-os.c

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;

View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/compare/4b838e3f56bbfb80f9d7eee84...