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

1 files changed, 3 insertions, 2 deletions

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)
     {