[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