X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fruntime%2Fgc-internal.h;h=d7123a4b33f6c98c3bdc222b01e9b4825ce75a64;hb=ed1910efb36f71b5ebe33b5ffffd7195e15644de;hp=a9a3802e5a15f27406a7122be7ef0b39e87b7a7a;hpb=40f6a8f39da1faba169a081dfd3aeb7ad8391f55;p=sbcl.git

diff --git a/src/runtime/gc-internal.h b/src/runtime/gc-internal.h
index a9a3802..d7123a4 100644
--- a/src/runtime/gc-internal.h
+++ b/src/runtime/gc-internal.h
@@ -18,6 +18,7 @@
 
 #include <genesis/simple-fun.h>
 #include "thread.h"
+#include "interr.h"
 
 #ifdef LISP_FEATURE_GENCGC
 #include "gencgc-internal.h"
@@ -157,7 +158,8 @@ lispobj *gc_search_space(lispobj *start, size_t words, lispobj *pointer);
 extern int looks_like_valid_lisp_pointer_p(lispobj pointer, lispobj *start_addr);
 
 extern void scavenge_control_stack(struct thread *th);
-extern void scrub_control_stack();
+extern void scrub_control_stack(void);
+extern void scrub_thread_control_stack(struct thread *);
 
 #include "fixnump.h"