From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 17 May 2003 12:40:32 +0000 (+0000)
Subject: (Fgarbage_collect): Cast pointers into specpdl to avoid GCC warning.
X-Git-Tag: ttn-vms-21-2-B4~10135
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fa42e88f9b9e89a2756cec5c72ce85f713233055;p=emacs.git

(Fgarbage_collect): Cast pointers into specpdl to avoid GCC warning.
---

diff --git a/src/alloc.c b/src/alloc.c
index f82cde61c27..5230b5a7a82 100644
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -4215,8 +4215,9 @@ Garbage collection happens automatically if you cons more than
   mark_byte_stack ();
   for (bind = specpdl; bind != specpdl_ptr; bind++)
     {
-      mark_object (&bind->symbol);
-      mark_object (&bind->old_value);
+      /* These casts avoid a warning for discarding `volatile'.  */
+      mark_object ((Lisp_Object *) &bind->symbol);
+      mark_object ((Lisp_Object *) &bind->old_value);
     }
   for (catch = catchlist; catch; catch = catch->next)
     {