[Git][cmucl/cmucl][rtoy-mmap-anon-control-and-binding-stacks] 3 commits: Fix typo: index -> k.

Raymond Toy rtoy at common-lisp.net
Sat Oct 3 20:56:59 UTC 2015


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/4b838e3f56bbfb80f9d7eee847644cffdf69a7e4...65b5ed7715ded275fd4d360eab85df7c5357769d
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/cmucl-cvs/attachments/20151003/a79ab87d/attachment.html>


More information about the cmucl-cvs mailing list