projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Reduce random casting in looks_like_valid_lisp_pointer_p().
[sbcl.git]
/
src
/
runtime
/
purify.c
diff --git
a/src/runtime/purify.c
b/src/runtime/purify.c
index
c740158
..
145ea3c
100644
(file)
--- a/
src/runtime/purify.c
+++ b/
src/runtime/purify.c
@@
-496,12
+496,6
@@
ptrans_otherptr(lispobj thing, lispobj header, boolean constant)
#endif
case SAP_WIDETAG:
return ptrans_unboxed(thing, header);
#endif
case SAP_WIDETAG:
return ptrans_unboxed(thing, header);
-#ifdef LUTEX_WIDETAG
- case LUTEX_WIDETAG:
- gencgc_unregister_lutex((struct lutex *) native_pointer(thing));
- return ptrans_unboxed(thing, header);
-#endif
-
case RATIO_WIDETAG:
case COMPLEX_WIDETAG:
case SIMPLE_ARRAY_WIDETAG:
case RATIO_WIDETAG:
case COMPLEX_WIDETAG:
case SIMPLE_ARRAY_WIDETAG:
@@
-1014,8
+1008,7
@@
purify(lispobj static_roots, lispobj read_only_roots)
clear_auto_gc_trigger(); /* restore mmap as it was given by os */
#endif
clear_auto_gc_trigger(); /* restore mmap as it was given by os */
#endif
- os_zero((os_vm_address_t) current_dynamic_space,
- (os_vm_size_t) dynamic_space_size);
+ os_zero((os_vm_address_t) current_dynamic_space, dynamic_space_size);
/* Zero the stack. */
os_zero((os_vm_address_t) access_control_stack_pointer(all_threads),
/* Zero the stack. */
os_zero((os_vm_address_t) access_control_stack_pointer(all_threads),