/[emacs]/emacs/src/lisp.h
ViewVC logotype

Diff of /emacs/src/lisp.h

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

revision 1.407 by monnier, Thu Feb 7 20:22:19 2002 UTC revision 1.408 by kfstorm, Fri Mar 1 20:59:55 2002 UTC
# Line 1826  struct gcpro Line 1826  struct gcpro
1826    (((void) gcpro4, (void) gcpro3, (void) gcpro2, (void) gcpro1))    (((void) gcpro4, (void) gcpro3, (void) gcpro2, (void) gcpro1))
1827  #define GCPRO5(varname1, varname2, varname3, varname4, varname5) \  #define GCPRO5(varname1, varname2, varname3, varname4, varname5) \
1828    (((void) gcpro5, (void) gcpro4, (void) gcpro3, (void) gcpro2, (void) gcpro1))    (((void) gcpro5, (void) gcpro4, (void) gcpro3, (void) gcpro2, (void) gcpro1))
1829    #define GCPRO6(varname1, varname2, varname3, varname4, varname5, varname6) \
1830      (((void) gcpro6, (void) gcpro5, (void) gcpro4, (void) gcpro3, (void) gcpro2, (void) gcpro1))
1831  #define UNGCPRO ((void) 0)  #define UNGCPRO ((void) 0)
1832    
1833  #else /* GC_MARK_STACK != GC_MAKE_GCPROS_NOOPS */  #else /* GC_MARK_STACK != GC_MAKE_GCPROS_NOOPS */
# Line 1862  struct gcpro Line 1864  struct gcpro
1864    gcpro5.next = &gcpro4; gcpro5.var = &varname5; gcpro5.nvars = 1; \    gcpro5.next = &gcpro4; gcpro5.var = &varname5; gcpro5.nvars = 1; \
1865    gcprolist = &gcpro5; }    gcprolist = &gcpro5; }
1866    
1867    #define GCPRO6(varname1, varname2, varname3, varname4, varname5, varname6) \
1868     {gcpro1.next = gcprolist; gcpro1.var = &varname1; gcpro1.nvars = 1; \
1869      gcpro2.next = &gcpro1; gcpro2.var = &varname2; gcpro2.nvars = 1; \
1870      gcpro3.next = &gcpro2; gcpro3.var = &varname3; gcpro3.nvars = 1; \
1871      gcpro4.next = &gcpro3; gcpro4.var = &varname4; gcpro4.nvars = 1; \
1872      gcpro5.next = &gcpro4; gcpro5.var = &varname5; gcpro5.nvars = 1; \
1873      gcpro6.next = &gcpro5; gcpro6.var = &varname6; gcpro6.nvars = 1; \
1874      gcprolist = &gcpro6; }
1875    
1876  #define UNGCPRO (gcprolist = gcpro1.next)  #define UNGCPRO (gcprolist = gcpro1.next)
1877    
1878  #else  #else
# Line 1907  extern int gcpro_level; Line 1918  extern int gcpro_level;
1918    gcpro5.level = gcpro_level++; \    gcpro5.level = gcpro_level++; \
1919    gcprolist = &gcpro5; }    gcprolist = &gcpro5; }
1920    
1921    #define GCPRO6(varname1, varname2, varname3, varname4, varname5, varname6) \
1922     {gcpro1.next = gcprolist; gcpro1.var = &varname1; gcpro1.nvars = 1; \
1923      gcpro1.level = gcpro_level; \
1924      gcpro2.next = &gcpro1; gcpro2.var = &varname2; gcpro2.nvars = 1; \
1925      gcpro3.next = &gcpro2; gcpro3.var = &varname3; gcpro3.nvars = 1; \
1926      gcpro4.next = &gcpro3; gcpro4.var = &varname4; gcpro4.nvars = 1; \
1927      gcpro5.next = &gcpro4; gcpro5.var = &varname5; gcpro5.nvars = 1; \
1928      gcpro6.next = &gcpro5; gcpro6.var = &varname6; gcpro6.nvars = 1; \
1929      gcpro6.level = gcpro_level++; \
1930      gcprolist = &gcpro6; }
1931    
1932  #define UNGCPRO                                 \  #define UNGCPRO                                 \
1933   ((--gcpro_level != gcpro1.level)               \   ((--gcpro_level != gcpro1.level)               \
1934    ? (abort (), 0)                               \    ? (abort (), 0)                               \

Legend:
Removed from v.1.407  
changed lines
  Added in v.1.408

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