diff options
Diffstat (limited to 'src/alloc.c')
| -rw-r--r-- | src/alloc.c | 6 |
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 | ||
| 1555 | static void | 1555 | static void |
| 1556 | mark_interval (register INTERVAL i, Lisp_Object dummy) | 1556 | mark_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 | { |