X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Fgc-common.c;h=a3e736654be0c02342b217495b2324743f702361;hb=037b95d81ad246aca72388ce7315df972e9545f5;hp=26bc938b8a803ecd4d31d8eaa5a8496362b6ac06;hpb=fadb4cdcb7da29210301103f6f06946fc34f9953;p=sbcl.git

diff --git a/src/runtime/gc-common.c b/src/runtime/gc-common.c
index 26bc938..a3e7366 100644
--- a/src/runtime/gc-common.c
+++ b/src/runtime/gc-common.c
@@ -395,6 +395,7 @@ size_code_header(lispobj *where)
     return nwords;
 }
 
+#ifndef LISP_FEATURE_X86
 static int
 scav_return_pc_header(lispobj *where, lispobj object)
 {
@@ -403,6 +404,7 @@ scav_return_pc_header(lispobj *where, lispobj object)
 	 (unsigned long) object);
     return 0; /* bogus return value to satisfy static type checking */
 }
+#endif /* LISP_FEATURE_X86 */
 
 static lispobj
 trans_return_pc_header(lispobj object)
@@ -447,6 +449,7 @@ scav_closure_header(lispobj *where, lispobj object)
 }
 #endif
 
+#ifndef LISP_FEATURE_X86
 static int
 scav_fun_header(lispobj *where, lispobj object)
 {
@@ -455,6 +458,7 @@ scav_fun_header(lispobj *where, lispobj object)
 	 (unsigned long) object);
     return 0; /* bogus return value to satisfy static type checking */
 }
+#endif /* LISP_FEATURE_X86 */
 
 static lispobj
 trans_fun_header(lispobj object)