X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Farch.h;h=02a5d1897693ce6622cfc3022e0b0d43fe9c4e1b;hb=b8f63d9b4e978bec3bfc1f4fc471e5ed946781fd;hp=14ba2f4b011f50df38be2b022a49f8a424a7c6dd;hpb=a530bbe337109d898d5b4a001fc8f1afa3b5dc39;p=sbcl.git

diff --git a/src/runtime/arch.h b/src/runtime/arch.h
index 14ba2f4..02a5d18 100644
--- a/src/runtime/arch.h
+++ b/src/runtime/arch.h
@@ -9,10 +9,6 @@
  * files for more information.
  */
 
-/*
- * $Header$
- */
-
 #ifndef __ARCH_H__
 #define __ARCH_H__
 
@@ -35,5 +31,6 @@ extern lispobj funcall1(lispobj function, lispobj arg0);
 extern lispobj funcall2(lispobj function, lispobj arg0, lispobj arg1);
 extern lispobj funcall3(lispobj function, lispobj arg0, lispobj arg1,
 			lispobj arg2);
+extern lispobj *component_ptr_from_pc(lispobj *pc);
 
 #endif /* __ARCH_H__ */