[Git][cmucl/cmucl][rtoy-mmap-anon-control-and-binding-stacks] Fix compiler warnings.

Raymond Toy rtoy at common-lisp.net
Thu May 12 02:28:57 UTC 2016


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


Commits:
e9838801 by Raymond Toy at 2016-05-11T19:28:39-07:00
Fix compiler warnings.

- - - - -


1 changed file:

- src/lisp/solaris-os.c


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;
 



View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/commit/e9838801cfb11544d7650adcca40363c84054954
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/cmucl-cvs/attachments/20160512/b2926ef7/attachment.html>


More information about the cmucl-cvs mailing list