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:
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;