(mark_object): Don't overwrite original argument value.

diff --git a/src/alloc.c b/src/alloc.c
index 978174360b2bf474a82834ffc1454cb7d8cb3a8e..539539c49cd04c4646e7ce238fced9ac6acd90a1 100644 (file)
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -1699,9 +1699,10 @@ Lisp_Object *last_marked[LAST_MARKED_SIZE];
 int last_marked_index;
 
 static void
-mark_object (objptr)
-     Lisp_Object *objptr;
+mark_object (argptr)
+     Lisp_Object *argptr;
 {
+  Lisp_Object *objptr = argptr;
   register Lisp_Object obj;
 
  loop: