1.1.13: will be tagged as "sbcl-1.1.13"

[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);
-#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:
@@ -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
 
-    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),