[Emacs-diffs] Changes to emacs/src/alloc.c

[Stefan Monnier]

Index: emacs/src/alloc.c
diff -c emacs/src/alloc.c:1.299 emacs/src/alloc.c:1.300
*** emacs/src/alloc.c:1.299     Sat May 17 08:40:32 2003
--- emacs/src/alloc.c   Sun May 25 13:40:03 2003
***************
*** 4087,4093 ****
  `gc-cons-threshold' bytes of Lisp data since previous garbage collection.  */)
       ()
  {
-   register struct gcpro *tail;
    register struct specbinding *bind;
    struct catchtag *catch;
    struct handler *handler;
--- 4087,4092 ----
***************
*** 4201,4215 ****
       || GC_MARK_STACK == GC_MARK_STACK_CHECK_GCPROS)
    mark_stack ();
  #else
!   for (tail = gcprolist; tail; tail = tail->next)
!     for (i = 0; i < tail->nvars; i++)
!       if (!XMARKBIT (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
  
    mark_byte_stack ();
--- 4200,4217 ----
       || GC_MARK_STACK == GC_MARK_STACK_CHECK_GCPROS)
    mark_stack ();
  #else
!   {
!     register struct gcpro *tail;
!     for (tail = gcprolist; tail; tail = tail->next)
!       for (i = 0; i < tail->nvars; i++)
!       if (!XMARKBIT (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
  
    mark_byte_stack ();