X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Fpurify.c;h=772b905b58385f47160f6fcd97cab5337c7ef7eb;hb=34dcb46f78a01d543756703d7ccdf3d999a134d0;hp=843b82195964f1c5c9ea72ceaedf0364301703c1;hpb=976505f5476932372cae826a7bc5f3c94a09fa98;p=sbcl.git

diff --git a/src/runtime/purify.c b/src/runtime/purify.c
index 843b821..772b905 100644
--- a/src/runtime/purify.c
+++ b/src/runtime/purify.c
@@ -1476,10 +1476,9 @@ purify(lispobj static_roots, lispobj read_only_roots)
      * calling SCRUB-CONTROL-STACK - this zeros the stack on the x86. */
 #ifndef __i386__
     os_zero((os_vm_address_t) current_control_stack_pointer,
-            (os_vm_size_t) (THREAD_CONTROL_STACK_SIZE -
-                            ((current_control_stack_pointer -
-			      all_threads->control_stack_start)
-			     * sizeof(lispobj))));
+            (os_vm_size_t)
+	    ((all_threads->control_stack_end -
+	      current_control_stack_pointer) * sizeof(lispobj)));
 #endif
 
     /* It helps to update the heap free pointers so that free_heap can