From: Kim F. Storm <storm@cua.dk>
Date: Mon, 12 Jul 2004 14:35:53 +0000 (+0000)
Subject: (mark_object): Only look at Lisp_Misc_Save_Value if GC_MARK_STACK.
X-Git-Tag: ttn-vms-21-2-B4~5504
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9ea306d1786e97efae7123d32cd59972956ab1d6;p=emacs.git

(mark_object): Only look at Lisp_Misc_Save_Value if GC_MARK_STACK.
---

diff --git a/src/alloc.c b/src/alloc.c
index 7ec882f3dd3..5c2a6fb48c3 100644
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -5033,6 +5033,7 @@ mark_object (arg)
 	  break;
 
 	case Lisp_Misc_Save_Value:
+#if GC_MARK_STACK
 	  {
 	    register struct Lisp_Save_Value *ptr = XSAVE_VALUE (obj);
 	    /* If DOGC is set, POINTER is the address of a memory
@@ -5045,6 +5046,7 @@ mark_object (arg)
 		  mark_maybe_object (*p);
 	      }
 	  }
+#endif
 	  break;
 
 	case Lisp_Misc_Overlay: