From 1efc2bb9c86a475bf005bb73e8e742c3c54e600d Mon Sep 17 00:00:00 2001
From: Eli Zaretskii
Date: Tue, 3 Oct 2000 12:47:31 +0000
Subject: (Fgarbage_collect): Prevent compiler warning for a call to
 `mark_object'.

---
 src/alloc.c | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'src/alloc.c')

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
-- 
cgit v1.2.1