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

diff --git a/src/alloc.c b/src/alloc.c
index f82cde61c2778af56e0acc5e6a5241dfdc2ac0a9..5230b5a7a8228fcf679f51c6c764f066235911bf 100644 (file)
--- 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)
     {