/[emacs]/emacs/src/alloc.c
ViewVC logotype

Diff of /emacs/src/alloc.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.299 by rms, Sat May 17 12:40:32 2003 UTC revision 1.300 by monnier, Sun May 25 17:40:03 2003 UTC
# Line 4087  Garbage collection happens automatically Line 4087  Garbage collection happens automatically
4087  `gc-cons-threshold' bytes of Lisp data since previous garbage collection.  */)  `gc-cons-threshold' bytes of Lisp data since previous garbage collection.  */)
4088       ()       ()
4089  {  {
   register struct gcpro *tail;  
4090    register struct specbinding *bind;    register struct specbinding *bind;
4091    struct catchtag *catch;    struct catchtag *catch;
4092    struct handler *handler;    struct handler *handler;
# Line 4201  Garbage collection happens automatically Line 4200  Garbage collection happens automatically
4200       || GC_MARK_STACK == GC_MARK_STACK_CHECK_GCPROS)       || GC_MARK_STACK == GC_MARK_STACK_CHECK_GCPROS)
4201    mark_stack ();    mark_stack ();
4202  #else  #else
4203    for (tail = gcprolist; tail; tail = tail->next)    {
4204      for (i = 0; i < tail->nvars; i++)      register struct gcpro *tail;
4205        if (!XMARKBIT (tail->var[i]))      for (tail = gcprolist; tail; tail = tail->next)
4206          {        for (i = 0; i < tail->nvars; i++)
4207            /* Explicit casting prevents compiler warning about          if (!XMARKBIT (tail->var[i]))
4208               discarding the `volatile' qualifier.  */            {
4209            mark_object ((Lisp_Object *)&tail->var[i]);              /* Explicit casting prevents compiler warning about
4210            XMARK (tail->var[i]);                 discarding the `volatile' qualifier.  */
4211          }              mark_object ((Lisp_Object *)&tail->var[i]);
4212                XMARK (tail->var[i]);
4213              }
4214      }
4215  #endif  #endif
4216    
4217    mark_byte_stack ();    mark_byte_stack ();

Legend:
Removed from v.1.299  
changed lines
  Added in v.1.300

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26