diff options
| -rw-r--r-- | src/alloc.c | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/alloc.c b/src/alloc.c index a0722b42cf4..be2a4fa1bbc 100644 --- a/src/alloc.c +++ b/src/alloc.c | |||
| @@ -4099,6 +4099,11 @@ mark_stack () | |||
| 4099 | #endif | 4099 | #endif |
| 4100 | for (i = 0; i < sizeof (Lisp_Object); i += GC_LISP_OBJECT_ALIGNMENT) | 4100 | for (i = 0; i < sizeof (Lisp_Object); i += GC_LISP_OBJECT_ALIGNMENT) |
| 4101 | mark_memory ((char *) stack_base + i, end); | 4101 | mark_memory ((char *) stack_base + i, end); |
| 4102 | /* Allow for marking a secondary stack, like the register stack on the | ||
| 4103 | ia64. */ | ||
| 4104 | #ifdef GC_MARK_SECONDARY_STACK | ||
| 4105 | GC_MARK_SECONDARY_STACK (); | ||
| 4106 | #endif | ||
| 4102 | 4107 | ||
| 4103 | #if GC_MARK_STACK == GC_MARK_STACK_CHECK_GCPROS | 4108 | #if GC_MARK_STACK == GC_MARK_STACK_CHECK_GCPROS |
| 4104 | check_gcpros (); | 4109 | check_gcpros (); |