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 */ |
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 |
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) \ |