From 75024f91a93d23a642c2f4f68b69e32c4ac3eff3 Mon Sep 17 00:00:00 2001
From: rtoy <rtoy>
Date: Mon, 7 Feb 2005 23:23:34 +0000
Subject: [PATCH] SCAVENGER-HOOK-P wasn't updated when the sparc port got
 gencgc.  Make it so.

---
 compiler/sparc/type-vops.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/compiler/sparc/type-vops.lisp b/compiler/sparc/type-vops.lisp
index ea6ffea33..bdcf3ff96 100644
--- a/compiler/sparc/type-vops.lisp
+++ b/compiler/sparc/type-vops.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/type-vops.lisp,v 1.23 2001/10/03 16:02:31 toy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/type-vops.lisp,v 1.24 2005/02/07 23:23:34 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;; 
@@ -222,7 +222,7 @@
   object-not-weak-pointer-error vm:weak-pointer-type)
 
 (def-type-vops scavenger-hook-p nil nil nil
-  0)
+  #-gencgc 0 #+gencgc scavenger-hook-type)
 
 (def-type-vops code-component-p nil nil nil
   vm:code-header-type)
-- 
GitLab