2 files changed, 8 insertions, 1 deletions

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