From: Eli Zaretskii <eliz@gnu.org>
Date: Tue, 3 Oct 2000 12:47:31 +0000 (+0000)
Subject: (Fgarbage_collect): Prevent compiler warning for a call
X-Git-Tag: emacs-pretest-21.0.90~1197
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1efc2bb9c86a475bf005bb73e8e742c3c54e600d;p=emacs.git

(Fgarbage_collect): Prevent compiler warning for a call
to `mark_object'.
---

diff --git a/src/ChangeLog b/src/ChangeLog
index bf010c6d29b..0485ee5517e 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,8 @@
+2000-10-03  Eli Zaretskii  <eliz@is.elta.co.il>
+
+	* alloc.c (Fgarbage_collect): Prevent compiler warning for a call
+	to `mark_object'.
+
 2000-10-02  Stefan Monnier  <monnier@cs.yale.edu>
 
 	* syntax.c (forw_comment): Match nestedness of ender/starter.
diff --git a/src/alloc.c b/src/alloc.c
index fc8787670e6..7a1d488c6a0 100644
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -3600,7 +3600,9 @@ Garbage collection happens automatically if you cons more than\n\
     for (i = 0; i < tail->nvars; i++)
       if (!XMARKBIT (tail->var[i]))
 	{
-	  mark_object (&tail->var[i]);
+	  /* Explicit casting prevents compiler warning about
+	     discarding the `volatile' qualifier.  */
+	  mark_object ((Lisp_Object *)&tail->var[i]);
 	  XMARK (tail->var[i]);
 	}
 #endif