X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Fgc-common.c;h=887337e58d4c882793914bf9f57630821a67ee9e;hb=ed1910efb36f71b5ebe33b5ffffd7195e15644de;hp=96ac8df05e719371dc08bd214cc1a4c4ec5e3a91;hpb=e38636b22c17685dca58131beb88e67870ce48f6;p=sbcl.git

diff --git a/src/runtime/gc-common.c b/src/runtime/gc-common.c
index 96ac8df..887337e 100644
--- a/src/runtime/gc-common.c
+++ b/src/runtime/gc-common.c
@@ -2718,9 +2718,14 @@ maybe_gc(os_context_t *context)
  * may be what the "lame" adjective in the above comment is for. In
  * this case, exact gc may lose badly. */
 void
-scrub_control_stack(void)
+scrub_control_stack()
+{
+    scrub_thread_control_stack(arch_os_get_current_thread());
+}
+
+void
+scrub_thread_control_stack(struct thread *th)
 {
-    struct thread *th = arch_os_get_current_thread();
     os_vm_address_t guard_page_address = CONTROL_STACK_GUARD_PAGE(th);
     os_vm_address_t hard_guard_page_address = CONTROL_STACK_HARD_GUARD_PAGE(th);
 #ifdef LISP_FEATURE_C_STACK_IS_CONTROL_STACK