aboutsummaryrefslogtreecommitdiffstats
path: root/src/alloc.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/alloc.c')
-rw-r--r--src/alloc.c6
1 files changed, 3 insertions, 3 deletions
diff --git a/src/alloc.c b/src/alloc.c
index ac3de83b2b6..2cee6462564 100644
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -1553,7 +1553,7 @@ make_interval (void)
1553/* Mark Lisp objects in interval I. */ 1553/* Mark Lisp objects in interval I. */
1554 1554
1555static void 1555static void
1556mark_interval (register INTERVAL i, Lisp_Object dummy) 1556mark_interval (INTERVAL i, void *dummy)
1557{ 1557{
1558 /* Intervals should never be shared. So, if extra internal checking is 1558 /* Intervals should never be shared. So, if extra internal checking is
1559 enabled, GC aborts if it seems to have visited an interval twice. */ 1559 enabled, GC aborts if it seems to have visited an interval twice. */
@@ -1567,7 +1567,7 @@ mark_interval (register INTERVAL i, Lisp_Object dummy)
1567#define MARK_INTERVAL_TREE(i) \ 1567#define MARK_INTERVAL_TREE(i) \
1568 do { \ 1568 do { \
1569 if (i && !i->gcmarkbit) \ 1569 if (i && !i->gcmarkbit) \
1570 traverse_intervals_noorder (i, mark_interval, Qnil); \ 1570 traverse_intervals_noorder (i, mark_interval, NULL); \
1571 } while (0) 1571 } while (0)
1572 1572
1573/*********************************************************************** 1573/***********************************************************************
@@ -6943,7 +6943,7 @@ sweep_symbols (void)
6943 symbol_free_list = NULL; 6943 symbol_free_list = NULL;
6944 6944
6945 for (int i = 0; i < ARRAYELTS (lispsym); i++) 6945 for (int i = 0; i < ARRAYELTS (lispsym); i++)
6946 lispsym[i].gcmarkbit = 0; 6946 lispsym[i].s.gcmarkbit = 0;
6947 6947
6948 for (sblk = symbol_block; sblk; sblk = *sprev) 6948 for (sblk = symbol_block; sblk; sblk = *sprev)
6949 { 6949 {