(Fgarbage_collect): Prevent compiler warning for a call

to `mark_object'.

diff --git a/src/ChangeLog b/src/ChangeLog
index bf010c6d29becea753449f5a904a8e7f78aaeaa6..0485ee5517e041fa8f4fe38d0d1ae89d12ab4d0e 100644 (file)
--- 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 fc8787670e6bd4d5dd24b1aefa659576cf14f7b3..7a1d488c6a0656b7a7d29304421d31c5f13366e8 100644 (file)
--- 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